asp判斷瀏覽器及版本號
作者：Eve Cole
更新時間：2009-06-26 18:10:03
程式碼
<%
Dim 代理程式、瀏覽器、版本、tmpstr
代理=Request.ServerVariables("HTTP_USER_AGENT")
代理=拆分（代理，“;”）
如果 InStr(Agent(1),"MSIE")>0 則
瀏覽器=“MS Internet Explorer”
版本=修剪（左（替換（代理（1），“MSIE”，“”），6））
ElseIf InStr(Agent(4),"Netscape")>0 那麼
瀏覽器=“網景”
tmpstr=分割(代理(4),"/")
版本=tmpstr(UBound(tmpstr))
ElseIf InStr(Agent(4),"rv:")>0 那麼
瀏覽器=“Mozilla”
tmpstr=分割(代理(4),":")
版本=tmpstr(UBound(tmpstr))
如果 InStr(版本,")") > 0 那麼
tmpstr=分割(版本,")")
版本=tmpstr(0)
結束如果
結束如果
回應.Write(""&瀏覽器&" "&版本&"")
%>
