繁體中文当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 正则表达式检查来访IP是否合法的实际应用
- 正则表达式
- js:正则处理超文本流
- 正则表达式高级学习技巧
- 用正则表达式来表示中文
- 正则表达式，相关链接
- js:日期正则表达式及检测
- 正则表达式检查来访IP是否合法的实际应用
- 正则表达式简单的检查输入email是否合法程序
- VBscript 的正则表达式 字符串匹配
- 比较不错的C#中的常用的正则表达式
- EditPlus 正则替换图片ubb替换成img
- 向大家推荐一个收集整理正则表达式的网站
- 正则表达式详述第一部
- 正则表达式详述 二
- 正则表达式详述 三
- 正则表达式详述 四
- 正则(JS)re=new RegExp("^\\d*$");与re=/^\d*$/;之间区别?
- 用正则按最后一个"_"分割"字符
- [PHP]常用正则表达式收集
- 一个非常不错的一个正则练习JS版
- js正则匹配table tr
正则表达式检查来访IP是否合法的实际应用
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 55 ::
收藏到网摘: n/a
正则表达式检查来访IP是否合法的实际应用
sub chkIP(boardid)
dim rsIP
dim ipArr
dim ignored
dim i
dim ip
dim sql
ip=Request.ServerVariables("REMOTE_ADDR")
ignored=false
if not isempty(boardid) then
sql="select ignoreip from board where boardid="&cstr(boardid)
set rsIP=conn.execute(sql)
if not (rsIP.eof and rsIP.bof) then
if instr(cstr(rsIP("ignoreip")&""),chr(13)&chr(10)) then
iparr=split(rsIP("ignoreip"),chr(13)&chr(10))
for i=0 to ubound(iparr)
if trim(iparr(i))<>"" and left(ip,len(trim(iparr(i))))=trim(iparr(i)) then
ignored=true
exit for
end if
next
else
iparr=rsIP("ignoreip")
if ip=trim(iparr) then
ignored=true
end if
end if
end if
rsIP.close
end if
if ignored then
response.write "<script language=javascript>window.location.href='ignoreip.htm'</script>"
end if
end sub
评论 (0) All
