校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

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

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

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

Asp獲取真實IP地址,最簡單可用一句話獲取:

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,對代理地址仍然有效的函數的相關信息資訊供網民參考!
  • 推薦文章
    主站蜘蛛池模板: 兴文县| 盖州市| 陆良县| 东阳市| 和林格尔县| 黄石市| 鹤岗市| 正蓝旗| 桐梓县| 万盛区| 集安市| 亚东县| 抚州市| 缙云县| 江山市| 湖口县| 承德市| 视频| 高陵县| 太和县| 扎鲁特旗| 花莲县| 化州市| 寿宁县| 巴楚县| 鹤山市| 红原县| 紫云| 金溪县| 三亚市| 定安县| 日照市| 英德市| 望城县| 翁源县| 德惠市| 定日县| 休宁县| 汨罗市| 安丘市| 镇远县|