Я написал код ASP, чтобы взять настоящий IP, и нет агента, первого или многоуровневого агента с экологическим тестированием.
Функциональная проверка (CHECKSTRING) 'Используйте регулярно, чтобы определить, является ли IP законным
Dim Re1
Установите RE1 = новая регуляция
Re1.pattern =^[0-9] {1,3}
Re1.global = false
Re1.ignorecase = false
Checkip = re1.test (checkstring)
Установить RE1 = ничего
конечная функция
Функция get_cli_ip () 'Чтобы взять реальную функцию IP, сначала http_client_ip, а затем http_x_forwardeded_for, а затем remote_addr
dim client_ip
Если проверка (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 = trim (myarray (0))
Если проверка (client_ip) = true тогда
get_cli_ip = client_ip
Выходная функция
конец, если
конец, если
get_cli_ip = request.servervariables (remote_addr)
конец, если
конечная функция