ISA Server 2004, ISA Server 2006 หรือ Windows จำเป็นต่อ Business Server 2008 บล็อกการร้องขอที่มีส่วนหัว HTTP ที่เข้ารหัสยอมรับเมื่อมีใช้พร็อกซีไปข้างหน้า

ข้อมูล Service pack

เมื่อต้องการแก้ไขปัญหานี้ ติดตั้ง ISA Server 2004 Service Pack 3 (SP3), และจากนั้น เรียกใช้สคริปต์ Microsoft Visual Basic ที่ระบุไว้ในส่วนนี้ สำหรับข้อมูลเพิ่มเติมเกี่ยวกับวิธีการขอรับ service pack ล่าสุดของ ISA Server 2004 โปรดคลิกที่หมายเลขบทความต่อไปนี้เพื่อดูบทความในฐานความรู้ของ Microsoft:

891024วิธีการขอรับ service pack ล่าสุดของ ISA Server 2004หลังจากที่คุณติดตั้ง service pack เรียกใช้สคริปต์ต่อไปนี้เพื่อเปิดใช้งานพารามิเตอร์การตั้งค่าคอนฟิกใหม่ พารามิเตอร์ใหม่นี้ช่วยให้เซิร์ฟเวอร์ ISA ส่งต่อคำขอที่มีส่วนหัว HTTP ที่เข้ารหัสยอมรับถ้าตัวกรองที่บีบอัดถูกปิดใช้งานในกรณีที่มีพร็อกซีไปข้างหน้า เมื่อต้องการทำเช่นนี้ ให้ทำตามขั้นตอนเหล่านี้ Microsoft แสดงตัวอย่างการเขียนโปรแกรมเพื่อประกอบการเท่านั้น โดยไม่มีการรับประกันทั้งโดยชัดแจ้ง หรือโดยนัย กรณีนี้รวมถึงแต่มิได้จำกัดเพียงแค่การการรับประกันโดยนัยเกี่ยวกับการจำหน่ายเป็นสินค้าหรือความเหมาะสำหรับวัตถุประสงค์เฉพาะ บทความนี้ตั้งสมมติฐานว่าคุณมีความคุ้นเคยกับภาษาการเขียนโปรแกรมที่กำลังแสดงและคุ้นเคยกับเครื่องมือที่ใช้ใน การสร้างและแก้จุดบกพร่องของขั้นตอนการดำเนินการ วิศวกรฝ่ายสนับสนุนของ Microsoft สามารถช่วยอธิบายเกี่ยวกับหน้าที่การใช้งานของกระบวนการเฉพาะ อย่างไรก็ตาม จะไม่แก้ไขตัวอย่างเหล่านี้เพื่อเพิ่มฟังก์ชัน หรือสร้างขั้นตอนเพื่อตอบสนองความต้องการเฉพาะของคุณ

1. คลิกเริ่มชี้ไปที่โปรแกรมทั้งหมดชี้ไปที่เบ็ดเตล็ดแล้ว คลิ กแผ่นจดบันทึก

2. วางรหัสต่อไปนี้ลงในเอกสารแผ่นจดบันทึก

   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. บันทึกแฟ้มแผ่นจดบันทึกเป็น "AccessRuleSendAcceptEncodingHeader.vbs"

4. คลิกสองครั้งที่แฟ้ม.vbs เพื่อเรียกใช้สคริปต์

เมื่อต้องการปิดใช้งานการตั้งค่าคอนฟิกพารามิเตอร์ใหม่ ให้ทำตามขั้นตอนเหล่านี้:

1. คลิกเริ่มชี้ไปที่โปรแกรมทั้งหมดชี้ไปที่เบ็ดเตล็ดแล้ว คลิ กแผ่นจดบันทึก

2. วางรหัสต่อไปนี้ลงในเอกสารแผ่นจดบันทึก

   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. บันทึกแฟ้มแผ่นจดบันทึกเป็น "Disable_AccessRuleSendAcceptEncodingHeader.vbs"

4. คลิกสองครั้งที่แฟ้ม.vbs เพื่อเรียกใช้สคริปต์