prague12

Imports Microsoft.VisualBasic
Imports System.Net
Public Class Class_netIP
Public Shared Function getServerIP() As String
Dim ipHostEntry As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostEntry.AddressList(0)
Return ipAddress.ToString
End Function

'''
''' 取得Client的ip位址
'''
''' Web.HttpRequest
''' user登入的ip位址
'''
Public Shared Function getClientIP(ByVal req As Web.HttpRequest) As String
Dim ip_addr As String
If req.ServerVariables("HTTP_X_FORWARDED_FOR") = String.Empty Or _
InStr(req.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then
ip_addr = req.ServerVariables("REMOTE_ADDR")
ElseIf InStr(req.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then
ip_addr = Mid(req.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, _
InStr(req.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") - 1)
ElseIf InStr(req.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then
ip_addr = Mid(req.ServerVariables("HTTP_X_FORWARDED_FOR"), _
1, InStr(req.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") - 1)
Else
ip_addr = req.ServerVariables("HTTP_X_FORWARDED_FOR")
End If
Return Mid(ip_addr, 1, 30).Trim
End Function

End Class