ASP代码中如何屏蔽ip地址 禁止某IP段访问网站

王朝网站推广·作者佚名  2011-12-04
窄屏简体版  字體: |||超大  

经常有些地方性的B2B或者B2C网站到处都被批量发布好多垃圾信息,把我的解决办法分享给大家:

把以下代码加入到你的ASP页面就可以测试到效果了:

<%

'受屏蔽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

counter = 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

%>

这样就可以限制网站访问的IP段了,你可以根据地区的IP段来设置。

我就是用这个方法防止外地用户使用流氓软件恶意到我网站发布信息的!

以上内容转摘自(易远网络)详细出处请参考:http://www.05371.com/content/200891013820.html

中国100位互联网CEO全景调查 http://www.admin5.com/article/20080921/105173.shtml

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航