Função ASP que obtém o IP real do usuário e ainda é válido para o endereço de proxy

<%

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

'Função: getUsertRugEip ()

Parâmetros: Nenhum

'Autor: Alixi

Data: 2007/7/13

'Descrição: obtenha o IP real do usuário e ainda é válido para o endereço de proxy; Valor de devolução: Tipo de texto Endereço IP

'Exemplo: <%= getUsertRugEip ()%>

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

FunctionGetUserTrueip ()

Dimstripaddr

Ifrequest.Servervariables ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for"), "desconhecido")> 0hen

Straaddr = request.Servervariables ("Remote_addr")

Elseifinstr (request.servervariables ("http_x_forwarded_for"), "," ")> 0hen

StraadDr = MID (request.Servervariables ("http_x_forwarded_for"), 1, instrum (request.servervariables ("http_x_forwarded_for"), ")-1)

Elseifinstr (request.servervariables ("http_x_forwarded_for"), ";")> 0hen

StraadDr = MID (request.Servervariables ("http_x_forwarded_for"), 1, instrum (request.servervariables ("http_x_forwarded_for"), ";";)-1)

Outro

StraadDr = request.Servervariables ("http_x_forwarded_for")

Endif

GetUserTrueip = Trim (MID (Straaddr, 1,30))

Função final

%>