ASP如何獲取真實IP地址
在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 來取得客戶端的 IP 地址,但如果客戶端是使用代理服務(wù)器來訪問,那取到的就是代理服務(wù)器的 IP 地址,而不是真正的客戶端 IP 地址。要想透過代理服務(wù)器取得客戶端的真實 IP 地址,就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取。
不過要注意的事,并不是每個代理服務(wù)器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來讀取客戶端的真實 IP,有些用此方法讀取到的仍然是代理服務(wù)器的 IP。
還有一點需要注意的是:如果客戶端沒有通過代理服務(wù)器來訪問,那么用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 取到的值將是空的。因此,如果要在程序中使用此方法,可以這樣處理:
......
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
......
即:如果客戶端通過代理服務(wù)器,則取 HTTP_X_FORWARDED_FOR 的值,如果沒通過代理服務(wù)器,就取 REMOTE_ADDR 的值。
接著分享一個函數(shù)
Function GetReallyIP() Dim strIP strIP=Request.ServerVariables("HTTP_X_FORWARDED_FOR") If strIP="" Or InStr(strIP,"unknown") Then strIP=Request.ServerVariables("REMOTE_ADDR") ElseIf InStr(strIP,",") Then strIP=Split(strIP,",")(0) ElseIf InStr(strIP,";") Then strIP=Split(strIP,";")(0) End If GetReallyIP=Trim(strIP) End Function
Asp獲取真實IP地址,最簡單可用一句話獲?。?/p>
ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)
但這種方法對代理服務(wù)器上網(wǎng)的就不準(zhǔn)了,故比較全面的是用下面的方法:
<% 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 ip=getIP() response.write(ip) %>
到此這篇關(guān)于ASP如何獲取真實IP地址的文章就介紹到這了,更多相關(guān)ASP真實IP內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!
相關(guān)文章
ASP編程入門進階(五):內(nèi)置對象Response
ASP編程入門進階(五):內(nèi)置對象Response...2007-01-01ASP編程入門進階(廿一):DAO SQL之建立數(shù)據(jù)庫表
ASP編程入門進階(廿一):DAO SQL之建立數(shù)據(jù)庫表...2007-01-01