asp определяет браузер и номер версии
Автор：Eve Cole
Время обновления：2009-06-26 18:10:03
程序代码
<%
Dim Agent, браузер, версия, tmpstr
Agent=Request.ServerVariables("HTTP_USER_AGENT")
Агент=Разделить(Агент,";")
Если InStr(Агент(1),"MSIE")>0 Тогда
Браузер="MS Internet Explorer"
version=Trim(Left(Replace(Agent(1),"MSIE",""),6))
ИначеЕсли InStr(Агент(4),"Netscape")>0 Тогда
Браузер="Нетскейп"
tmpstr=Split(Агент(4),"/")
версия = tmpstr (UBound (tmpstr))
ИначеЕсли InStr(Агент(4),"rv:")>0 Тогда
Браузер="Мозилла"
tmpstr=Split(Агент(4),":")
версия = tmpstr (UBound (tmpstr))
Если InStr(версия,")") > 0 Тогда
tmpstr=Split(версия,")")
версия = tmpstr (0)
Конец, если
Конец, если
response.Write(""&Браузер&" "&версия&"")
%>
