<
得到访客的地址
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.write checkip（IP，allowip1，allowip2）
功能checkip（IP，allowip1，allowip2）
模糊检查（4）
checkip = false
ipstr =分裂（IP，，）
allow1 =分裂（allowip1，，）
allow2 =分裂（allowip2，，）
如果Cint（allow1（0））> Cint（allow2（0））然后确定IP地址段是合法的
response.write 禁止访问
退出功能
最后如果
我= 0，UBound（ipstr）
如果Cint（allow1（I））< Cint（allow2（I））然后
如果Cint（allow1（I））= Cint（ipstr（I））然后
检验（i）=真的
checkip =真
退出
其他的
如果Cint（ipstr（I））< Cint（allow2（I））然后
检验（i）=真的
checkip =真
退出
其他的
如果Cint（ipstr（I））> Cint（allow2（I））然后
检查（我）=假
checkip = false
退出
其他的
检验（i）=真的
checkip =真
最后如果
最后如果
最后如果
其他的
如果Cint（allow1（I））> Cint（ipstr（I））或Cint（allow1（I））< CINT
检查（我）=假
checkip = false
如果我<> UBound（ipstr）然后
退出
最后如果
其他的
检验（i）=真的
最后如果
最后如果
下一个
如果（检查（0）=真的，并检查（1）=真的，并检查（2）=真的，并检查（3）= FALSE）
checkip =真
最后如果
端功能
%>