<%
'' 获取访问者的地址
ip = request.serverVariAbles ("remota_addr")
'' 允许的 允许的 地址段为 10.0.0.0 ～ 10.68.63.255
tampodip1 = "10.0.0.0"
tampodip2 = "10.68.10.71"
Response.WriteCheckip (IP, INSKIPTIP1, INSKING2)
FunctionCheckip (IP, INSKIP1, INSKING2)
DimCheck (4)
checkip = falso
IPSTR = Split (IP, ".")
permitir1 = dividir (tampable1, ".")
Illow2 = Split (INSHEWP2, ".")
ifcint (permitido1 (0))> cint (permiso2 (0)) Entonces '' 判断 IP 地址段是否合法
Respuesta.WRITE "禁止访问"
extinción
endif
fori = 0toUbound (iPSTR)
ifcint (permiso1 (i)) <cint (permiso2 (i)) entonces entonces
ifcint (permiso1 (i)) = cint (iPSTR (i)) Entonces
comprobar (i) = verdadero
checkip = verdadero
salir
demás
ifcint (IPSTR (i)) <Cint (permiso2 (i)) Entonces
comprobar (i) = verdadero
checkip = verdadero
salir
demás
ifcint (iPstr (i))> cint (permitido2 (i)) Entonces
comprobar (i) = falso
checkip = falso
salir
demás
comprobar (i) = verdadero
checkip = verdadero
endif
endif
endif
demás
ifcint (permitido1 (i))> cint (iPStr (i)) orcint (permitido1 (i)) <cint (iPStr (i)) entonces
comprobar (i) = falso
checkip = falso
ifi <> Ubound (iPSTR) entonces
salir
endif
demás
comprobar (i) = verdadero
endif
endif
próximo
if (check (0) = TrueAndCheck (1) = TrueAndCheck (2) = TrueAndCheck (3) = falso) y (cint (permiso2 (2))> Cint (iPSTR (2))) Entonces
checkip = verdadero
endif
Función final
%>