asp中对ip进行过滤限制函数

2016-01-29 18:45 4 1 收藏

asp中对ip进行过滤限制函数,asp中对ip进行过滤限制函数

【 tulaoshi.com - ASP 】

看了一些IP限制的函数，觉得太复杂。所以，试着写了一个，比较简单。请网友参考指教。谢谢！～

代码拷贝框
<%'获取访问者的地址ip=Request.ServerVariables("REMOTE_ADDR") '允许的IP地址段为10.0.0.0～10.68.63.255allowip1="10.0.0.0"allowip2="10.68.10.71"response.write checkip(ip,allowip1,allowip2)function checkip(ip,allowip1,allowip2)dim check(4)checkip=falseipstr=split(ip,".")allow1=split(allowip1,".")allow2=split(allowip2,".")if cint(allow1(0))cint(allow2(0)) then '判断IP地址段是否合法response.write "IP地址段出错！"exit functionend iffor i=0 to ubound(ipstr)if cint(allow1(i))<cint(allow2(i)) thenif cint(allow1(i))=cint(ipstr(i)) thencheck(i)=truecheckip=trueexit forelseif cint(ipstr(i))<cint(allow2(i)) thencheck(i)=truecheckip=trueexit forelseif cint(ipstr(i))cint(allow2(i)) thencheck(i)=falsecheckip=falseexit forelsecheck(i)=truecheckip=trueend ifend ifend ifelseif cint(allow1(i))cint(ipstr(i)) or cint(allow1(i))<cint(ipstr(i)) thencheck(i)=falsecheckip=falseif i<ubound(ipstr) thenexit forend ifelsecheck(i)=trueend ifend ifnextif (check(0)=true and check(1)=true and check(2)=true and check(3)=false) and (cint(allow2(2))cint(ipstr(2))) thencheckip=trueend ifend function%

来源:http://www.tulaoshi.com/n/20160129/1507136.html

上一篇：《侠盗猎车5》全福银行与逃狱事件通关技巧攻略
下一篇：在ASP中通过oo4o连接Oracle数据库的例子

看过《asp中对ip进行过滤限制函数》的人还看了以下文章更多>>

ASP中时间函数的使用(一)

标签： ASP

Date 函数描述:返回当前系统日期。语法:Date DateAdd 函数描述:返回已添加指定时间间隔的日期。语法:DateAdd(interval, number, date) interval: 必选。字符串表达式，表示要添加的时间间隔。有关数值，请参阅“设置”部分。 number: 必选。数值表达式，表示要添加的时间间隔的个数。数值表达式可以是正数（得到未来的日期）或负...

Javascript对url进行编码的几个函数

标签： Web开发

javascript中存在几种对URL字符串进行编码的方法：escape()，encodeURI()，以及encodeURIComponent()。这几种编码所起的作用各不相同。 escape() 方法：采用ISO Latin字符集对指定的字符串进行编码。所有的空格符、标点符号、特殊字符以及其他非ASCII字符都将被转化成%xx格式的字符编码（xx等于该字符在字符集表里面的编码的16进制数字）...

如何对某个端口限制IP访问比如针对1521端口只允许某个IP访问

标签： Linux Linux命令 Linux安装 Linux编程 Linux桌面 Linux软件 Linux内核 Linux管理

如何对某个端口限制IP访问比如针对1521端口只允许某个IP访问 leon 回复于：2001-12-12 08:26:48 哈哈，你也遇到和我一样的问题，是oracle的端口吧！我也还没有找到解决的办法 tiaozao 回复于：2001-12-17 15:09:47 装 ipfilter ranran 回复于：2001-12-17 16:58:48 好象只能通过防火墙来实现 bear 回复于：2001-12-17 22:23:58 不知...

ASP自定义函数仿VBA中域函数DLookup

标签： Web开发

Function dlookup(strFieldName, strTableName, strWhere, objConn) '参考Access VBA 中的Dlookup函数 '由于环境不同，加了ObjConn参数，直接将Adodb.connection直接调进来 Dim strsql Dim rs Set rs = server.Cr...

ASP自定义函数仿VBA中域函数DLookup