16,722
社区成员




Public Shared Function GetRealIP() As String
Dim Request As HttpRequest = HttpContext.Current.Request
If (String.IsNullOrEmpty(Request.ServerVariables("HTTP_VIA")) = False) Then
GetRealIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR").ToString()
Else
GetRealIP = Request.ServerVariables("REMOTE_ADDR").ToString()
End If
GetRealIP = ""
Return GetRealIP
End Function