asp实现限制一个ip只能访问一次的方法
限制一个ip只能访问一次,现在将asp代码分享给大家:
<% '///////////////////////////////////////////////////// '//// '//作用:一个IP地址只允许访问本页一次// '//引用:<!--#includefile="Check_Ip.asp"-->// '//// '///////////////////////////////////////////////////// '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"<script>window.location='javascript:window.opener=null;window.close();'</script>" 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实现代码,希望对大家的学习有所帮助。