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

主頁 > 知識庫 > asp 取得用戶真實IP,對代理地址仍然有效的函數

asp 取得用戶真實IP,對代理地址仍然有效的函數

熱門標簽:調度系統外呼 宜賓語音外呼系統軟件 河北智能外呼系統軟件 中國辦理電信400電話 福建外呼增值業務線路 綿陽防封電銷卡價格 電銷機器人教育 伊春外呼業務系統 電銷機器人源碼網盤下載

Asp獲取真實IP地址,最簡單可用一句話獲?。?/p>

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

但這種方法對代理服務器上網的就不準了,故比較全面的是用下面的方法:取得用戶真實IP,對代理地址仍然有效;返回值:文本類型的IP地址

% 
'****************************** 
'函數:GetUserTrueIP() 
'參數:無 
'作者:阿里西西 
'日期:2007/7/13 
'描述:取得用戶真實IP,對代理地址仍然有效;返回值:文本類型的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 
%>

其他網友的補充

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

得到真實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 取得用戶真實IP,對代理地址仍然有效的函數的詳細內容,更多關于asp真實IP的資料請關注腳本之家其它相關文章!

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

標簽:電商邀評 銅川 優質小號 蘇州 新鄉 延邊 河池 那曲

巨人網絡通訊聲明:本文標題《asp 取得用戶真實IP,對代理地址仍然有效的函數》,本文關鍵詞  asp,取得,用戶,真實,對,代理,;如發現本文內容存在版權問題,煩請提供相關信息告之我們,我們將及時溝通與處理。本站內容系統采集于網絡,涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《asp 取得用戶真實IP,對代理地址仍然有效的函數》相關的同類信息!
  • 本頁收集關于asp 取得用戶真實IP,對代理地址仍然有效的函數的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 调兵山市| 海淀区| 子长县| 鄂托克旗| 黄冈市| 滕州市| 祁阳县| 肃南| 山丹县| 莒南县| 岚皋县| 桂林市| 鄂托克旗| 溆浦县| 西盟| 龙井市| 永兴县| 孝感市| 江北区| 谷城县| 北安市| 绥江县| 栖霞市| 建昌县| 仲巴县| 永春县| 光泽县| 美姑县| 朝阳区| 商丘市| 伊宁县| 茌平县| 邻水| 中江县| 乐山市| 普陀区| 潜江市| 福清市| 永宁县| 博白县| 大渡口区|