现网上的那些代码都比较乱，并且浏览器一升级，就需要及时跟着修改才可。
我自己写的模糊匹配的方式来获得浏览器名称的方法，不仅效率高，而且精确到具体的版本。
代码如下：
'lIII *** *** www.KingCMS.com *** ***
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
