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實現代碼，希望對大家的學習有所幫助。