La phrase la plus simple consiste à utiliser ce qui suit:
ip = request.servervariables ("reote_addr")
Response.Write (IP)
Cependant, cette méthode n'est pas exacte pour les serveurs proxy pour accéder à Internet, donc la méthode la plus complète consiste à utiliser la méthode suivante:
La copie de code est la suivante:
<% PrivateFunctionGetIp ()
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
getip = garniture (mid (stripaddr, 1,30))
Finition de fin
ip = getip ()
Response.Write (IP)
%>