咔叽游戏

 找回密码
 立即注册

QQ登录

只需一步,快速开始

搜索
查看: 266|回复: 0

[ASP编程] asp实现限制一个ip只能访问一次的方法

[复制链接]
  • TA的每日心情
    无聊
    2019-5-27 08:20
  • 签到天数: 4 天

    [LV.2]圆转纯熟

    发表于 2020-2-16 17:04:53 | 显示全部楼层 |阅读模式
    限制一个ip只能访问一次,现在将asp代码分享给大家:

    <%
    '/////////////////////////////////////////////////////
    '// //
    '//作用:一个IP地址只允许访问本页一次 //
    '//引用:<!-- #include file="Check_Ip.asp" --> //
    '// //
    '/////////////////////////////////////////////////////

    'Response.Charset = 936 '设置输出编码为简体中文
    'Response.Buffer = false '关闭缓冲区

    Dim Fso,ts,IpList,Cfs

    '设置Cookies函数
    Function SetCookie()
    Response.Cookies("IsBrow") = "Brow"
    Response.Cookies("IsBrow").Expires = Date+365
    End Function

    '记录IP地址函数
    Function WriteIp(FileName, IpAddress)
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    Set ts = Fso.OpenTextFile(Server.MapPath(FileName),8,true)
    ts.WriteLine IpAddress
    ts.Close
    Set ts = Nothing
    Set Fso = Nothing
    End Function

    '读取IP地址函数
    Function ReadIpList(FileName)
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    If Not Fso.FileExists(Server.MapPath(FileName)) Then
    CreateFile("Iplist.txt")
    Exit Function
    End If

    Set ts = Fso.OpenTextFile(Server.MapPath(FileName))
    Iplist = ts.ReadAll
    ts.Close
    Set ts = Nothing
    Set Fso = Nothing
    ReadIpList = Iplist
    End Function

    '创建文件函数
    Function CreateFile(FileName)
    Set Fso = Server.CreateObject("Scripting.FileSystemObject")
    Set Cfs = Fso.CreateTextFile(Server.MapPath(FileName))
    Cfs.Close
    Set Cfs = Nothing
    Set Fso = Nothing
    End Function

    '关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试)
    Function CloseWindow()
    'Response.Write "<script>window.location='javascript:window.opener=null;window.close();'</script>"
    Response.Redirect "http://www.baidu.com"
    End Function

    Ip = Request.ServerVariables("REMOTE_ADDR") '获取浏览者IP地址

    Cookie = Request.Cookies("IsBrow") '获取当前Cookies
    'Response.Write Cookie

    If Request.ServerVariables("HTTP_X_FORWARDED_FOR") <> "" Then
    Response.Write "本站不允许使用代理访问"
    Response.End()
    Else
    If Cookie = "Brow" Then
    CloseWindow()
    Else
    If Instr(ReadIpList("Iplist.txt"),Ip) <> 0 Then
    CloseWindow()
    Else
    WriteIp "Iplist.txt" , Ip
    End If
    SetCookie()
    End If
    End If
    %>
    以上就是分享给大家的asp实现代码,希望对大家的学习有所帮助。

    QQ|免责声明|小黑屋|手机版|Archiver|咔叽游戏

    GMT+8, 2024-3-29 23:20

    Powered by Discuz! X3.4

    © 2001-2023 Discuz! Team.

    快速回复 返回顶部 返回列表