首页 爱情文章 亲情文章 友情文章 生活随笔 校园文章 经典文章 人生哲理 励志文章 搞笑文章 心情日记
  • 爱情文章
  • 亲情文章
  • 友情文章
  • 生活随笔
  • 校园文章
  • 经典文章
  • 人生哲理
  • 励志文章
  • 搞笑文章
  • 心情日记
  • 英语文章
  • 范文大全
  • 作文大全
  • 新闻阅读
    •
    当前位置: 山茶花美文网 > 范文大全 > 正文

    限制一个Ip只能访问一次的asp代码 asp代码

    时间：2020-05-28来源：山茶花美文网 本文已影响 人 山茶花美文网手机站

    限制一个Ip只能访问一次，转载于bacde的技术博客，现在将asp代码分享给大家：

    <%
    "/////////////////////////////////////////////////////
    "// //
    "//作用：一个IP地址只允许访问本页一次 //
    "//作者:BaCde 2010年3月1日 //
    "//引用：<!-- #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 ""
    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
    %>

    • 爱情文章
    • 亲情文章
    • 友情文章
    • 随笔
    • 哲理
    • 励志
    • 范文大全

    最新文章

    热点文章

    推荐访问

    军训远足心得体会 军训爬山心得体会 大学军训徒步拉练感想 军训徒步作文 军训徒步10公里感想 军训徒步心得体会 5分钟演讲中秋节节日 中秋一分钟演讲 中秋节演讲稿4分钟 中秋节演讲稿一分钟 中秋节演讲稿五分钟 3-5分钟 中秋节短篇演讲稿 中秋节演讲稿两分钟 中秋节的演讲稿3分钟 关于中秋节的演讲稿三分钟 孩子体验军训的心得 参加孩子军训活动的感受与收获 家长对孩子军训后的收获和感悟 小孩军训的收获与感悟 学生军训的收获与感悟 孩子军训成长过程家长感悟 孩子军训感悟 孩子军训心得体会 孩子军训的收获与感悟 兵役前训练心得体会 部队当兵的心得 新兵役前教育训练心得体会 预备役军训心得体会 新兵军训感悟

    本文限制一个Ip只能访问一次的asp代码 asp代码由山茶花美文网整理提供，版权归原作者、原出处所有。

    Copyright © 山茶花美文网 All Rights Reserved.