分类: ASP

函数提取客户端浏览器信息（asp版本）

[ 2007-08-10 19:36:54 | 作者: admin ]
字号: 大 | 中 | 小
p.s. 代码模糊处理过的，仔细看会头晕
现网上的那些代码都比较乱，并且浏览器一升级，就需要及时跟着修改才可。
作者写的模糊匹配的方式来获得浏览器名称的方法，不仅效率高，而且精确到具体的版本。
http://hi.baidu.com/sincs/blog/item/d01f855879ead9de9d820451.html
function lIII()
   dim l0,l1,l2,l3,I1,I2,I3,i
   l0=request.ServerVariables("http_user_agent")
   l0=replace(l0,"(",")")
   I1=split(l0,")")
   I3=ubound(I1)
   if I3>=2 then
     l1=trim(I1(0))'左侧
     l2=mid(l0,len(I1(0))+2,len(l0)-len(I1(0))-len(I1(I3))-2)
     l3=trim(I1(I3))
     if l3<>"" then
       lIII=l3
     elseif instr(l2,"MSIE")>0 then
       I2=split(l2,";")
       for i=0 to ubound(I2)
         if instr(I2(i),"MSIE")>0 then
           lIII=Trim(I2(i))
           exit function
         end if
       next
     else
       lIII=l1
     end if
   else
     lIII=l0
   end if
end function

近一年用这个函数获得的浏览器名称列表
MSIE 6.0
MSIE 7.0
Gecko/20061010 Firefox/2.0
MSIE 5.0
MSIE 5.5
Gecko/20061025 Firefox/1.5.0.8
MSIE 5.01
Opera/9.02
Opera/9.01
Mozilla/5.0
Gecko/20041124 Firefox/1.0
Opera 8.51
Gecko/20060426 Firefox/1.5.0.3
Gecko/20061122 BonEcho/2.0.0.1pre
Gecko/20060728 Firefox/1.5.0.6
Gecko/20060909 Firefox/1.5.0.7
Opera/9.10
Gecko/20061115 Ubuntu/dapper-security Firefox/1.5.0.8
Firefox/2.0
Opera/8.0
[最后修改由 admin， 于 2007-08-10 19:40:00]
评论Feed 评论Feed: http://blog.xg98.com/feed.asp?q=comment&id=960

这篇日志没有评论。

此日志不可发表评论。