A implementação do ASP limita o método de acessar um IP apenas uma vez

Este artigo apresenta principalmente o método de limitar um acesso de IP a uma única implementação do ASP.

Restringindo um IP para acessar apenas uma vez, agora vou compartilhar o código ASP com você:

1. <%
2. '/////////////////////////////////////////////////////////Ticol /////////////////////////////
3. '////
4. '// Função: um endereço IP apenas permite o acesso a esta página uma vez //
5. '// Citação: <!-#incluirfile = check_ip.asp-> //
6. '////
7. '/////////////////////////////////////////////////////////Ticol /////////////////////////////
9. 'Response.charset = 936' Defina a codificação de saída como chinês simplificado
10. 'Response.buffer = false' Feche o buffer
12. Dimfso, ts, iplist, cfs
14. 'Defina a função de cookies
15. Funçõesetcookie ()
16. Response.Cookies (Isbrow) = Brow
17. Response.cookies (Isbrow) .Expires = Data+365
18. Função final
20. 'Função de endereço IP gravado
21. FunctionWriteip (nome do arquivo, iPaddress)
22. Setfso = server.createObject (script.filesystemoBject)
23. Setts = fso.opentExtFile (Server.mappath (nome do arquivo), 8, true)
24. ts.WriteLineipAddress
25. ts.close
26. Setts = nada
27. Setfso = nada
28. Função final
30. 'Leia a função de endereço IP
31. FunctionReadiList (nome do arquivo)
32. Setfso = server.createObject (script.filesystemoBject)
33. Ifnotfso.fileExists (server.mappath (nome do arquivo)) então
34. Createfile (iplist.txt)
35. Saída de saída
36. Endif
38. Setts = fso.opentExtFile (Server.mappath (nome do arquivo))
39. Iplist = ts.readall
40. ts.close
41. Setts = nada
42. Setfso = nada
43. Readiplist = iplist
44. Função final
46. 'Crie uma função de arquivo
47. FunctionCreatefile (nome do arquivo)
48. Setfso = server.createObject (script.filesystemoBject)
49. Setcfs = fso.createTextFile (Server.mappath (nome do arquivo))
50. Cfs.close
51. Setcfs = nada
52. Setfso = nada
53. Função final
55. 'Feche a função atual da janela do IE (Nota: Passado em IE6, outros navegadores não o testaram)
56. FunctionCloseWindow ()
57. 'Response.write <cript> window.location =' javascript: window.opener = null; window.close (); '</script>
58. Response.RedirectThttp: //www.baidu.com
59. Função final
61. Ip = request.servervariables (remote_addr) 'Obtenha o endereço IP do espectador
63. Cookie = request.cookies (Isbrow) 'Obtenha os cookies atuais
64. 'Response.WritEcookie
66. IfRequest.Servervariables (http_x_forwarded_for) <> então
67. Response.Write Este site não permite acesso proxy
68. Response.end ()
69. Outro
70. Ifcookie = Browthen
71. CloseWindow ()
72. Outro
73. Ifinstr (readiplist (iplist.txt), ip) <> 0then
74. CloseWindow ()
75. Outro
76. WriteipipList.txt, IP
77. Endif
78. Setcookie ()
79. Endif
80. Endif
81. %>

O exposto acima é o código de implementação do ASP compartilhado com você, espero que seja útil para o seu aprendizado.