- <%
- ''获取访问者的地址
- 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)
- function checkip(ip,allowip1,allowip2)
- dim check(4)
- checkip=false
- ipstr=split(ip,".")
- allow1=split(allowip1,".")
- allow2=split(allowip2,".")
- if cint(allow1(0))>cint(allow2(0)) then ''判断IP地址段是否合法
- response.write "禁止访问"
- exit function
- end if
- for i=0 to ubound(ipstr)
- if cint(allow1(i))<cint(allow2(i)) then
- if cint(allow1(i))=cint(ipstr(i)) then
- check(i)=true
- checkip=true
- exit for
- else
- if cint(ipstr(i))<cint(allow2(i)) then
- check(i)=true
- checkip=true
- exit for
- else
- if cint(ipstr(i))>cint(allow2(i)) then
- check(i)=false
- checkip=false
- exit for
- else
- check(i)=true
- checkip=true
- end if
- end if
- end if
- else
- if cint(allow1(i))>cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) then
- check(i)=false
- checkip=false
- if i<>ubound(ipstr) then
- exit for
- end if
- else
- check(i)=true
- end if
- end if
- next
- if (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))>cint(ipstr(2))) then
- checkip=true
- end if
- end function
- %>
Asp下实现限制IP访问的程序代码
2019-10-16 09:52asp代码网 ASP教程
Asp下实现限制IP访问的程序代码
延伸 · 阅读
- 2019-10-16ASP中实现限制IP的函数详解
- 2019-10-16asp下DateDiff 函数参数说明
- 2019-10-16asp下调试程序的debug类
- 2019-10-16用asp实现网页邮箱访问的方法
- 2019-10-16编写一个含二级目录的源码(Asp+JavaScript)
- 2019-10-16asp下删除Access数词库中的空记录的sql语句
精彩推荐
- ASP教程
ASP BASE64加解密(亲测可用)
之前脚本之家小编已经为大家分享了了几个asp BASE64加解密函数代码,不过实际用的过程中都有这样或那样的问题,现在重新整理一个...
- ASP教程
asp知识整理笔记4(问答模式)
继前几篇篇《asp知识整理笔记1》和《asp知识整理笔记2》,《asp知识整理笔记3》新鲜出炉: 23、问题:在ASP文件中读取HTML的表单字段有几种方法? 答:R...
- ASP教程
在ASP编程中nothing代表什么意思?
在ASP编程中nothing代表什么意思?...
- ASP教程
ASP XML编程objXML.async = False
XML数据组合进ASP应用程序的时候,需要做的第一件事是访问XML文件的内容。 ...
- ASP教程
一句话 asp木马加密版 彻底突破杀毒软件
一句话 asp木马加密版 彻底突破杀毒软件...
- ASP教程
一个不太让人讨厌的自动弹出窗口
如何让一个弹出窗口不让人讨厌是个问题自动弹出窗口是一个让人讨厌的事情,为什么我们用它来显示我们的调查表呢? ...
- ASP教程
Access模糊查询查不到数据的解决方法
由于Access中的模糊查询语句 like 里的通配符不是%而是*,所以要注意一下 ...
- ASP教程
ASP文件中的安全问题
ASP具有简单、易用、多功能,可扩充性等强大功能,但也存在一些问题。譬如,如果使用ASP的话,可能会导致网络的安全性大大降低了! ...