您好,在这里您可以咨询:域名、空间、邮局、网站制作费用等相关问题。 客服工作人员
您好,在这里您可以咨询:域名、空间、邮局、网站制作售后服务等相关问题。 售后工作人员
您好,技术问题一一为您解答。 技术工作人员

     网站建设
定制建站 CYWEB.CN
专业策划 CYWEB.CN
建站流程 CYWEB.CN
建站售后 CYWEB.CN
SEO优化 CYWEB.CN
网站登录 CYWEB.CN
网络营销 CYWEB.CN
我的客户 CYWEB.CN
成功案例 CYWEB.CN
建站合同 CYWEB.CN
制作需求 CYWEB.CN

     新闻中心
公司新闻 CYWEB.CN
 
技术 CYWEB.CN
 
客服 CYWEB.CN
公司公告 CYWEB.CN
破解补丁 CYWEB.CN


一段禁止IP访问的ASP代码
发布&更新:2010-5-27 浏览次数:10730 下载地址:点击下载 问题反馈:报告Bug

<%
Const IPGroup = "192.168.0.1|192.168.1.1"

If IsForbidIP(IPGroup) = false Then
    Response.Write(GetIP &"     系统禁止您的 IP 访问")
    Response.End()
End If


'****************************************************************
'以上代码设置为:如果不是192.168.0.1|192.168.1.1段的IP禁止访问
'参数vBadIP:要屏蔽的IP段,IP地址集合,用|符号分隔多个IP地址(段)
'返回Bool:True用户IP在被屏蔽范围,False则为允许.
'使用的方法为include文件就可以使用...
'****************************************************************
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
%>



返回 |  顶部 |  建站知识