' 取得Server的ip位址

Imports System.Net
Dim ipHostEntry As IPHostEntry = Dns.Resolve(Dns.GetHostName())
Dim ipAddress As IPAddress = ipHostEntry.AddressList(0)


'''
''' 取得Client的ip位址
'''
''' Web.HttpRequest
''' user登入的ip位址
'''
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
arrow
arrow
    全站熱搜

    湯瑪的吳 發表在 痞客邦 留言(1) 人氣()

    E-mail轉寄