Direct access to user's real IP address with ASP

Universal function, if the real IP can not be taken, will take the proxy IP

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