请问如何用ASP实现允许多个IP地址段访问网站，不在这些地址段的IP将无法访问网站？

有个把IP转换成整数的公式：

A.B.C.D

ipsum=A*16777216 + B*65536+ C*256 + D - 1


转换成数字之后判断起来应该就比较容易写了，

我自己用的方法是把IP分成4个段,循环判断.
很早以前写的


<%
cus_ip=getip()
iptest = Split(cus_ip, ".")
sql="select * from ip where first='"&iptest(0)&"'" '如果IP地址的第一位验证存在，则开始验证第二位
set rs=conn.execute(sql)
if not rs.eof and not rs.bof then
do while not rs.eof
if rs("second")="*" then '如果IP地址的第二位为*，则转向
session("ip_error")="程序拒绝您现在所用的IP访问管理页面，请您更换IP后重新访问！"
Response.Redirect("../ip/ip_error.asp")
else '如果IP地址的第二位不为*，则还需要验证第三位
if rs("second")=iptest(1) then
if rs("third")="*" then '如果IP地址的第三位为*，则转向
session("ip_error")="程序拒绝您现在所用的IP访问管理页面，请您更换IP后重新访问！"
Response.Redirect("../ip/ip_error.asp")
else '如果IP地址的第三位不为*，则还需要验证第四位
if rs("third")=iptest(2) then
if rs("forth")="*" or rs("forth")=iptest(3) then
session("ip_error")="程序拒绝您现在所用的IP访问管理页面，请您更换IP后重新访问！"
Response.Redirect("../ip/ip_error.asp")
end if
end if
end if
end if
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

%>

添加受限IP的时候可以用限制IP段
比如192.168.*.*
196.*.*.*