ASP如何獲取真實(shí)IP地址

更新時(shí)間：2020年09月12日 23:45:42 投稿：mdxy-dxy

這篇文章主要介紹了ASP如何獲取真實(shí)IP地址,需要的朋友可以參考下

在 ASP 中使用 Request.ServerVariables("REMOTE_ADDR") 來(lái)取得客戶端的 IP 地址，但如果客戶端是使用代理服務(wù)器來(lái)訪問(wèn)，那取到的就是代理服務(wù)器的 IP 地址，而不是真正的客戶端 IP 地址。要想透過(guò)代理服務(wù)器取得客戶端的真實(shí) IP 地址，就要使用Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來(lái)讀取。

　　不過(guò)要注意的事，并不是每個(gè)代理服務(wù)器都能用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 來(lái)讀取客戶端的真實(shí) IP，有些用此方法讀取到的仍然是代理服務(wù)器的 IP。

　　還有一點(diǎn)需要注意的是：如果客戶端沒(méi)有通過(guò)代理服務(wù)器來(lái)訪問(wèn)，那么用 Request.ServerVariables("HTTP_X_FORWARDED_FOR") 取到的值將是空的。因此，如果要在程序中使用此方法，可以這樣處理：

......
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
......

　　即：如果客戶端通過(guò)代理服務(wù)器，則取 HTTP_X_FORWARDED_FOR 的值，如果沒(méi)通過(guò)代理服務(wù)器，就取 REMOTE_ADDR 的值。

接著分享一個(gè)函數(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獲取真實(shí)IP地址，最簡(jiǎn)單可用一句話獲?。?/p>

ip=request.ServerVariables("REMOTE_ADDR")
response.Write(ip)

但這種方法對(duì)代理服務(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如何獲取真實(shí)IP地址的文章就介紹到這了,更多相關(guān)ASP真實(shí)IP內(nèi)容請(qǐng)搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家！

您可能感興趣的文章: