<%
'' 获取访问者的地址
ip = request.serverVariable ("remote_addr")
'' 允许的 ip 地址段为 10.0.0.0 ～ 10.68.63.255
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
response.writecheckip (IP, izin, izin)
FunctionCheckip (IP, Allowip1, Allowip2)
DiMCheck (4)
checkip = false
ipstr = split (ip, ".")
Idlow1 = split (allowip1, ".")
Izin2 = split (ijinkan2, ".")
ifcint (izin1 (0))> cint (izin2 (0)) lalu '' 判断 ip 地址段是否合法
response.write "禁止访问"
fungsi keluar
endif
fori = 0toubound (ipstr)
ifcint (izin1 (i)) <cint (izin2 (i)) lalu
ifcint (izin1 (i)) = cint (ipstr (i)) lalu
periksa (i) = true
checkip = true
keluar
kalau tidak
ifcint (ipstr (i)) <cint (izin2 (i)) lalu
periksa (i) = true
checkip = true
keluar
kalau tidak
ifcint (ipstr (i))> cint (izin2 (i)) lalu
periksa (i) = false
checkip = false
keluar
kalau tidak
periksa (i) = true
checkip = true
endif
endif
endif
kalau tidak
ifcint (izin1 (i))> cint (ipstr (i)) orcint (izin1 (i)) <cint (ipstr (i)) lalu
periksa (i) = false
checkip = false
ifi <> ubound (ipstr) lalu
keluar
endif
kalau tidak
periksa (i) = true
endif
endif
Berikutnya
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) dan (cint (izin2 (2))> cint (ipstr (2))) kemudian
checkip = true
endif
fungsi endfungsi
%>