文章主要介紹了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實現代碼，希望對大家的學習有所幫助。