หมายเหตุ: ไฟล์ ASP ที่ดำเนินการต้องใช้สิทธิ์ของผู้ดูแลระบบ คัดลอกโค้ดดังนี้:
<%@ ภาษา=VBScript %>
-
DimstrIP
strIP = คำขอ (IP)
-
<รูปแบบการกระทำ=? วิธีการ=โพสต์>
IP อินพุต: <input type=text value=<%=strIP%> style=BORDER: #AAAAAA 1px solid;
<ประเภทอินพุต=ค่าส่ง=ยืนยันการส่ง>
</รูปแบบ>
-
ถ้า strIP=list แล้ว
รายการโทรDenyIP(2443)
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
ถ้า strIP=query แล้ว
โทร CheckWebSiteSetup
การตอบสนองสิ้นสุด
สิ้นสุดถ้า
-
ถ้า strIP<> แล้ว
โทร AddDenyIP(2443,strIP)
สิ้นสุดถ้า
ตรวจสอบย่อย WebSiteSetup()
ตั้งค่า IISOBJ=GetObject(IIS://LocalHost/W3SVC)
สำหรับแต่ละเว็บไซต์ใน IISOBJ
ถ้า website.Class=IIsWebServer แล้ว
สำหรับแต่ละ b ในเว็บไซต์ ServerBindings
response.write (เซิร์ฟเวอร์ &เว็บไซต์ AdsPath มีการเชื่อมโยง&b)
ตอบกลับเขียน (<br>)
ต่อไป
สิ้นสุดถ้า
ต่อไป
จบย่อย
-
รายการย่อยDenyIP(strWebNo)
ตั้งค่า SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
IPList=MyIPSec.IPDeny
ถ้า ubound(IPList)<0 แล้ว
response.write <BR>ไม่มีข้อมูล โปรดเพิ่มข้อมูลก่อน<BR>
ออกย่อย
สิ้นสุดถ้า
-
intIPListCount=ubound(IPList)+1
-
สำหรับ i=0 ถึง ubound (IPList)
การตอบกลับเขียน i+1
ตอบกลับ.เขียน:
ตอบกลับเขียน IPList (i)
ตอบกลับเขียน <br>
ต่อไป
จบย่อย
ย่อย AddDenyIP (strWebNo, strDenyIp)
ตั้งค่า SecObj = GETObject(IIS://LocalHost/W3SVC/+strWebNo+/Root)
setMyIPSec = SecObj.IPSecurity
' ตรวจสอบให้แน่ใจว่า GrantByDefault=TRUE ไม่เช่นนั้นการเปลี่ยนแปลงของคุณจะไม่นับรวม
ถ้า (FALSE = MyIPSec.GrantByDefault) จากนั้น
Response.Write <BR>GrantByDefault ไม่เป็น TRUE
MyIPSec.GrantByDefault = TRUE
สิ้นสุดถ้า
IPList=MyIPSec.IPDeny
ถ้า ubound(IPList)<0 แล้ว
response.write <BR>ไม่มีข้อมูล โปรดเพิ่มข้อมูลก่อน<BR>
ออกย่อย
สิ้นสุดถ้า
-
intIPListCount=ubound(IPList)+1
-
สำหรับ i=0 ถึง ubound (IPList)
ถ้า strDenyIp = left(IPList(i),len(strDenyIp)) แล้ว
response.write <BR>ข้อมูลที่ซ้ำกัน <บีอาร์>
ออกย่อย
สิ้นสุดถ้า
ต่อไป
redim รักษา IPList (intIPListCount)
IPList(intIPListCount)=strDenyIp
response.write เพิ่มใหม่:
ตอบกลับเขียน strDenyIp
ตอบกลับเขียน <br>
MyIPSec.IPDeny = IPList
SecObj.IPSecurity = MyIPSec
SecObj.Setinfo
จบย่อย
-