函数提取客户端浏览器信息（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]