当前位置：七道奇 → 文章资讯 → 网站建设 → 网站编程
日期：2011-12-08 09:49:00  来源：本站整理

Asp超具体显示客户端系统信息[网站编程]

赞助商链接



　　本文“Asp超具体显示客户端系统信息[网站编程]”是由七道奇为您精心收集，来源于网络转载，文章版权归文章作者所有，本站不对其观点以及内容做任何评价，请读者自行判断，以下是其具体内容：


Asp超具体显示客户端系统信息源码

  1. <% 
  2. Function GetReferer() '获得页面来路(支持图片调用方法) 
  3. If Request.ServerVariables("HTTP_REFERER")<>"" Then  
  4.  GetReferer = Request.ServerVariables("HTTP_REFERER") 
  5. Else 
  6.  If Len(Request.QueryString) <> 0 Then CanShu = "?" & Request.QueryString 
  7.  GetReferer = "http://" & Request.Servervariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") & CanShu 
  8. End If 
  9. End Function 
  10. Function GetIP() '绕过代理获得真实IP 
  11. Dim StrIPAddr  
  12. If Request.ServerVariables("HTTP_X_FORWARDED_FOR") = "" OR InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), "unknown") > 0 Then  
  13.  StrIPAddr = Request.ServerVariables("REMOTE_ADDR")  
  14.   ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",") > 0 Then  
  15.  StrIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ",")-1)  
  16.   ElseIf InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";") > 0 Then  
  17.  StrIPAddr = Mid(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), 1, InStr(Request.ServerVariables("HTTP_X_FORWARDED_FOR"), ";")-1)  
  18. Else  
  19.  StrIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")  
  20. End If  
  21. GetIP = Trim(Mid(StrIPAddr, 1, 30)) 
  22. End Function 
  23. Function GetBrType() '获得浏览器范例(可以判断:47种浏览器;GoogLe,Grub,MSN,Yahoo!蜘蛛;十种常见IE插件) 
  24. Dim StrType, TheInfo, Tmp1, Sysver 
  25. GetBrType = "Other Unknown" 
  26. TheInfo = UCase(Request.ServerVariables("HTTP_USER_AGENT")) 
  27. if Instr(TheInfo,UCase("mozilla"))>0 then GetBrType = "Mozilla" 
  28. if Instr(TheInfo,UCase("icab"))>0 then GetBrType = "iCab" 
  29. if Instr(TheInfo,UCase("lynx"))>0 then GetBrType = "Lynx" 
  30. if Instr(TheInfo,UCase("links"))>0 then GetBrType = "Links" 
  31. if Instr(TheInfo,UCase("elinks"))>0 then GetBrType = "ELinks" 
  32. if Instr(TheInfo,UCase("jbrowser"))>0 then GetBrType = "JBrowser" 
  33. if Instr(TheInfo,UCase("konqueror"))>0 then GetBrType = "konqueror" 
  34. if Instr(TheInfo,UCase("wget"))>0 then GetBrType = "wget" 
  35. if Instr(TheInfo,UCase("ask jeeves"))>0 or Instr(TheInfo,UCase("teoma"))>0 then GetBrType = "Ask Jeeves/Teoma" 
  36. if Instr(TheInfo,UCase("wget"))>0 then GetBrType = "wget" 
  37. if Instr(TheInfo,UCase("opera"))>0 then GetBrType = "opera" 
  38. if Instr(TheInfo,UCase("NOKIAN"))>0 then GetBrType = "NOKIAN(诺基亚手机)" 
  39. if Instr(TheInfo,UCase("SPV"))>0 then GetBrType = "SPV(多普达手机)" 
  40. if Instr(TheInfo,UCase("Jakarta Commons"))>0 then GetBrType = "Jakarta Commons-HttpClient" 
  41. if Instr(TheInfo,UCase("Gecko"))>0 then  
  42.  StrType = "[Gecko] " 
  43.  GetBrType = "Mozilla Series" 
  44.  if Instr(TheInfo,UCase("aol"))>0 then GetBrType = "AOL" 
  45.  if Instr(TheInfo,UCase("netscape"))>0 then GetBrType = "Netscape" 
  46.  if Instr(TheInfo,UCase("firefox"))>0 then GetBrType = "FireFox" 
  47.  if Instr(TheInfo,UCase("chimera"))>0 then GetBrType = "Chimera" 
  48.  if Instr(TheInfo,UCase("camino"))>0 then GetBrType = "Camino" 
  49.  if Instr(TheInfo,UCase("galeon"))>0 then GetBrType = "Galeon" 
  50.  if Instr(TheInfo,UCase("k-meleon"))>0 then GetBrType = "K-Meleon" 
  51.  GetBrType = StrType & GetBrType 
  52. end if  
  53. if Instr(TheInfo,UCase("bot"))>0 or Instr(TheInfo,UCase("crawl"))>0 then  
  54.  StrType = "[Bot/Crawler]" 
  55.  if Instr(TheInfo,UCase("grub"))>0 then GetBrType = "Grub" 
  56.  if Instr(TheInfo,UCase("谷歌bot"))>0 then GetBrType = "GoogleBot" 
  57.  if Instr(TheInfo,UCase("msnbot"))>0 then GetBrType = "MSN Bot" 
  58.  if Instr(TheInfo,UCase("slurp"))>0 then GetBrType = "Yahoo! Slurp" 
  59.  GetBrType = StrType & GetBrType 
  60. end if 
  61. if Instr(TheInfo,UCase("applewebkit"))>0 then  
  62.  StrType = "[AppleWebKit]" 
  63.  GetBrType = "" 
  64.   if Instr(TheInfo,UCase("omniweb"))>0 then GetBrType = "OmniWeb" 
  65.   if Instr(TheInfo,UCase("safari"))>0 then GetBrType = "Safari" 
  66.  GetBrType = StrType & GetBrType 
  67. end if  
  68. if Instr(TheInfo,UCase("msie"))>0 then  
  69.  StrType = "[MSIE" 
  70.  Tmp1 = mid(TheInfo,(Instr(TheInfo,UCase("MSIE"))+4),6) 
  71.  Tmp1 = left(Tmp1,Instr(Tmp1,";")-1) 
  72.  StrTypeStrType = StrType & Tmp1 & "]" 
  73.  GetBrType = "Internet Explorer" 
  74.  GetBrType = StrType & GetBrType 
  75. end if 
  76. if Instr(TheInfo,UCase("msn"))>0 then GetBrType = "MSN" 
  77. if Instr(TheInfo,UCase("aol"))>0 then GetBrType = "AOL" 
  78. if Instr(TheInfo,UCase("webtv"))>0 then GetBrType = "WebTV" 
  79. if Instr(TheInfo,UCase("myie2"))>0 then GetBrType = "MyIE2" 
  80. if Instr(TheInfo,UCase("maxthon"))>0 then GetBrType = "Maxthon(傲游浏览器)" 
  81. if Instr(TheInfo,UCase("gosurf"))>0 then GetBrType = "GoSurf(冲浪高手浏览器)" 
  82. if Instr(TheInfo,UCase("netcaptor"))>0 then GetBrType = "NetCaptor" 
  83. if Instr(TheInfo,UCase("sleipnir"))>0 then GetBrType = "Sleipnir" 
  84. if Instr(TheInfo,UCase("avant browser"))>0 then GetBrType = "AvantBrowser" 
  85. if Instr(TheInfo,UCase("greenbrowser"))>0 then GetBrType = "GreenBrowser" 
  86. if Instr(TheInfo,UCase("slimbrowser"))>0 then GetBrType = "SlimBrowser" 
  87. if Instr(TheInfo,UCase("360SE"))>0 then GetBrTypeGetBrType = GetBrType & "-360SE(360安全浏览器)" 
  88. if Instr(TheInfo,UCase("QQDownload"))>0 then GetBrTypeGetBrType = GetBrType & "-QQDownload(QQ下载器)" 
  89. if Instr(TheInfo,UCase("TheWorld"))>0 then GetBrTypeGetBrType = GetBrType & "-TheWorld(世界之窗浏览器)" 
  90. if Instr(TheInfo,UCase("icafe8"))>0 then GetBrTypeGetBrType = GetBrType & "-icafe8(网维大师网吧管理插件)" 
  91. if Instr(TheInfo,UCase("TencentTraveler"))>0 then GetBrTypeGetBrType = GetBrType & "-TencentTraveler(腾讯TT浏览器)" 
  92. if Instr(TheInfo,UCase("百度ie8"))>0 then GetBrTypeGetBrType = GetBrType & "-百度ie8(百度IE8.0)" 
  93. if Instr(TheInfo,UCase("iCafeMedia"))>0 then GetBrTypeGetBrType = GetBrType & "-iCafeMedia(网吧网媒趋向插件)" 
  94. if Instr(TheInfo,UCase("DigExt"))>0 then GetBrTypeGetBrType = GetBrType & "-DigExt(IE5答应脱机阅读情势特别标志)" 
  95. if Instr(TheInfo,UCase("百度ds"))>0 then GetBrTypeGetBrType = GetBrType & "-百度ds(百度硬盘搜索)" 
  96. if Instr(TheInfo,UCase("CNCDialer"))>0 then GetBrTypeGetBrType = GetBrType & "-CNCDialer(数控拨号)" 
  97. if Instr(TheInfo,UCase("NOKIAN85"))>0 then GetBrTypeGetBrType = GetBrType & "-NOKIAN85(诺基亚手机)" 
  98. if Instr(TheInfo,UCase("SPV_C600"))>0 then GetBrTypeGetBrType = GetBrType & "-SPV_C600(多普达C600)" 
  99. if Instr(TheInfo,UCase("Smartphone"))>0 then GetBrTypeGetBrType = GetBrType & "-Smartphone(Windows Mobile for Smartphone Edition 操作系统的智妙手机)" 
  100. End Function 
  101. Function GetSysVer() '获得系统范例(可以判断:29种操作系统(包含手机)) 
  102. GetSysVer="Other Unknown" 
  103. TheInfo = UCase(Request.ServerVariables("HTTP_USER_AGENT")) 
  104. if Instr(TheInfo,UCase("x11"))>0 or Instr(TheInfo,UCase("Unix"))>0 then GetSysVer="Unix" 
  105. if Instr(TheInfo,UCase("Sunos"))>0 or Instr(TheInfo,UCase("SUN OS"))>0 then GetSysVer="SUN OS" 
  106. if Instr(TheInfo,UCase("PowerPC"))>0 or Instr(TheInfo,UCase("PPC"))>0 then GetSysVer="PowerPC" 
  107. if Instr(TheInfo,UCase("Macintosh"))>0 then GetSysVer="Mac" 
  108. if Instr(TheInfo,UCase("Mac OSX"))>0 then GetSysVer="MacOSX" 
  109. if Instr(TheInfo,UCase("FreeBSD"))>0 then GetSysVer="FreeBSD" 
  110. if Instr(TheInfo,UCase("Linux"))>0 then GetSysVer="Linux" 
  111. if Instr(TheInfo,UCase("Palmsource"))>0 or Instr(TheInfo,UCase("PalmOS"))>0 then GetSysVer="PalmOS" 
  112. if Instr(TheInfo,UCase("WAP"))>0 then GetSysVer="WAP Mobile Phone" 
  113. if Instr(TheInfo,UCase("Win98"))>0 then GetSysVer="Win 98" 
  114. if Instr(TheInfo,UCase("NOKIAN"))>0 then GetSysVer="NOKIAN(诺基亚手机)" 
  115. if Instr(TheInfo,UCase("Media Center"))>0 then GetSysVer="Windows XP Media Center PC" 
  116. if Instr(TheInfo,UCase("Windows"))>0 then  
  117.  GetSysVer="Windows Series" 
  118.  if Instr(TheInfo,UCase("Windows CE"))>0 then GetSysVer="Windows CE" 
  119.  if Instr(TheInfo,UCase("Windows 95"))>0 then GetSysVer="Windows 95" 
  120.  if Instr(TheInfo,UCase("Windows 98"))>0 then GetSysVer="Windows 98" 
  121.  if Instr(TheInfo,UCase("Windows 2000"))>0 then GetSysVer="Windows 2000" 
  122.  if Instr(TheInfo,UCase("Windows XP"))>0 then GetSysVer="Windows XP" 
  123.  if Instr(TheInfo,UCase("Windows NT"))>0 then 
  124.   GetSysVer="Windows NT Series" 
  125.   if Instr(TheInfo,UCase("Windows NT 4.0"))>0 then GetSysVer="Windows 9x/98/95" 
  126.   if Instr(TheInfo,UCase("Windows NT 5.0"))>0 then GetSysVer="Windows 2000" 
  127.   if Instr(TheInfo,UCase("Windows NT 5.1"))>0 then GetSysVer="Windows XP" 
  128.   if Instr(TheInfo,UCase("Windows NT 5.2"))>0 then GetSysVer="Windows Server 2003" 
  129.   if Instr(TheInfo,UCase("Windows NT 6.0"))>0 then GetSysVer="Windows Vista/Windows Server 2008" 
  130.   if Instr(TheInfo,UCase("Windows NT 6.1"))>0 then GetSysVer="Windows Server 2008 R2/Windows 7 Series" 
  131.  end if 
  132. end if 
  133. if Instr(TheInfo,UCase("Tablet PC"))>0 then GetSysVerGetSysVer=GetSysVer & "-Tablet PC(平板电脑)" 
  134. if Instr(TheInfo,UCase("Jakarta Commons"))>0 then GetSysVerGetSysVer=GetSysVer & "-Jakarta Commons-HttpClient" 
  135. if Instr(TheInfo,UCase("bsalsa.com"))>0 then GetSysVerGetSysVer=GetSysVer & "-[BOT]bsalsa.com(搜索引型)" 
  136. End Function 
  137. Response.Write "真实IP:" & GetIP() & "<br>" 
  138. Response.Write "代理IP:" & Request.ServerVariables("REMOTE_ADDR") & "<br>" 
  139. Response.Write "拜候时间:" & Date() & " " & Time() & "<br>" 
  140. Response.Write "系统:" & GetSysVer & "<br>" 
  141. Response.Write "语言:" & Request.ServerVariables("Http_Accept_Language") & "<br>" 
  142. Response.Write "浏览器:" & GetBrType & "<br>" 
  143. Response.Write "URL编码:" & Request.ServerVariables("Http_Accept_Encoding") & "<br>" 
  144. Response.Write "方法:" & Request.ServerVariables("Request_Method") & "<br>" 
  145. Response.Write "目标IP:" & Request.ServerVariables("LOCAL_ADDR") & "<br>" 
  146. Response.Write "拜候地址:" & GetReferer & "<br>" 
  147. Response.Write "用户信息:" & Request.ServerVariables("Http_User_Agent") & "<br>" 
  148. Response.End 
  149. %> 

　　以上是“Asp超具体显示客户端系统信息[网站编程]”的内容，如果你对以上该文章内容感兴趣，你可以看看七道奇为您推荐以下文章：
  • <b>Asp超精准判断客户端浏览器范例</b>
  • Asp超具体显示客户端系统信息
    • 本文地址： 与您的QQ/BBS好友分享!
    [] [返回上一页] [打 印]
    • 好的评价　如果您觉得此文章好，就请您
        0%(0)
    • 差的评价　如果您觉得此文章差，就请您
        0%(0)

    文章评论评论内容只代表网友观点，与本站立场无关！

       评论摘要(共 0 条，得分 0 分，平均 0 分) 查看完整评论

    栏目导航

    赞助商链接

    免责条款 - 广告合作 - 下载声明 - 欢迎投稿 - 友情连接 -
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .