ASP禁止IP访问

<%
Dim IP,IPString,VisitIP
'要禁止的IP地址
IPString="|219.142.118.71|127.0.0.1|"
'获取IP地址
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If
VisitIP="|"&IP&"|"
If instr(1,IPString,VisitIP)>0 Then
response.write "你的IP被禁止"
response.end
End If
response.Write("你的IP:"&IP&"可以访问本站")
%>


<%
Dim IP,forbidIP1,forbidIP2,isForbid
''获取访问者的地址
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" Then
IP = Request.ServerVariables("REMOTE_ADDR")
End If

''禁止的IP地址段为220.191.0.0~220.191.255.255
forbidIP1="220.191.0.0"
forbidIP2="220.191.255.255"
isForbid=CheckIP(IP,forbidIP1,forbidIP2)
If isForbid=true Then
response.Write("禁止访问!")
response.End()
End IF
Response.Write(IP)

Function CheckIP(IP,forbidIP1,forbidIP2)
Dim IPString,forbid1,forbid2,forbid
forbid=false
IPString=split(IP,".")
forbid1=split(forbidIP1,".")
forbid2=split(forbidIP2,".")
If cint(IPString(0))>cint(forbid1(0)) And cint(IPString(0))forbid=true
ElseIF cint(IPString(1))>cint(forbid1(1)) And cint(IPString(1))forbid=true
ElseIF cint(IPString(2))>cint(forbid1(2)) And cint(IPString(2))forbid=true
ElseIF cint(IPString(3))>=cint(forbid1(3)) And cint(IPString(3))<=cint(forbid2(3)) Then
forbid=true
End IF
End Function
%>



上一篇: asp在线人数
下一篇: ASP读取XML
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1126
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭