The simplest statement is as follows:
IP = request. servervariables ("remote_addr ")
Response. Write (IP)
However, this method is not allowed to access the Internet on the proxy server, so the following method is more comprehensive:
CopyCode The Code is as follows: <% private function getip ()
Dim stripaddr
If request. servervariables ("http_x_forwarded_for") = "" Or instr (request. servervariables ("http_x_forwarded_for"), "unknown")> 0 then
Stripaddr = request. servervariables ("remote_addr ")
Elseif instr (request. servervariables ("http_x_forwarded_for"), ",")> 0 then
Stripaddr = mid (request. servervariables ("http_x_forwarded_for"), 1, instr (request. servervariables ("http_x_forwarded_for"), ",")-1)
Elseif instr (request. servervariables ("http_x_forwarded_for"), ";")> 0 then
Stripaddr = mid (request. servervariables ("http_x_forwarded_for"), 1, instr (request. servervariables ("http_x_forwarded_for"), ";")-1)
Else
Stripaddr = request. servervariables ("http_x_forwarded_for ")
End if
Getip = trim (mid (stripaddr, 1, 30 ))
End Function
IP = getip ()
Response. Write (IP)
%>