<%
'*******************************
'Fonction: getUserTrueip ()
'Paramètres: aucun
'Auteur: Alixi
'Date: 2007/7/13
«Description: Obtenez la véritable adresse IP de l'utilisateur, et elle est toujours valable pour l'adresse proxy; Valeur de retour: Adresse IP de type de texte
'Exemple: <% = getuserTrueip ()%>
'*******************************
FunctionGetUserTrueip ()
dimstripaddr
Ifrequest.serverVariables ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for"), "inconnu")> 0Then
stripaddr = request.servervariables ("reote_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)
Autre
stripaddr = request.servervariables ("http_x_forwarded_for")
Endire
GetuserTrueip = Trim (Mid (StripAddr, 1,30))
Finition de fin
%>