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(""&浏览器&" "&版本&"")
%>
