菜鸟者资讯

<%
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
%>