文章主要介紹了asp實(shí)現(xiàn)限制一個(gè)ip只能訪問一次的方法，感興趣的小伙伴們可以參考一下

限制一個(gè)ip只能訪問一次，現(xiàn)在將asp代碼分享給大家：

1. <%
2. '/////////////////////////////////////////////////////
3. '// //
4. '//作用：一個(gè)IP地址只允許訪問本頁(yè)一次 //
5. '//引用：<!-- #include file="Check_Ip.asp" --> //
6. '// //
7. '/////////////////////////////////////////////////////
8.  
9. 'Response.Charset = 936 '設(shè)置輸出編碼為簡(jiǎn)體中文
10. 'Response.Buffer = false '關(guān)閉緩沖區(qū)
11.  
12. Dim Fso,ts,IpList,Cfs
13.  
14. '設(shè)置Cookies函數(shù)
15. Function SetCookie()
16. Response.Cookies("IsBrow") = "Brow"
17. Response.Cookies("IsBrow").Expires = Date+365
18. End Function
19.  
20. '記錄IP地址函數(shù)
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地址函數(shù)
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. '創(chuàng)建文件函數(shù)
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. '關(guān)閉當(dāng)前IE窗口函數(shù)(注:IE6下通過(guò),其他瀏覽器未測(cè)試)
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") '獲取當(dāng)前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實(shí)現(xiàn)代碼，希望對(duì)大家的學(xué)習(xí)有所幫助。