19. februar 2009 - 14:17
Der er
2 kommentarer
Detect IP
Hej eksperter,
Jeg forsøger at detecte mine besøgendes ip-adresser..
Min første måde var:
IP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If IP = "" then
IP = Request.ServerVariables("REMOTE_ADDR")
End if
Men jeg får bare en intern 10.0... ip.
Hvis jeg derimod går ind på et site som myip.dk får jeg:
217.157.. en mere korrekt ip
Hvordan kan jeg lave sådan tjek ?
24. februar 2009 - 22:38
#2
'Find brugers IP-adressse
Dim IPAdresse
'Hvis brugeren ikke benytter en proxy - hent IP-adresse
If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
IPAdresse = Request.ServerVariables("REMOTE_ADDR")
'Hvis bruger er bag en multi-proxy, hent kun den først IP-adresse i listen
ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
IPAdresse = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)
'Benyt browserens IP-adresse, ikke IP fra proxyserveren
Else
IPAdresse = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
End If