Home>Network programming tutorial>ASP tutorial

Asp implementation limits the method of accessing an IP only once

Author：Eve Cole Update Time：2025-03-07 09:32:02

This article mainly introduces the method of limiting an IP access to a single time asp implementation. Interested friends can refer to it.

Restricting an IP to access only once, now I will share the asp code with you:

  1. <%
  2. '///////////////////////////////////////////////////////////////////////// /////
  3. '////
  4. '//Function: One IP address only allows access to this page once//
  5. '//Quote: <!--#includefile=Check_Ip.asp-->//
  6. '////
  7. '///////////////////////////////////////////////////////////////////////// /////
  9. 'Response.Charset=936' Set the output encoding to Simplified Chinese
  10. 'Response.Buffer=false' Close the buffer
  12. DimFso,ts,IpList,Cfs
  14. 'Set the Cookies function
  15. FunctionSetCookie()
  16. Response.Cookies(IsBrow)=Brow
  17. Response.Cookies(IsBrow).Expires=Date+365
  18. EndFunction
  20. 'Record IP address function
  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. 'Read IP address function
  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. 'Create a file function
  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. 'Close the current IE window function (Note: passed under IE6, other browsers have not tested it)
  56. FunctionCloseWindow()
  57. 'Response.Write<script>window.location='javascript:window.opener=null;window.close();'</script>
  58. Response.Redirectthttp://www.baidu.com
  59. EndFunction
  61. Ip=Request.ServerVariables(REMOTE_ADDR)'Get the viewer's IP address
  63. Cookie=Request.Cookies(IsBrow)'Get the current cookies
  64. 'Response.WriteCookie
  66. IfRequest.ServerVariables(HTTP_X_FORWARDED_FOR)<>Then
  67. Response.Write This site does not allow proxy access
  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. %>

The above is the asp implementation code shared with you, I hope it will be helpful to your learning.

Related Articles