发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

用ASP判断某IP是否属于某网段的另类算法

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

有时候我们需要判断某一个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本身不具备位运行功能,所以要实现这个只有我们手工实现,具体如下:
将十进制转为二进制字符串
functiondec2bin(octNumber)
vara=octNumber
do
dec2bin=cstr(varamod2)dec2bin
vara=vara\2
loopuntilvara=0
endfunction

将二进制字符串填充为8位
functionpad(str)
pad=right(00000000str,8)
endfunction

判断是否是一个IP地址
functionisIp(ipadd)
isIp=false
setoReg=newRegExp
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})
ifoReg.test(ipadd)thenisIp=true
setoReg=nothing
endfunction

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

Functioncheck_ip(UserIp,NetIP)
currentip=UserIp
collection_ips=split(iplist,,)将网络按点分割成4段
check_ip=false初始函数值,false假设IP不在这网段
NetIP=trim(NetIP)
slashPos=inStr(NetIP,/)
ifslashPos=0then网段没含有/符号,他只是一个IP,所以比较比个字符串是否相同就可以了
ifNetIP=currentipthen
check_ip=truecheck_ip=true表示IP相等
exitfunction
endif
else
netRang=mid(NetIP,slashPos+1)得到/后边的数字
ifnotisNumeric(netRang)then/后边不是数字,格式不正确
exitfunction
endif
netRang=cint(netRang)将字符转为数字
ifnetRang31then
exitfunction/后的数字不能超过32位
endif
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),/)最后一点格式应该是数字/数字
ifsPos=0then
exitfunction
endif
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个字符长的二进制
ifleft(C_IP_BIN,netRang)=left(S_IP_BIN,netRang)then比较网段络是否相同就可以判断用户IP否属于某个网段了
check_ip=true
endif
endif
endfunction

应用举例:

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

ifcheck_ip(61.139.1.1,61.139.0.0/16)then
Response.write同一网段
else
Response.write不是同一网段
endif<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10001190" target="_blank">https://dangbai.cn/Article.asp?ID=10001190</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗