ASP禁止指定IP和允许指定IP访问网站

yibin 2015-02-09 建站源码 540

  这是通过ASP禁止指定IP访问网站和只允许指定IP访问站的代码    一、禁止指定IP防问网站,并执行相应操作:
    代码如下:
    <%
    Dim IP,IPString,VisitIP
    '设置IP地址,用“|”隔开
    IPString="|192.168.0.42|192.168.0.43|"
    '获取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
    '符合禁止的IP执行相应的操作
    Response.write "您所在的IP禁止访问"
    response.end
    End If
    %>
    二、只允许指定IP防问网站,并执行相应操作:
    代码如下:
    <%
    Dim IP,IPString,VisitIP
    '设置IP地址,用“|”隔开
    IPString="|192.168.0.42|192.168.0.42|"
    '获取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
    '符合的IP执行相应的操作
    Response.write 您所在的IP可以访问"
    else
    '不符合的IP执行相应的操作
    Response.write "您所在的IP禁止访问"
    response.end
    End If
    %>
    三、实际应用中的使用方法
    然后把上面其中的代码另存为IP.asp文件,然后用下面方法在asp程序页面加入下面代码即可
    <!-- #include file="IP.asp" -->

扫码添加微信

13013082126 扫描微信 建站咨询 优化咨询