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

666828

经常有些地方性的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 = 0arrBadIPPart = 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段来设置。
    我就是用这个方法防止外地用户使用流氓软件恶意到我网站发布信息的!
    以上内容转摘自(易远网络)详细出处请参考：
    中国100位互联网CEO全景调查