byzkxp2/15/2559HTTP: //zkxp.cnblogs.com
'คอลเลกชันที่อยู่ IP ที่ถูกบล็อก (เซ็กเมนต์) เครื่องหมายดอกจันเป็นไวด์การ์ดและมักจะถูกบันทึกไว้ในไฟล์การกำหนดค่า
-
ConstbadipGroup = "220.200.59.136 | 220.205.168.141"
ifisforbidip (badipgroup) = truethen
Response.write (getUserip & "ที่อยู่ IP ต้องห้ามเข้าถึง"))
Response.end ()
endif
-
'พารามิเตอร์ VBADIP: เซ็กเมนต์ IP ที่จะถูกบล็อก, การรวบรวมที่อยู่ IP, แยกที่อยู่ IP หลายแห่ง (เซ็กเมนต์) ด้วย | สัญลักษณ์
'กลับไปที่บูล: ผู้ใช้จริง IP อยู่ในช่วงที่ถูกบล็อกเท็จคือตรงกันข้าม
-
functionisforbidip (vbadip)
Dimcounter, arrippart, arrbadip, arrbadippart, i, j
arrbadip = split (vbadip, "|")
arrippart = split (getUserip (), ".")
fori = 0toubound (arrbadip)
เคาน์เตอร์ = 0
arrbadippart = split (arrbadip (i), ".")
forj = 0toubound (arrippart)
ถ้า (arrbadippart (j)) = "*" orcstr (arrippart (j)) = cstr (arrbadippart (j)) แล้ว
เคาน์เตอร์ = เคาน์เตอร์+1
endif
ต่อไป
ifcounter = 4 จากนั้น
isForBidip = จริง
exitfunction
endif
ต่อไป
isForBidip = false
endfunction
-
'กลับไปที่ที่อยู่ IP ของไคลเอนต์
-
functiongetUserip ()
หรี่ลง
ip = request.serverVariables ("http_x_forwarded_for")
ifip = "" thenip = request.serverVariables ("remote_addr")
getUserip = IP
endfunction
-