16,554
社区成员
发帖
与我相关
我的任务
分享
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