ASP -Funktion, die die reale IP des Benutzers erhält und für die Proxy -Adresse weiterhin gültig ist

<%

'*********************************

'Funktion: getUserTruep ()

'Parameter: Keine

'Autor: Alixi

'Datum: 2007/7/13

'Beschreibung: Holen Sie sich die tatsächliche IP des Benutzers und gilt immer noch für die Proxy -Adresse. Rückgabewert: Texttyp IP -Adresse

Beispiel: <%= GetUserTruep ()%>

'*********************************

FunctionGetUserTruep ()

Dimstripaddr

IFREQUEST.SERVERVARIABLES ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for"), "unbekannt")> 0Then

stripaddr = request.servervariables ("remote_addr")

ElseIfinStr (Request.Servervariables ("http_x_forwarded_for"), ",", ")> 0Then

stripaddr = mid (request.servervariables ("http_x_forwarded_for"), 1, Instr (Request.Servervariables ("http_x_forwarded_for"), ",")-1)

ElseIfinStr (request.servervariables ("http_x_forwarded_for"), ";")> 0Then

stripaddr = mid (request.servervariables ("http_x_forwarded_for"), 1, instr (request.servervariables ("http_x_forwarded_for"), ";")-1)

Anders

stripaddr = request.servervariables ("http_x_forwarded_for")

Endif

GetUserTruip = Trim (Mid (Stripaddr, 1,30))

Endfunktion

%>