asp determina el navegador y el número de versión
Autor：Eve Cole
Fecha de actualización：2009-06-26 18:10:03
程序代码
<%
Agente tenue, navegador, versión, tmpstr
Agente=Request.ServerVariables("HTTP_USER_AGENT")
Agente=Dividir(Agente,";")
Si InStr(Agente(1),"MSIE")>0 Entonces
Navegador="MS Internet Explorer"
versión=Recortar(Izquierda(Reemplazar(Agente(1),"MSIE",""),6))
ElseIf InStr(Agent(4),"Netscape")>0 Entonces
Navegador="Netscape"
tmpstr=Dividir(Agente(4),"/")
versión=tmpstr(UBound(tmpstr))
ElseIf InStr(Agente(4),"rv:")>0 Entonces
Navegador="Mozilla"
tmpstr=Dividir(Agente(4),":")
versión=tmpstr(UBound(tmpstr))
Si InStr(versión,")") > 0 Entonces
tmpstr=Dividir(versión,")")
versión=tmpstr(0)
Terminar si
Terminar si
respuesta.Write(""&Navegador&" "&versión&"")
%>
