asp实现限制一个ip只能访问一次的方法

这篇文章主要介绍了asp实现限制一个ip只能访问一次的方法，感兴趣的小伙伴们可以参考一下

限制一个ip只能访问一次，现在将asp代码分享给大家：

1. <%
2. '/////////////////////////////////////////////////////
3. '////
4. '//作用：一个IP地址只允许访问本页一次//
5. '//引用：<!--#includefile=Check_Ip.asp-->//
6. '////
7. '/////////////////////////////////////////////////////
9. 'Response.Charset=936'设置输出编码为简体中文
10. 'Response.Buffer=false'关闭缓冲区
12. DimFso,ts,IpList,Cfs
14. '设置Cookies函数
15. FunctionSetCookie()
16. Response.Cookies(IsBrow)=Brow
17. Response.Cookies(IsBrow).Expires=Date+365
18. EndFunction
20. '记录IP地址函数
21. FunctionWriteIp(FileName,IpAddress)
22. SetFso=Server.CreateObject(Scripting.FileSystemObject)
23. Setts=Fso.OpenTextFile(Server.MapPath(FileName),8,true)
24. ts.WriteLineIpAddress
25. ts.Close
26. Setts=Nothing
27. SetFso=Nothing
28. EndFunction
30. '读取IP地址函数
31. FunctionReadIpList(FileName)
32. SetFso=Server.CreateObject(Scripting.FileSystemObject)
33. IfNotFso.FileExists(Server.MapPath(FileName))Then
34. CreateFile(Iplist.txt)
35. ExitFunction
36. EndIf
38. Setts=Fso.OpenTextFile(Server.MapPath(FileName))
39. Iplist=ts.ReadAll
40. ts.Close
41. Setts=Nothing
42. SetFso=Nothing
43. ReadIpList=Iplist
44. EndFunction
46. '创建文件函数
47. FunctionCreateFile(FileName)
48. SetFso=Server.CreateObject(Scripting.FileSystemObject)
49. SetCfs=Fso.CreateTextFile(Server.MapPath(FileName))
50. Cfs.Close
51. SetCfs=Nothing
52. SetFso=Nothing
53. EndFunction
55. '关闭当前IE窗口函数(注:IE6下通过,其他浏览器未测试)
56. FunctionCloseWindow()
57. 'Response.Write<script>window.location='javascript:window.opener=null;window.close();'</script>
58. Response.Redirecthttp://www.baidu.com
59. EndFunction
61. Ip=Request.ServerVariables(REMOTE_ADDR)'获取浏览者IP地址
63. Cookie=Request.Cookies(IsBrow)'获取当前Cookies
64. 'Response.WriteCookie
66. IfRequest.ServerVariables(HTTP_X_FORWARDED_FOR)<>Then
67. Response.Write本站不允许使用代理访问
68. Response.End()
69. Else
70. IfCookie=BrowThen
71. CloseWindow()
72. Else
73. IfInstr(ReadIpList(Iplist.txt),Ip)<>0Then
74. CloseWindow()
75. Else
76. WriteIpIplist.txt,Ip
77. EndIf
78. SetCookie()
79. EndIf
80. EndIf
81. %>

以上就是分享给大家的asp实现代码，希望对大家的学习有所帮助。