用ASP代码实现对IP的访问限制的代码
更新时间:2007年03月22日 00:00:00 作者:
这是以前用ASP写的,本想改成ASP.net的给大家,后来想大家能看懂算法就行了。IP比对的关键是IP地址的线性化,下面就是代码。
'可以进入的ip
'218.7.44.0 - 218.7.45.253
'61.180.240.0 - 61.180.240.253
'202.118.208.0 - 202.118.223.253
'
'218.7.44.0 3657903103
'218.7.45.253 3657903612
'
'61.180.240.0 1035268095
'61.180.240.253 1035268348
'
'202.118.208.0 3396784127
'202.118.223.253 3396788220
ip=request.servervariables("remote_addr")
sip=split(ip,".")
num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1
response.write(ip)
response.write("<br>")
if ((num>=3657903103 and num<=3657903612) or (num>=1035268095 and num<=1035268348)
or (num>=3396784127 and num<=3396788220)) then
response.write("抱歉,您的ip不合法!")
response.End()
else
response.write("您的ip合法")
end if
复制代码 代码如下:
'可以进入的ip
'218.7.44.0 - 218.7.45.253
'61.180.240.0 - 61.180.240.253
'202.118.208.0 - 202.118.223.253
'
'218.7.44.0 3657903103
'218.7.45.253 3657903612
'
'61.180.240.0 1035268095
'61.180.240.253 1035268348
'
'202.118.208.0 3396784127
'202.118.223.253 3396788220
ip=request.servervariables("remote_addr")
sip=split(ip,".")
num=cint(sip(0))*256*256*256+cint(sip(1))*256*256+cint(sip(2))*256+cint(sip(3))-1
response.write(ip)
response.write("<br>")
if ((num>=3657903103 and num<=3657903612) or (num>=1035268095 and num<=1035268348)
or (num>=3396784127 and num<=3396788220)) then
response.write("抱歉,您的ip不合法!")
response.End()
else
response.write("您的ip合法")
end if
相关文章
Adobe Photoshop CS 简体中文免安装增强版 第三版 下载
Adobe Photoshop CS 简体中文免安装增强版 第三版 下载...2007-02-02让苹果ipod shuffle变成真正意义的U盘和MP3的软件 下载
让苹果ipod shuffle变成真正意义的U盘和MP3的软件 下载...2007-05-05零基础学SQL Server 2005 电子教程/随书光盘迅雷下载地址
《零基础学SQL Server 2005 电子教程/随书光盘》电子教程/随书光盘[ISO]下载2008-05-05Adobe.Dreamweaver.CS3(dreamweaver9.0)简体中文版 下载
Adobe.Dreamweaver.CS3(dreamweaver9.0)简体中文版 下载...2007-06-06加密与解密迅雷网址软件 ThunderCode 1.20/1.4 下载
加密与解密迅雷网址软件 ThunderCode 1.20/1.4 下载...2007-04-04IncrediMail Xe Premium v5.6.5 Build 3054 多国语言版 下载
IncrediMail Xe Premium v5.6.5 Build 3054 多国语言版 下载...2007-07-07CD音频抓取专家 CDex V1.70 c1.4.2 简体中文版下载
CD音频抓取专家 CDex V1.70 c1.4.2 简体中文版下载...2007-03-03FLV影片转换为AVI格式 Flv2avi V0.9 Beta1 简体中文绿色版 下载
FLV影片转换为AVI格式 Flv2avi V0.9 Beta1 简体中文绿色版 下载...2007-04-04
最新评论