Ich habe den Code von ASP geschrieben, um die echte IP zu nehmen, und es gibt keinen Agenten, ersten oder Multi -Level -Agenten mit Umwelttests.
Funktionskontrollip (Checkstring) 'Verwenden Sie regelmäßig, um festzustellen, ob IP legal ist
Dim Re1
Setzen Sie RE1 = New Regexp
Re1.pattern =^[0-9] {1,3}
Re1.global = false
Re1.Innorecase = false
Checkip = re1.test (Checkstring)
Setzen Sie re1 = nichts
Endfunktion
Funktion get_cli_ip () 'Um die reale IP -Funktion zu übernehmen
Dim Client_ip
Wenn checkip (request.servervariables (http_client_ip)) = true dann dann
get_cli_ip = checkip (request.servervariables (http_client_ip)))
anders
Myarray = split (request.servervariables (http_x_forwarded_for) ,,)
Wenn Ubound (myarray)> = 0 dann
client_ip = trim (myarray (0))
Wenn checkip (client_ip) = true dann dann
get_cli_ip = client_ip
Ausgangsfunktion
Ende wenn
Ende wenn
get_cli_ip = request.servervariables (remote_addr)
Ende wenn
Endfunktion