-
'' 获取访问者的地址
ip = request.serverVariables ("remote_addr")
'' 允许的 IP 地址段为 10.0.0.0 ~ 10.68.63.255
lewelip1 = "10.0.0.0"
อนุญาตให้ ALLEWIP2 = "10.68.10.71"
Response.writeCheckip (IP, NowlIP1, อนุญาต 2)
functionCheckip (IP, อนุญาตให้อนุญาตให้อนุญาต 2)
Dimcheck (4)
CETURCIP = FALSE
iPSTR = split (ip, ".")
อนุญาต 1 = แยก (อนุญาตให้ใช้ ",". ")
allow2 = split (leweip2, ".")
IFCINT (อนุญาต 1 (0))> CINT (อนุญาต 2 (0)) จากนั้น '' 判断 IP 地址段是否合法
Response.write "禁止访问"
exitfunction
endif
fori = 0toubound (ipstr)
IFCINT (อนุญาต 1 (i)) <CINT (อนุญาต 2 (i)) แล้ว
IFCINT (อนุญาต 1 (i)) = CINT (iPSTR (i)) แล้ว
ตรวจสอบ (i) = จริง
CHECT = TRUE
ออกจาก
อื่น
ifcint (ipstr (i)) <cint (lewale2 (i)) แล้ว
ตรวจสอบ (i) = จริง
CHECT = TRUE
ออกจาก
อื่น
ifcint (ipstr (i))> cint (lewale2 (i)) แล้ว
ตรวจสอบ (i) = เท็จ
CETURCIP = FALSE
ออกจาก
อื่น
ตรวจสอบ (i) = จริง
CHECT = TRUE
endif
endif
endif
อื่น
ifcint (lewale1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i)) จากนั้น
ตรวจสอบ (i) = เท็จ
CETURCIP = FALSE
ifi <> ubound (iPSTR) แล้ว
ออกจาก
endif
อื่น
ตรวจสอบ (i) = จริง
endif
endif
ต่อไป
if (ตรวจสอบ (0) = TrueAndCheck (1) = TrueAndCheck (2) = TrueAndCheck (3) = FALSE) และ (CINT (อนุญาต 2 (2))> CINT (IPSTR (2)))
CHECT = TRUE
endif
endfunction
-