Реализация ASP ограничивает метод доступа к IP только один раз

Эта статья в основном представляет метод ограничения IP -доступа к одному времени ASP.

Ограничение 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. 'Установите функцию файлов cookie
15. FunctionSetCookie ()
16. Response.cookies (isbrow) = бровь
17. Response.cookies (isbrow) .expires = date+365
18. Конечная функция
20. 'Функция записи IP -адреса
21. FunctionWriteip (имя файла, iPaddress)
22. Setfso = server.createObject (scripting.filesystemobject)
23. Setts = fso.opentextfile (server.mappath (имя файла), 8, true)
24. Ts.WriteLineIpaddress
25. Ts.close
26. SETTS = ничего
27. Setfso = ничего
28. Конечная функция
30. 'Читать функцию IP -адреса
31. FunctionReadIplist (имя файла)
32. Setfso = server.createObject (scripting.filesystemobject)
33. Ifnotfso.filexists (server.mappath (имя файла))
34. Createfile (iplist.txt)
35. Выходная функция
36. Эндиф
38. Setts = fso.opentextfile (server.mappath (имя файла))
39. Iplist = ts.readall
40. Ts.close
41. SETTS = ничего
42. Setfso = ничего
43. Readiplist = iplist
44. Конечная функция
46. 'Создать файловую функцию
47. FunctionCreatefile (имя файла)
48. Setfso = server.createObject (scripting.filesystemobject)
49. SetCfs = fso.createTextFile (server.mappath (имя файла))
50. Cfs.close
51. SetCfs = ничего
52. Setfso = ничего
53. Конечная функция
55. 'Закрыть текущую функцию оконного окна (примечание: пройденное под IE6, другие браузеры не проверили ее)
56. FunctionCloseWindow ()
57. 'Response.write <script> window.location =' javascript: window.opener = null; window.close (); '</script>
58. Response.redirectthttp: //www.baidu.com
59. Конечная функция
61. Ip = request.servervariables (remote_addr) 'Получите IP -адрес зрителя
63. Cookie = request.cookies (isbrow) 'Получите текущие файлы cookie
64. 'Response.writecookie
66. Ifrequest.servervariables (http_x_forwarded_for) <> then
67. Response.write Этот сайт не допускает доступа к проксиму
68. Response.end ()
69. Еще
70. Ifcookie = browthen
71. CloseWindow ()
72. Еще
73. Ifinstr (readiplist (iplist.txt), ip) <> 0then
74. CloseWindow ()
75. Еще
76. Writeipiplist.txt, ip
77. Эндиф
78. SetCookie ()
79. Эндиф
80. Эндиф
81. %>

Выше приведено код реализации ASP, поделившийся с вами, я надеюсь, что это будет полезно для вашего обучения.