asp代码怎么判断IE8

来源：百度知道 编辑：UC知道 时间：2024/06/15 17:53:13
我现在用着的一个网站访问统计程序，我想更新它，能统计到IE8和VISTA系统及WIN7系统，
VISTA系统我测试修改了后可以，只是IE8一直不成功不知道为什么，我截出代码
do while not rs.eof and pages>0
info=rs("info")

if instr(info,"MSIE 6.0b") THEN
browser= "IE 6.0b"
elseif instr(info,"MSIE 5.5") THEN
browser= "IE 5.5"
elseif instr(info,"NetCaptor 6.5.0") THEN
browser= "NetC 6.5.0"
elseif instr(info,"NetCaptor 6.5.PB1") THEN
browser= "NetC 6.5.PB1"
elseif instr(info,"MSIE 5.01") THEN
browser= "IE 5.01"
elseif instr(info,"MSIE 6.0") then
browser= "IE 6.0"
elseif instr(info,"MSIE 4.0") THEN
browser= "IE 4.01"
elseif instr(info,"MyIe 3.1") THEN
browser= "NetC 6.5.0RC1"
elseif instr(info,"MSIE 5.0") then
browser="IE 5.0"
elseif instr(info,"MSIE 7.0") then

<%
Dim Agent,Browser,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
If InStr(Agent(1),"MSIE")>0 Then
Browser="MS Internet Explorer "
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Then
Browser="Netscape "
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 Then
Browser="Mozilla "
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
If InStr(version,")") > 0 Then
tmpstr=Split(version,")")
version=tmpstr(0)
End If
End If
response.Write(""&Browser&" "&version&"")
%>

Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648;