ip=request.servervariables("Remote_Addr")獲得ip顯示::1

1數據庫顯示ip地址如下所示情況

在這裏插入圖片描述

2問題原因:我們用的地址是ipv6,ipv6的默認的主機地址就是 : : 1,它就是我們要找的主機地址,但是我們自己想要的是32位的主機地址,它是127.0.0.1

3解決方法:後臺添加代碼

  string userIp = Request.ServerVariables["REMOTE_ADDR"];//獲得的是服務器的ip

            if (userIp=="::1")
            {
                userIp = "127.0.0.1";
            }

4使用 Request.ServerVariables(“REMOTE_ADDR”) 來取得客戶端的IP地址,但如果客戶端是使用代理服務器來訪問,那取到的就是代理服務器的IP地址,而不是真正的客戶端IP地址。要想透過代理服務器取得客戶端的真實IP地址,就要使用Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) 來讀取。

不過要注意的事,並不是每個代理服務器都能用 Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) 來讀取客戶端的真實 IP,有些用此方法讀取到的仍然是代理服務器的IP。還有一點需要注意的是:如果客戶端沒有通過代理服務器來訪問,那麼用 Request.ServerVariables (“HTTP_X_FORWARDED_FOR”) 取到的值將是空的。因此,如果要在程序中使用此方法,可以這樣處理:

userip = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)
If userip = “” Then userip = Request.ServerVariables(“REMOTE_ADDR”)

即:如果客戶端通過代理服務器,則取 HTTP_X_FORWARDED_FOR 的值,如果沒通過代理服務器,就取 REMOTE_ADDR 的值。
'通用函數:如果不能取客戶端真實IP,就會取客戶端的代理IP
Private Function getIP()
Dim strIPAddr
If Request.ServerVariables(“HTTP_X_FORWARDED_FOR”) = “” OR InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “unknown”) > 0 Then
strIPAddr = Request.ServerVariables(“REMOTE_ADDR”)
ElseIf InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “,”) > 0 Then
strIPAddr = Mid(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), 1, InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “,”)-1)
ElseIf InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “;”) > 0 Then
strIPAddr = Mid(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), 1, InStr(Request.ServerVariables(“HTTP_X_FORWARDED_FOR”), “;”)-1)
Else
strIPAddr = Request.ServerVariables(“HTTP_X_FORWARDED_FOR”)
End If
getIP = Trim(Mid(strIPAddr, 1, 30))
End Function

發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.
相關文章