Der einfachste Satz besteht darin, Folgendes zu verwenden:
IP = Request.Servervariables ("remote_addr")
Antwort.Write (IP)
Diese Methode ist jedoch nicht genau, damit Proxy -Server auf das Internet zugreifen können. Die umfassendere Methode besteht darin, die folgende Methode zu verwenden:
Die Codekopie lautet wie folgt:
<%PrivateFunctionGetip ()
Dimstripaddr
IFREQUEST.SERVERVARIABLES ("http_x_forwarded_for") = "" orinstr (request.servervariables ("http_x_forwarded_for"), "unbekannt")> 0Then
stripaddr = request.servervariables ("remote_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)
Anders
stripaddr = request.servervariables ("http_x_forwarded_for")
Endif
GetIp = Trim (Mid (Stripaddr, 1,30))
Endfunktion
ip = getIp ()
Antwort.Write (IP)
%>