推荐的用Asp实现屏蔽IP地址访问的代码


By zkxp 2/15/2006 http://zkxp.cnblogs.com
‘受屏蔽IP地址(段)集合,星号为通配符,通常保存于配置文件中。
<%
Const BadIPGroup = "220.200.59.136|220.205.168.141"
If IsForbidIP(BadIPGroup) = True Then
Response.Write(GetUserIP &"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(GetUserIP(), ".")

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 GetUserIP()
Dim IP
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then IP = Request.ServerVariables("REMOTE_ADDR")
GetUserIP = IP
End Function
%>



相关阅读:
wiki-shan写的php在线加密的解密程序
推荐的CSS 书写顺序
IIS7.X配置PHP运行环境小结
SQLServer数据库中如何保持数据一致性
突破WinXP中IIS的客户端连接限制
php中3des加密(完全与.net中的兼容)
FreeBSD5.3进行CVSup升级不成功的问题
js基础:window.resizeBy()方法使用示例
JQuery 浮动导航栏实现代码
MySQL数据库中修改密码及访问限制设置详解
PHP 编码规范-空白
模仿163网盘用AJAX实现无刷新文件上传的实例
IE的有条件注释优点和缺点
Linux下单网卡绑定多IP与多网卡共用单IP 的方法
快速导航

Copyright © 2016 phpStudy |