<%
'' 获取访问者的地址
IP = Request.Servervariables ("remote_addr")
'' 允许的 IP 地址段为 10.0.0.0 ～ 10.68.63.255
LEIDIP1 = "10.0.0.0"
LEIDIP2 = "10.68.10.71"
response.writecheckip (IP, erlaubig1, erlaubteIp2)
functionCheckip (ip, deglyip1, deglyip2)
Dimcheck (4)
checkip = false
ipstr = split (ip, ".")
erlauben1 = split (deglyIp1, ".")
erlauben2 = split (deglyiP2, ".")
ifcint (erlauben 1 (0))> cint (erlauben2 (0)), dann '' 判断 ip 地址段是否合法
Antwort.Write "禁止访问"
Ausgangsfunktion
Endif
fei = 0toubund (IPStr)
ifcint (erlauben 1 (i)) <cint (erlauben2 (i)) dann
ifcint (erlauben 1 (i)) = cint (ipstr (i)) dann
Überprüfen Sie (i) = true
checkip = true
ausgehen
anders
ifcint (ipstr (i)) <cint (erlauben2 (i)) dann
Überprüfen Sie (i) = true
checkip = true
ausgehen
anders
ifcint (ipstr (i))> cint (erlauben2 (i)) dann
Überprüfen Sie (i) = false
checkip = false
ausgehen
anders
Überprüfen Sie (i) = true
checkip = true
Endif
Endif
Endif
anders
ifcint (erlauben 1 (i))> cint (ipstr (i)) orcint (erlauben 1 (i)) <cint (ipstr (i)) dann
Überprüfen Sie (i) = false
checkip = false
ifi <> Ubound (ipstr) dann
ausgehen
Endif
anders
Überprüfen Sie (i) = true
Endif
Endif
nächste
if (prüfen (0) = TrueandCheck (1) = TrueandCheck (2) = TrueandCheck (3) = False) und (cint (erlauben 2))> cint (ipstr (2)))
checkip = true
Endif
Endfunktion
%>