婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

主頁(yè) > 知識(shí)庫(kù) > asp 取得用戶真實(shí)IP,對(duì)代理地址仍然有效的函數(shù)

asp 取得用戶真實(shí)IP,對(duì)代理地址仍然有效的函數(shù)

熱門標(biāo)簽:調(diào)度系統(tǒng)外呼 宜賓語(yǔ)音外呼系統(tǒng)軟件 河北智能外呼系統(tǒng)軟件 中國(guó)辦理電信400電話 福建外呼增值業(yè)務(wù)線路 綿陽(yáng)防封電銷卡價(jià)格 電銷機(jī)器人教育 伊春外呼業(yè)務(wù)系統(tǒng) 電銷機(jī)器人源碼網(wǎng)盤下載

Asp獲取真實(shí)IP地址,最簡(jiǎn)單可用一句話獲取:

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

但這種方法對(duì)代理服務(wù)器上網(wǎng)的就不準(zhǔn)了,故比較全面的是用下面的方法:取得用戶真實(shí)IP,對(duì)代理地址仍然有效;返回值:文本類型的IP地址

% 
'****************************** 
'函數(shù):GetUserTrueIP() 
'參數(shù):無(wú) 
'作者:阿里西西 
'日期:2007/7/13 
'描述:取得用戶真實(shí)IP,對(duì)代理地址仍然有效;返回值:文本類型的IP地址 
'示例:%=GetUserTrueIP()%> 
'****************************** 
Function GetUserTrueIP() 
  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 
  GetUserTrueIP = Trim(Mid(strIPAddr, 1, 30)) 
End Function 
%>

其他網(wǎng)友的補(bǔ)充

%
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)
%>

得到真實(shí)IP

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,對(duì)代理地址仍然有效的函數(shù)的詳細(xì)內(nèi)容,更多關(guān)于asp真實(shí)IP的資料請(qǐng)關(guān)注腳本之家其它相關(guān)文章!

您可能感興趣的文章:
  • 做了CDN獲取用戶真實(shí)IP的函數(shù)代碼(PHP與Asp設(shè)置方式)
  • 做了CDN加速的ASP網(wǎng)站獲取用戶真實(shí)IP程序
  • ASP如何獲取真實(shí)IP地址

標(biāo)簽:電商邀評(píng) 銅川 優(yōu)質(zhì)小號(hào) 蘇州 新鄉(xiāng) 延邊 河池 那曲

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp 取得用戶真實(shí)IP,對(duì)代理地址仍然有效的函數(shù)》,本文關(guān)鍵詞  asp,取得,用戶,真實(shí),對(duì),代理,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp 取得用戶真實(shí)IP,對(duì)代理地址仍然有效的函數(shù)》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于asp 取得用戶真實(shí)IP,對(duì)代理地址仍然有效的函數(shù)的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章
    主站蜘蛛池模板: 南投市| 东乌| 武隆县| 马鞍山市| 个旧市| 磐安县| 洪洞县| 兴文县| 军事| 合作市| 聂拉木县| 渭南市| 山东| 巴塘县| 若尔盖县| 安庆市| 泸水县| 武强县| 望谟县| 布尔津县| 浦北县| 丰台区| 延安市| 凤山县| 惠来县| 沧源| 京山县| 海丰县| 鸡东县| 新建县| 交口县| 高安市| 新巴尔虎左旗| 柳河县| 新闻| 江安县| 若尔盖县| 修武县| 石渠县| 同仁县| 蓬莱市|