La implementación de ASP limita el método de acceder a una IP solo una vez

Este artículo presenta principalmente el método de limitar un acceso IP a una sola implementación de ASP.

Restringir una IP para acceder solo una vez, ahora compartiré el código ASP con usted:

1. <%
2. '////////////////////////////////////////////// ///////////////////// /////
3. '///
4. '// Función: una dirección IP solo permite el acceso a esta página una vez //
5. '// CITA: <!-#includeFile = check_ip.asp-> //
6. '///
7. '////////////////////////////////////////////// ///////////////////// /////
9. 'Response.Charset = 936' Establezca la codificación de salida a chino simplificado
10. 'Response.Buffer = False' Cierre el búfer
12. Dimfso, ts, iplist, cfs
14. 'Establecer la función de cookies
15. Functionsetcookie ()
16. Response.cookies (isbrow) = ceja
17. Response.cookies (isbrow) .expires = fecha+365
18. Función final
20. 'Grabar función de dirección IP
21. FunctionWriteIP (nombre de archivo, ipaddress)
22. Setfso = server.createObject (scripting.filesystemObject)
23. Setts = fso.opentextfile (server.mappath (nombre de archivo), 8, verdadero)
24. ts.writeLineipaddress
25. tshlose
26. Setts = nada
27. Setfso = nada
28. Función final
30. 'Lea la función de la dirección IP
31. FunctionReadIlist (nombre de archivo)
32. Setfso = server.createObject (scripting.filesystemObject)
33. Ifnotfso.fileExists (server.mappath (nombre de archivo)) luego
34. CreateFile (iplist.txt)
35. Extinción
36. Endif
38. Setts = fso.opentextfile (server.mappath (nombre de archivo))
39. IPlist = ts.Readall
40. tshlose
41. Setts = nada
42. Setfso = nada
43. Readiplist = iPlist
44. Función final
46. 'Crear una función de archivo
47. FunctionCreateFile (nombre de archivo)
48. Setfso = server.createObject (scripting.filesystemObject)
49. Setcfs = fso.createTextFile (server.mappath (nombre de archivo))
50. Cfs.lose
51. Setcfs = nada
52. Setfso = nada
53. Función final
55. 'Cierre la función de ventana IE actual (nota: Pasado en IE6, otros navegadores no la han probado)
56. FunctCloseWindow ()
57. 'Response.Write <Script> Window.location =' javaScript: window.opener = null; window.close (); '</script>
58. Response.RedirectThttp: //www.baidu.com
59. Función final
61. Ip = request.serverVariAbles (remoto_addr) 'Obtenga la dirección IP del visor
63. Cookie = request.cookies (isbrow) 'Obtenga las cookies actuales
64. 'Respuesta.Writecookie
66. Ifrequest.servervariables (http_x_forwarded_for) <> entonces
67. Respuesta. Escribe Este sitio no permite el acceso proxy
68. Respuesta.end ()
69. Demás
70. Ifcookie = Browthen
71. CloseWindow ()
72. Demás
73. Ifinstr (readiplist (iPlist.txt), ip) <> 0then
74. CloseWindow ()
75. Demás
76. WriteipipList.txt, IP
77. Endif
78. Setcookie ()
79. Endif
80. Endif
81. %>

Lo anterior es el código de implementación ASP compartido con usted, espero que sea útil para su aprendizaje.