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
版权声明:本文为博主原创文章,未经博主允许不得转载。