La oración más simple es usar lo siguiente:
ip = request.serverVariAbles ("remota_addr")
Response.Write (IP)
Sin embargo, este método no es preciso para que los servidores proxy accedan a Internet, por lo que el método más completo es utilizar el siguiente método:
La copia del código es la siguiente:
<%PrivateFunctionGetip ()
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
getIP = Trim (Mid (StripAddr, 1,30))
Función final
ip = getip ()
Response.Write (IP)
%>