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

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

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

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

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