<%
'' 获取访问者的地址
ip = request.servervariables ("reote_addr")
'' 允许的 ip 地址段为 10.0.0.0 ～ 10.68.63.255
allowip1 = "10.0.0.0"
allowip2 = "10.68.10.71"
réponse.WriteCheckip (IP, allowip1, allowip2)
FonctionCheckip (IP, allowip1, allowip2)
dimcheck (4)
Checkip = false
ipstr = split (ip, ".")
allow1 = divisé (allowip1, ".")
allow2 = se fendre (allowip2, ".")
ifcint (perte1 (0))> cint (perte2 (0)) puis '' 判断 ip 地址段是否合法
réponse.WRITE "禁止访问"
sortie
endire
fori = 0Toubound (ipstr)
ifcint (perte1 (i)) <cint (perte2 (i)) puis
ifcint (perte1 (i)) = Cint (ipstr (i)) puis
vérifier (i) = vrai
Checkip = true
sortie
autre
ifcint (ipstr (i)) <cint (perte2 (i)) puis
vérifier (i) = vrai
Checkip = true
sortie
autre
ifcint (ipstr (i))> cint (perte2 (i)) puis
vérifier (i) = faux
Checkip = false
sortie
autre
vérifier (i) = vrai
Checkip = true
endire
endire
endire
autre
ifcint (allow1 (i))> cint (ipstr (i)) orcint (allow1 (i)) <cint (ipstr (i)) puis
vérifier (i) = faux
Checkip = false
ifi <> ubound (ipstr) puis
sortie
endire
autre
vérifier (i) = vrai
endire
endire
suivant
if (check (0) = trueandcheck (1) = trueandcheck (2) = trueandcheck (3) = false) et (cint (perte2 (2))> cint (ipstr (2))) puis
Checkip = true
endire
finition de fin
%>