这篇文章主要介绍了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.Redirecthttp://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=BrowThen
- CloseWindow()
- Else
- IfInstr(ReadIpList(Iplist.txt),Ip)<>0Then
- CloseWindow()
- Else
- WriteIpIplist.txt,Ip
- EndIf
- SetCookie()
- EndIf
- EndIf
- %>
以上就是分享给大家的asp实现代码,希望对大家的学习有所帮助。