Eu escrevi o código da ASP para pegar o IP real e não há agente, primeiro ou multi -nível com testes ambientais.
Função checkip (checkstring) 'use regularmente para determinar se o IP é legal
Dim RE1
set re1 = novo regexp
Re1.pattern =^[0-9] {1,3}
Re1.global = false
Re1.ignorecase = false
Checkip = re1.test (checkstring)
Definir re1 = nada
Função final
Function get_cli_ip () 'para assumir a função IP real, primeiro http_client_ip e depois http_x_forwardeded_for e depois remote_addr
Dim client_ip
Se checkip (request.Servervariables (http_client_ip)) = true então
get_cli_ip = checkip (request.servervariables (http_client_ip))
outro
MyArray = split (request.servervariables (http_x_forwarded_for) ,,)
Se ubound (myarray)> = 0 então
client_ip = Trim (MyArray (0))
Se checkip (client_ip) = true então
get_cli_ip = client_ip
função de saída
final se
final se
get_cli_ip = request.servervariables (remote_addr)
final se
Função final