Эта статья в основном представляет метод ограничения IP -доступа к одному времени ASP.
Ограничение IP -адреса для доступа только один раз, теперь я поделюсь с вами кодом ASP:
- <%
- '/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////// /////
- '////
- '// Функция: один IP -адрес позволяет только доступ к этой странице один раз //
- '// Цитата: <!-#includefile = check_ip.asp-> //
- '////
- '/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////// //////////////////////// /////
- 'Response.charset = 936' Установите вывод, кодирование для упрощенного китайца
- 'Response.buffer = false' закройте буфер
- Dimfso, ts, iplist, cfs
- 'Установите функцию файлов cookie
- FunctionSetCookie ()
- Response.cookies (isbrow) = бровь
- Response.cookies (isbrow) .expires = date+365
- Конечная функция
- 'Функция записи IP -адреса
- FunctionWriteip (имя файла, iPaddress)
- Setfso = server.createObject (scripting.filesystemobject)
- Setts = fso.opentextfile (server.mappath (имя файла), 8, true)
- Ts.WriteLineIpaddress
- Ts.close
- SETTS = ничего
- Setfso = ничего
- Конечная функция
- 'Читать функцию IP -адреса
- FunctionReadIplist (имя файла)
- Setfso = server.createObject (scripting.filesystemobject)
- Ifnotfso.filexists (server.mappath (имя файла))
- Createfile (iplist.txt)
- Выходная функция
- Эндиф
- Setts = fso.opentextfile (server.mappath (имя файла))
- Iplist = ts.readall
- Ts.close
- SETTS = ничего
- Setfso = ничего
- Readiplist = iplist
- Конечная функция
- 'Создать файловую функцию
- FunctionCreatefile (имя файла)
- Setfso = server.createObject (scripting.filesystemobject)
- SetCfs = fso.createTextFile (server.mappath (имя файла))
- Cfs.close
- SetCfs = ничего
- Setfso = ничего
- Конечная функция
- 'Закрыть текущую функцию оконного окна (примечание: пройденное под IE6, другие браузеры не проверили ее)
- FunctionCloseWindow ()
- 'Response.write <script> window.location =' javascript: window.opener = null; window.close (); '</script>
- Response.redirectthttp: //www.baidu.com
- Конечная функция
- Ip = request.servervariables (remote_addr) 'Получите IP -адрес зрителя
- Cookie = request.cookies (isbrow) 'Получите текущие файлы cookie
- 'Response.writecookie
- Ifrequest.servervariables (http_x_forwarded_for) <> then
- Response.write Этот сайт не допускает доступа к проксиму
- Response.end ()
- Еще
- Ifcookie = browthen
- CloseWindow ()
- Еще
- Ifinstr (readiplist (iplist.txt), ip) <> 0then
- CloseWindow ()
- Еще
- Writeipiplist.txt, ip
- Эндиф
- SetCookie ()
- Эндиф
- Эндиф
- %>
Выше приведено код реализации ASP, поделившийся с вами, я надеюсь, что это будет полезно для вашего обучения.