asp détermine le navigateur et le numéro de version
Auteur：Eve Cole
Date de mise à jour：2009-06-26 18:10:03
程序代码
<%
Dim Agent,Navigateur,version,tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
Si InStr(Agent(1),"MSIE")>0 Alors
Navigateur="MS Internet Explorer"
version=Trim(Gauche(Remplacer(Agent(1),"MSIE",""),6))
SinonSi InStr(Agent(4),"Netscape")>0 Alors
Navigateur="Netscape"
tmpstr=Split(Agent(4),"/")
version=tmpstr(UBound(tmpstr))
SinonSi InStr(Agent(4),"rv:")>0 Alors
Navigateur="Mozilla"
tmpstr=Split(Agent(4),":")
version=tmpstr(UBound(tmpstr))
Si InStr(version,")") > 0 Alors
tmpstr=Split(version,")")
version=tmpstr(0)
Fin si
Fin si
réponse.Write(""&Navigateur&" "&version&"")
%>
