Symptom

På en server som kör Microsoft Internet Security and Acceleration (ISA) Server 2004 med Service Pack 2 eller Windows Essential Business Server 2008 inaktiverar du följande två webbfilter:

  • Komprimeringsfilter

  • Cachelagring av komprimerat innehåll

När du gör det blockerar ISA Server 2004 eller Windows Essential Business Server 2008 begäranden som innehåller Accept-Encoding HTTP-sidhuvud när en vidarebefordrad proxy används.Dessa webbfilter introducerades i ISA Server 2004 Service Pack 2 eller i Windows Essential Business Server 2008. Du kan inaktivera dessa webbfilter på grund av programkompatibilitetsproblem som involverar vissa webbservrar.

Lösning

Information om Service Pack

Lös problemet genom att installera ISA Server 2004 Service Pack 3 (SP3) och sedan köra Microsoft Visual Basic-skriptet som nämns i det här avsnittet.När du har installerat Service Pack kör du följande skript för att aktivera en ny konfigurationsparameter. Med den här nya parametern kan ISA Server vidarebefordra begäranden som innehåller Accept-Encoding HTTP-sidhuvud om komprimeringsfiltren inaktiveras i ett scenario med vidarebefordrad proxy. Följ instruktionerna nedan.Microsoft tillhandahåller endast programmeringsexempel för illustrationer, utan garantier som antingen uttrycks eller är underförstådda. Detta omfattar, men är inte begränsat till, de underförstådda garantierna om säljbarhet eller lämplighet för ett visst ändamål. Den här artikeln förutsätter att du är bekant med programmeringsspråket som demonstreras och med de verktyg som används för att skapa och felsöka procedurer. Microsofts supporttekniker kan hjälpa dig att förklara funktionaliteten i en viss procedur. Men de kommer inte att ändra dessa exempel för att ge ytterligare funktioner eller konstruera procedurer för att uppfylla dina specifika krav.

  1. Klicka på Start, peka på Alla program, peka på Tillbehör och klicka sedan på Anteckningar.

  2. Klistra in följande kod i anteckningarna.

    Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"
    Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader"
    Const SE_VPS_VALUE = true
    
    Sub SetValue()
    
        ' Create the root obect.
        Dim root  ' The FPCLib.FPC root object
        Set root = CreateObject("FPC.Root")
    
        'Declare the other objects needed.
        Dim array       ' An FPCArray object
        Dim VendorSets  ' An FPCVendorParametersSets collection
        Dim VendorSet   ' An FPCVendorParametersSet object
    
        ' Get references to the array object
        ' and the network rules collection.
        Set array = root.GetContainingArray
        Set VendorSets = array.VendorParametersSets
    
        On Error Resume Next
        Set VendorSet = VendorSets.Item( SE_VPS_GUID )
    
        If Err.Number <> 0 Then
            Err.Clear
    
            ' Add the item
            Set VendorSet = VendorSets.Add( SE_VPS_GUID )
            CheckError
            WScript.Echo "New VendorSet added... " & VendorSet.Name
    
        Else
            WScript.Echo "Existing VendorSet found... value- " &  VendorSet.Value(SE_VPS_NAME)
        End If
    
        if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE Then
    
            Err.Clear
            VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE
    
            If Err.Number <> 0 Then
                CheckError
            Else
                VendorSets.Save false, true
                CheckError
    
                If Err.Number = 0 Then
                    WScript.Echo "Done with " & SE_VPS_NAME & ", saved!"
                End If
            End If
        Else
            WScript.Echo "Done with " & SE_VPS_NAME & ", no change!"
        End If
    
    End Sub
    
    Sub CheckError()
    
        If Err.Number <> 0 Then
            WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description
            Err.Clear
        End If
    
    End Sub
    
    SetValue
    
  3. Spara Filen Anteckningar som "AccessRuleSendAcceptEncodingHeader.vbs".

  4. Dubbelklicka på VBS-filen för att köra skriptet.

Så här inaktiverar du den nya konfigurationsparametern:

  1. Klicka på Start, peka på Alla program, peka på Tillbehör och klicka sedan på Anteckningar.

  2. Klistra in följande kod i anteckningarna.

    Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}" 
    Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader" 
    Const SE_VPS_VALUE = false 
    
    Sub SetValue() 
    
         ' Create the root obect. 
         Dim root ' The FPCLib.FPC root object 
         Set root = CreateObject("FPC.Root") 
    
         'Declare the other objects needed. 
         Dim array ' An FPCArray object 
         Dim VendorSets ' An FPCVendorParametersSets collection 
         Dim VendorSet   ' An FPCVendorParametersSet object 
    
         ' Get references to the array object 
         Set array = root.GetContainingArray 
         Set VendorSets = array.VendorParametersSets 
    
         On Error Resume Next 
         Set VendorSet = VendorSets.Item( SE_VPS_GUID ) 
    
         If Err.Number <> 0 Then 
              Err.Clear 
    
              ' Add the item 
              Set VendorSet = VendorSets.Add( SE_VPS_GUID ) 
              CheckError 
              WScript.Echo "New VendorSet added... " & VendorSet.Name 
    
         Else 
              WScript.Echo "Existing VendorSet found... value- " & VendorSet.Value(SE_VPS_NAME) 
         End If 
    
         if VendorSet.Value(SE_VPS_NAME) <> SE_VPS_VALUE 
    
              Then Err.Clear VendorSet.Value(SE_VPS_NAME) = SE_VPS_VALUE 
    
              If Err.Number <> 0 Then 
                    CheckError 
              Else 
                    VendorSets.Save false, true 
                    CheckError 
    
                    If Err.Number = 0 Then 
                         WScript.Echo "Done with " & SE_VPS_NAME & ", saved!" 
                    End If 
              End If 
    
         Else 
              WScript.Echo "Done with " & SE_VPS_NAME & ", no change!" 
    
         End If 
    
    End Sub 
    
    Sub CheckError() 
    
         If Err.Number <> 0 Then 
              WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description Err.Clear 
         End If 
    End Sub 
    
    SetValue
    
  3. Spara Filen Anteckningar som "Disable_AccessRuleSendAcceptEncodingHeader.vbs".

  4. Dubbelklicka på VBS-filen för att köra skriptet.

Status

Microsoft har bekräftat att detta är ett problem i de Microsoft-produkter som listas i avsnittet "Gäller för".

Behöver du mer hjälp?

Vill du ha fler alternativ?

Utforska prenumerationsförmåner, bläddra bland utbildningskurser, lär dig hur du skyddar din enhet med mera.

Communities hjälper dig att ställa och svara på frågor, ge feedback och få råd från experter med rika kunskaper.