asp判断浏览器

关键词：asp判断浏览器，asp判断浏览器类型，asp判断浏览器函数，asp查看浏览器，asp查看浏览器类型

asp判断浏览器代码





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&"")