有时候我们需要判断某一个ip地址是否属于一个网段,以决定该用户能否访问系统.
比如用户登录的ip是218.6.7.7,而我们的程序必须判断他是否属于218.6.0.0/16这个网段(其中/16是新的子网掩码的表示方式,相当于255.255.0.0).
要实现这样的功能,现在流行的算法是将218.6.0.0和218.6.7.7按256进制换算成10进制并进行比较得出,如先计算出218.6.0.0和218.6.255.255的十进制:218×256×256×256+6×256×256=3657826304,218×256×256×256+6×256×256+255×256×256+255=3657891839。再计算出218.6.7.7的十进:218×256×256×256+6×256×256+7×256+7=3657828103,最后再比较3657828103是否大于等于3657826304和小于等于3657891839。但明显有一个问题,计算量非常多,值非常大,如果ip地址是61开头的还好,如果是218开头的,这将会造成数据溢出而出错。
其实比较ip是否属于某一网段,最好的方式就是将ip与网段分别转为32位二进制,再比较他们的网络部分是否相同就可以了.asp本身不具备位运行功能,所以要实现这个只有我们手工实现,具体如下:
将十进制转为二进制字符串
function dec2bin(octnumber)
vara=octnumber
do
dec2bin=cstr(vara mod 2) & dec2bin
vara=vara \ 2
loop until vara=0
end function

将二进制字符串填充为8位
function pad(str)
pad=right("00000000" & str,8)
end function

判断是否是一个ip地址
function isip(ipadd)
isip=false
set oreg=new regexp
oreg.ignorecase=true
oreg.global=true
oreg.pattern="(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4})|(\d{1,4}\.\d{1,4}\.\d{1,4}\.\d{1,4}\/\d{1,2})"
if oreg.test(ipadd) then isip=true
set oreg=nothing
end function

其中userip是我们要检测的ip
netip是要检测的网段或某个ip,用xxx.xxx.xxx.xxx/n来表示网段,其中n表示子网掩码位数
注,该程序是环球万维原创程序,所以如果您要转载,请保留出处信息,谢谢.
程序设计:环球万维,专业提供域名注册，虚拟主机服务
网址:http://www.netinter.cn
以上信息与文章正文是不可分割的一部分,所以如果您要转载本文章,您必须保留以上信息.

function check_ip(userip,netip)
currentip=userip
collection_ips=split(iplist,",") 将网络按点分割成4段
check_ip=false 初始函数值,false假设ip不在这网段
netip=trim(netip)
slashpos=instr(netip,"/")
if slashpos=0 then 网段没含有/符号,他只是一个ip,所以比较比个字符串是否相同就可以了
if netip=currentip then
check_ip=true check_ip=true表示ip相等
exit function
end if
else
netrang=mid(netip,slashpos+1) 得到/后边的数字
if not isnumeric(netrang) then /后边不是数字,格式不正确
exit function
end if
netrang=cint(netrang) 将字符转为数字
if netrang>31 then
exit function /后的数字不能超过32位
end if
ipsets=split(currentip,".") 将用户ip按点分成四段

c_ip_bin=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
上边这行是将用户ip地址手工转换为对应的一个32个字符长的二进制
ipsets=split(netip,".") 按上边的过程将网段ip同样转为32个字符长的二进制
spos=instr(ipsets(3),"/") 最后一点格式应该是 数字/数字
if spos=0 then
exit function
end if
ipsets(3)=left(ipsets(3),spos-1) 得到最后一段/前边的数字
s_ip_bin=pad(dec2bin(ipsets(0))) & pad(dec2bin(ipsets(1))) & pad(dec2bin(ipsets(2))) & pad(dec2bin(ipsets(3)))
将其转换为32个字符长的二进制
if left(c_ip_bin,netrang) = left(s_ip_bin,netrang) then 比较网段络是否相同就可以判断用户ip否属于某个网段了
check_ip=true
end if
end if
end function

应用举例:

要判断61.139.1.1是否在61.139.0.0/16 (255.255.0.0)这个网段
只需要简单的使用这个函数就可以了,如:

if check_ip("61.139.1.1","61.139.0.0/16") then
response.write "同一网段"
else
response.write "不是同一网段"
end if