asp.net 获取获取客户端IP,名称等地址

        Public Shared Function GetIPAddress() As String
            Dim _IPAddress As String = Null.NullString
            If Not HttpContext.Current.Request.UserHostAddress Is Nothing Then
                _IPAddress = HttpContext.Current.Request.UserHostAddress
            End If
            Return _IPAddress
        End Function