ISA Server 2004 "," ISA Server 2006 "arba" Windows Essential Business Server 2008 blokuoja užklausų, priimti kodavimo HTTP antraštės naudojant į priekį tarpinį serverį

Pakeitimų paketo informacija

Norėdami išspręsti šią problemą, įdiekite ISA Server 2004 3 pakeitimų paketą (SP3), ir paleiskite Microsoft Visual Basic scenarijų, kuris yra nurodyta šiame skyriuje. Jei norite gauti daugiau informacijos apie tai, kaip įsigyti naujausią "ISA Server 2004" pakeitimų paketą, spustelėkite toliau straipsnio numerį ir peržiūrėkite straipsnį Microsoft žinių bazėje:

891024 kaip įsigyti naujausią "ISA Server 2004" pakeitimų paketąĮdiegus pakeitimų paketą, paleiskite šį scenarijų įgalinti naują konfigūracijos parametras. Šis naujas parametras leidžia ISA serverio siunčia užklausų, priimti kodavimo HTTP antraštės jei glaudinimas filtrai išjungti į priekį tarpinio serverio scenarijų. Norėdami tai padaryti, atlikite toliau nurodytus veiksmus. "Microsoft" pateikia programavimo pavyzdžius tik, tačiau nesuteikia jokių aiškių arba numanomų garantijų. Tai apima, bet neapsiribojant, numanomas garantijas dėl perkamumo ir tinkamumo konkrečiam tikslui. Šis straipsnis parašytas galvojant, kad esate susipažinę su pateikta programavimo kalba ir įrankiais, kurie yra naudojami procedūroms kurti ir derinti. "Microsoft" palaikymo inžinieriai gali padėti paaiškindami konkrečios procedūros funkcines galimybes. Tačiau jie nekeis šių pavyzdžių, kad numatytų papildomą funkcinę galimybę arba sukurtų konkrečius jūsų reikalavimus atitinkančias procedūras.

1. Spustelėkite pradėti, perkelkite pelės žymiklį ant Visos programos, perkelkite pelės žymiklį ant priedaiir spustelėkite Užrašinė.

2. Įklijuokite šį kodą į užrašinės dokumentą.

   Const SE_VPS_GUID = "{143F5698-103B-12D4-FF34-1F34767DEabc}"Const SE_VPS_NAME = "AccessRuleSendAcceptEncodingHeader"Const SE_VPS_VALUE = trueSub 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 IfEnd SubSub CheckError()    If Err.Number <> 0 Then        WScript.Echo "An error occurred: 0x" & Hex(Err.Number) & " " & Err.Description        Err.Clear    End IfEnd SubSetValue

3. Užrašinės failą įrašyti kaip "AccessRuleSendAcceptEncodingHeader.vbs."

4. Dukart spustelėkite .vbs failą ir paleiskite scenarijų.

Norėdami išjungti parametrą naują konfigūracijos, atlikite šiuos veiksmus:

1. Spustelėkite pradėti, perkelkite pelės žymiklį ant Visos programos, perkelkite pelės žymiklį ant priedaiir spustelėkite Užrašinė.

2. Įklijuokite šį kodą į užrašinės dokumentą.

   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. Užrašinės failą įrašyti kaip "Disable_AccessRuleSendAcceptEncodingHeader.vbs."

4. Dukart spustelėkite .vbs failą ir paleiskite scenarijų.