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

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

  1. <%
  2. '/////////////////////////////////////////////////////
  3. '// //
  4. '//作用：一個(gè)IP地址只允許訪問本頁一次 //
  5. '//引用：<!-- #include file="Check_Ip.asp" --> //
  6. '// //
  7. '/////////////////////////////////////////////////////
  8.  
  9. 'Response.Charset = 936 '設(shè)置輸出編碼為簡體中文
  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下通過,其他瀏覽器未測試)
  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)代碼，希望對大家的學(xué)習(xí)有所幫助。