<%
dim ipStr,userip
ipStr="10.119.0.*|10.119.1.*|10.119.*.1|10.*.99.1|10.119.*.*"
userip="1.11.99.15"
if(IPFilter(ipStr,userip)) then
response.Write("锁定的IP")
else
response.Write("欢迎访问")
end if

'-----------------------------------
'函数:IPFilter
'参数：iplist IP列表 uip判断是否在列表内
'----------------------------------
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  'retVal位True代表锁定
   exit for 
  End If
  Set regEx=nothing
next
response.Write retVal
IPFilter=retVal
End Function
%>

    希望这篇的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn