<%
''获取访问者的地址
ip = request.servervariables ( "remote_addr")
''允许的 IP 允许的 10.0.0.0 ～ 10.68.63.255
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
response.writecheckip (ip, allowip1, allowip2)
functioncheckip (ip, allowip1, allowip2)
DIMCHECK (4)
checkip = false
ipStr = split (ip, ".")
allow1 = split (allowip1, ".")
allow2 = split (allowip2, ".")
ifcint (allow1 (0))> cint (allow2 (0)) 그런 다음 '' '判断 ip 地址段是否合法
응답. write "" "
종료 기능
endif
fori = 0toubound (ipstr)
ifcint (allow1 (i)) <cint (allow2 (i))
ifcint (allow1 (i)) = cint (ipstr (i))
확인 (i) = true
checkip = true
exitfor
또 다른
ifcint (ipstr (i)) <Cint (allow2 (i))
확인 (i) = true
checkip = true
exitfor
또 다른
ifcint (ipstr (i))> cint (allow2 (i))
(i) = false를 확인하십시오
checkip = false
exitfor
또 다른
확인 (i) = true
checkip = true
endif
endif
endif
또 다른
ifcint (allow1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i))
(i) = false를 확인하십시오
checkip = false
그런 다음 ifi <> ubound (ipstr)
exitfor
endif
또 다른
확인 (i) = true
endif
endif
다음
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) 및 (cint (allow2 (2))> cint (ipstr (2)))
checkip = true
endif
최종 기능 장애
%>