función ASP que obtiene la IP real del usuario y todavía es válida para la dirección proxy

<%

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

'Función: getUserTrueIP ()

'Parámetros: ninguno

'Autor: Alixi

'Fecha: 2007/7/13

'Descripción: obtenga la IP real del usuario y todavía es válido para la dirección proxy; Valor de retorno: Tipo de texto Dirección IP

'Ejemplo: <%= getUserTrueIP ()%>

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

FunctetUserTrueIP ()

dimstripaddr

Ifrequest.serverVariAnbles ("http_x_forwarded_for") = "" oinstR (request.ServerVariAbles ("http_x_forwarded_for"), "desconocido")

stripAddr = request.ServerVariAbles ("Remote_Addr")

ElseifinStr (request.ServerVariAbles ("http_x_forwarded_for"), ",", ")> 0then

stripAddr = mid (request.serverVariAbles ("http_x_forwarded_for"), 1, instr (request.serverVariAnbles ("http_x_forwarded_for"), ",")-1)

ElseifinStr (request.ServerVariAbles ("http_x_forwarded_for"), ";")> 0then

stripAddr = mid (request.serverVariables ("http_x_forwarded_for"), 1, instr (request.serverVariAnbles ("http_x_forwarded_for"), ";")-1)

Demás

stripAddr = request.ServerVariAbles ("http_x_forwarded_for")

Endif

GetUserTrueip = Trim (Mid (StripAddr, 1,30))

Función final

%>