<％
''获取访问者的地址
ip = request.servervariables（“远程_ADDR”）
''允许的ip地址段为10.0.0.0～10.68.63.255
allowip1 =“ 10.0.0.0”
allowip2 =“ 10.68.10.71”
Response.WriteCheckip（IP，Allowip1，Allyip2）
FunctionCheckip（IP，allowip1，allyip2）
Dimcheck（4）
checkip = false
ipstr = split（ip，“。”）
allow1 = split（允许1，“。”）
allow2 = split（允许2，“。”）
ifcint（允许1（0））> cint（allow2（0）），然后'''判断ip地址段是否合法
响应。写入“禁止访问”
出口
Endif
fori = 0toubound（iPSTR）
Ifcint（allow1（i））<cint（allow2（i））
然后，IFCINT（允许1（i））= Cint（ipstr（i））
检查（i）= true
checkip = true
出口
别的
Ifcint（ipstr（i））<cint（lasy2（i））
检查（i）= true
checkip = true
出口
别的
然后，Ifcint（ipstr（i））> cint（允许2（i））
检查（i）= false
checkip = false
出口
别的
检查（i）= true
checkip = true
Endif
Endif
Endif
别的
然后，IFCINT（允许1（i））> Cint（ipstr（i））orcint（允许1（i））<cint（ipstr（i））
检查（i）= false
checkip = false
Ifi <> ubound（iPSTR）
出口
Endif
别的
检查（i）= true
Endif
Endif
下一个
if（check（0）= trueandcheck（1）= trueandcheck（2）= trueandcheck（3）= false）和（cint（允许2（2））> cint（ipstr（2）））
checkip = true
Endif
最终功能
％>