asp determina o navegador e o número da versão
Autor：Eve Cole
Data da Última Atualização：2009-06-26 18:10:03
程序代码
<%
Agente Dim, Navegador, versão, tmpstr
Agente=Request.ServerVariables("HTTP_USER_AGENT")
Agente=Dividir(Agente,";")
Se InStr(Agente(1),"MSIE")>0 Então
Navegador = "MS Internet Explorer"
versão=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ElseIf InStr(Agente(4),"Netscape")>0 Então
Navegador = "Netscape"
tmpstr=Dividir(Agente(4),"/")
versão=tmpstr(UBound(tmpstr))
ElseIf InStr(Agente(4),"rv:")>0 Então
Navegador = "Mozilla"
tmpstr=Dividir(Agente(4),":")
versão=tmpstr(UBound(tmpstr))
Se InStr(versão,"")") > 0 Então
tmpstr=Dividir(versão,"")")
versão=tmpstr(0)
Terminar se
Terminar se
resposta.Write(""&Navegador&" "&versão&"")
%>
