Я написал код для asp, чтобы получить реальный IP-адрес, и использовал среду для проверки ситуации отсутствия агента, одноуровневого или многоуровневого агента, и скопированный код можно получить обычным образом. Код выглядит следующим образом:
function checkip(checkstring)' Используйте регулярные выражения, чтобы определить, является ли IP-адрес законным.
тусклый re1
установить re1=новое регулярное выражение
re1.pattern=^[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}.[0-9]{1,3}$
re1.global = ложь
re1.Ignorecase=false
checkip=re1.test(проверочная строка)
установить re1=ничего
конечная функция
Скопируйте код кода следующим образом:
function get_cli_ip()'Получить функцию реального IP, сначала HTTP_CLIENT_IP, затем HTTP_X_FORWARDED_FOR, затем REMOTE_ADDR
тусклый client_ip
если checkip(Request.ServerVariables(HTTP_CLIENT_IP))=true, то
get_cli_ip = checkip(Request.ServerVariables(HTTP_CLIENT_IP))
еще
MyArray = Split(Request.ServerVariables(HTTP_X_FORWARDED_FOR),,)
если ubound(MyArray)>=0, то
client_ip = обрезка (MyArray (0))
если checkip(client_ip)=true, то
get_cli_ip = client_ip
функция выхода
конец, если
конец, если
get_cli_ip = Request.ServerVariables(REMOTE_ADDR)
конец, если
конечная функция