(2))>cint(ipstr(2))) then checkip=true end if end function %>
and
check(3)=false)
and
ASP 版:限制某个地区或某个 IP 地址访问网站并跳转指定网址 将下面的代码保存为 INDEX.ASP 放到网站根目录下,原网站首页改名为 INDE.HTM
XML/HTML 代码 <% Function RegReplace(vStr,vReg,vCode) Dim Re Set Re = New RegExp Re.Pattern = vReg Re.IgnoreCase = True Re.Global = True If Re.Test(vStr) Then vStr = Re.Replace(vStr,vCode) End If RegReplace = vStr End Function dim
weburl,HostName dim conna,connstra,dba dba="useraddress.mdb" set conna=Server.CreateObject("ADODB.CONNECTION") connstra="Provider=Microsoft.Jet.OLEDB.4.0;data Source="&;Server.MapPath(dba) conna.open connstra user_ip = Request.ServerVariables("REMOTE_ADDR") '取得访问者 IP userip_ary=split(user_ip,".") tmp_userip=userip_ary(0)*256*256*256+userip_ary(1)*256*256+userip_ary(2)*256+userip_ary( 3) ' 按规定转换 IP 为数字 sql="select count(*) from dv_address where ip1<="&;tmp_userip&;" and ip2>="&;tmp_userip iCount = conna.Execute(
sql)(0) if iCount=0 then '外地显示内容 response.redirect("inde.htm") else '北京显示内容 response.redirect("北京地区访问跳转的网址") end if %> 其中有个 ACCESS 数据库,和 INDEX.ASP 放在同级目录下,全打包下载:禁止 ip.rar 还有一种方法是直接限制某个 IP 或是某个 IP 段访问网站, 相对来说比较简单, 直接在 ASP 网页中加入如下代码即可: XML/
HTML 代码
<% '受屏蔽 IP 地址(段)集合,星号为通配符,通常保存于配置文件中。 Const BadIPGroup "192.168.1.*|202.68.*.*|*.12.55.34|185.*.96.24|127.*.0.1|192.168.0.1" If IsForbidIP(BadIPGroup) = True Then Response.Write(GetIP &;"IP 地址禁止访问") Response.End() End If
=
'参数 vBadIP:要屏蔽的 IP 段,IP 地址集合,用|符号分隔多个 IP 地址(段) '返回 Bool:True 用户 IP 在被屏蔽范围,False 反之 Function IsForbidIP(vBadIP) Dim counter, arrIPPart, arrBadIP, arrBadIPPart, i, j arrBadIP = Split(vBadIP, "|") arrIPPart = Split(GetIP(), ".") For i = 0 To UBound(arrBadIP) counter = 0 arrBadIPPart = Split(arrBadIP(i), ".") For j = 0 To UBound(arrIPPart) If(arrBadIPPart(j)) = "*" or Cstr(arrIPPart(j)) = Cstr(arrBadIPPart(j)) Then countercounter = counter + 1 End If Next If counter = 4 Then IsForbidIP = True Exit Function End If Next IsForbidIP = False End Function ''返回客户 IP 地址 Function GetIP() Dim IP IP = Request.ServerVariables("HTTP_X_FORWARDED_
FOR") If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR") GetIP = IP End Function
%> ASP 过滤 IP 限制访问网站的方法 源
程序示例如下:
以下为引用的内容:
<html> <head> <metahttp-equiv=“Content-Type”content=“text/html;charset=gb_2312-80”> <metaname=“GENERATOR”content=“MicrosoftFrontPageExpress2.0”> <style> <!-- .as{line-height:15px;font-size:9pt} a:hover{color:rgb(0,51,240);text-decoration:underline} .p9{font-family:“宋体”;font-size:9pt;line-height:15pt} .p12{font-family:“宋体”;font-size:12pt;line-height:18pt} a:link{text-decoration:none;} a:visited{text-decoration:none;} a:hover{text-decoration:underline;font-size:125%;color:blue} --> </style> <title>ASP 页面防火墙功能
演示</title> </head> <bodybackground=“back.jpg”> <% ′使用 Request.ServerVariables(“REMOTE_ADDR”)得到 IP 地址并保存在变量 rip 中 rip=Request.ServerVariables(“REMOTE_ADDR”) strip=cstr(rip