您正在使用IPV4(3.236.253.192)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务       [公益] 节省一分零钱 献出一份爱心 温暖世间真情      
虚位以待
2021年 冬至节 56
2021年 圣诞节 60
2022年 元 旦 67
2022年 春 节 98
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    asp代码实现限制一个ip只能访问网站一次的方法
    内容摘要: 限制一个ip只能访问一次,现在将asp代码分享给大家:原理:当用户第一次访问的时候,得到用户的IP,然后把IP存到Iplist.txt中去。下次再访问的时候,先去Iplist.txt中查询他的IP是否存在,正在的话就不允许访问%''////'//作用:一个IP地址只允许访问本页一次//'//引用://'////''Response.Charset=936'设......
    限制一个ip只能访问一次,现在将asp代码分享给大家:

    原理:当用户第一次访问的时候,得到用户的IP,然后把IP存到Iplist.txt中去。下次再访问的时候,先去Iplist.txt中查询他的IP是否存在,正在的话就不允许访问

    <%

    '

    '////

    '//作用:一个IP地址只允许访问本页一次//

    '//引用://

    '////

    '

    'Response.Charset=936'设置输出编码为简体中文

    'Response.Buffer=false'关闭缓冲区

    DimFso,ts,IpList,Cfs

    '设置Cookies函数

    FunctionSetCookie()

    Response.Cookies("IsBrow")="Brow"

    Response.Cookies("IsBrow").Expires=Date+365

    EndFunction

    '记录IP地址函数

    FunctionWriteIp(FileName,IpAddress)

    SetFso=Server.CreateObject("Scripting.FileSystemObject")

    Setts=Fso.OpenTextFile(Server.MapPath(FileName),8,true)

    ts.WriteLineIpAddress

    ts.Close

    Setts=Nothing

    SetFso=Nothing

    EndFunction

    '读取IP地址函数

    FunctionReadIpList(FileName)

    SetFso=Server.CreateObject("Scripting.FileSystemObject")

    IfNotFso.FileExists(Server.MapPath(FileName))Then

    CreateFile("Iplist.txt")

    ExitFunction

    EndIf

    Setts=Fso.OpenTextFile(Server.MapPath(FileName))

    Iplist=ts.ReadAll

    ts.Close

    Setts=Nothing

    SetFso=Nothing

    ReadIpList=Iplist

    EndFunction

    '创建文件函数

    FunctionCreateFile(FileName)

    SetFso=Server.CreateObject("Scripting.FileSystemObject")

    SetCfs=Fso.CreateTextFile(Server.MapPath(FileName))

    Cfs.Close

    SetCfs=Nothing

    SetFso=Nothing

    EndFunction

    '关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试)

    FunctionCloseWindow()

    'Response.Write""

    Response.Redirect"http://www.baidu.com"

    EndFunction

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

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

    'Response.WriteCookie

    IfRequest.ServerVariables("HTTP_X_FORWARDED_FOR")<>""Then

    Response.Write"本站不允许使用代理访问"

    Response.End()

    Else

    IfCookie="Brow"Then

    CloseWindow()

    Else

    IfInstr(ReadIpList("Iplist.txt"),Ip)<>0Then

    CloseWindow()

    Else

    WriteIp"Iplist.txt",Ip

    EndIf

    SetCookie()

    EndIf

    EndIf

    %>

    版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。
    上一篇:ASP解析JSON格式数据最简单的方法 下一篇:asp实现时间戳函数
    发布日期:2021/10/8
    手机扫二维码直达本页
    发布时间:15:15:35
    点击:215
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.0.6.10688 Build 21.10.13(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    ©2000-2021