asp中巧使用正则表达式实现IP锁定的功能-----淘特网(http://www.tot.name)

asp中巧使用正则表达式实现IP锁定的功能

作者：淘特网日期： 2006-6-13 15:26:31 访问次数：出处：http://www.tot.name

显示选项:自动滚屏[左键停止]

作者：淘特网
出处：www.tot.name
注：转载请注明出处

最近开发淘特CMS系统，需要个IP锁定的功能，经过一翻思考，终于实现了以下比较简便、高效的方法。
程序很简单，相信您一看就明白了。

<%
Function IPFilter(iplist, uip)
Dim regEx, retVal,patrn,ipArr
ipArr=split(iplist,"|")
for i=0 to ubound(ipArr)
  patrn=replace(ipArr(i),"*","\d{1,3}")
  Set regEx = New RegExp
  regEx.Pattern = patrn
  regEx.IgnoreCase = False
  retVal = regEx.Test(uip)
  If retVal Then
   exit for
  End If
  Set regEx=nothing
next
IPFilter=retVal
End Function
dim ipStr,userip
ipStr="192.168.0.*|192.168.1.*|192.168.*.1|192.*.168.5|192.168.*.*"
userip="192.23.34.5"
if(IPFilter(ipStr,userip)) then
response.Write("锁定的IP")
else
response.Write("欢迎访问")
end if
%>

⊕相关文章