asp ermittelt Browser und Versionsnummer
Autor：Eve Cole
Aktualisierungszeit：2009-06-26 18:10:03
程序代码
<%
Dimmen Sie Agent, Browser, Version, tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Agent=Split(Agent,";")
Wenn InStr(Agent(1),"MSIE")>0 Dann
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))
Wenn InStr(version,")") > 0 Dann
tmpstr=Split(version,")")
version=tmpstr(0)
Ende wenn
Ende wenn
Response.Write(""&Browser&" "&version&"")
%>
