<%
'' 获取访问者的地址
ip = request.servervariables ("remote_addr")
'' 允许的 IP 地址段为 10.0.0.0 ～ 10.68.63.255
Allingip1 = "10.0.0.0"
Allingip2 = "10.68.10.71"
response.writecheckip (ip, alluckip1, alluctip2)
functioncheckip (ip, allowip1, allowip2)
Dimcheck (4)
checkip = false
ipstr = split (ip, ".")
Allow1 = Split (Allingip1, ".")
Allow2 = Split (Allingip2, ".")
ifcint (Alling1 (0))> cint (Alling2 (0)), затем '' 判断 IP 地址段是否合法
response.write "禁止访问"
Выходная функция
эндиф
fori = 0toubound (ipstr)
ifcint (Alling1 (i)) <cint (Alling2 (i))
ifcint (Alling1 (i)) = cint (ipstr (i))
Проверьте (i) = true
checkip = true
Выход
еще
ifcint (ipstr (i)) <cint (Alling2 (i))
Проверьте (i) = true
checkip = true
Выход
еще
ifcint (ipstr (i))> cint (Allow2 (i))
Проверьте (i) = false
checkip = false
Выход
еще
Проверьте (i) = true
checkip = true
эндиф
эндиф
эндиф
еще
ifcint (Alling1 (i))> cint (ipstr (i)) orcint (Alling1 (i)) <cint (ipstr (i))
Проверьте (i) = false
checkip = false
ifi <> ubound (ipstr) тогда
Выход
эндиф
еще
Проверьте (i) = true
эндиф
эндиф
следующий
if (проверить (0) = trueAndcheck (1) = trueAndcheck (2) = trueAndcheck (3) = false) и (cint (Allow2 (2))> cint (ipstr (2))) затем
checkip = true
эндиф
конечная функция
%>