asp使用ServerVariables集合（2）

检测浏览器的版本

ServerVariables集合中，另外一个有用的值是用户浏览器的用户代理字符串。在“Detecting the Browser Type”页面（browsertype.asp），使用ServerVariables集合中的“HTTP_USER_AGENT”值来获得用户代理字符串，一些脚本用来解析该信息并寻找生产厂家名称和浏览器版本。 
    

<％ 
     strUA = Request.ServerVariables(“HTTP_USER_AGENT”) 
     Response.Write “The User Agent string is <B>” & strUA & “</B> 
     ” 
     If InStr(strUA, “MSIE”) Then 
     Response.Write “To upgrade your browser go to “_ 
     & “<A HREF=” & Chr(34) & http://www.microsoft.com/ie/”_ 
     & Chr(34) & “>http://www.microsoft.com/ie/<A> 
     ” 
     intVersion = Cint(Mid(strUA, InStr(strUA, “MSIE”) + 5, 1)) 
     If intVersion >=4 Then 
     Response.Write “You can use Microsoft Dynamic HTML” 
     End If 
     Else 
     If InStr(strUA, “Mozilla”) Then 
     If InStr(strUA, “compatible;”) = 0 Then 
     Response.Write “Your browser is probably Navigator. You can “_ 
     & “download the latest version of Navigator from “_ 
     & “<A HREF=” & Chr(34) & http://home.netscape.com/”_ 
     & “download/”& Chr(34) & “>http://home.netscape.com”_ 
     & “/download/</A> 
     ” 
     intVersion = Cint(Mid(strUA, InStr(strUA, “/”) +1, 1)) 
     If intVersion >= 4 Then 
     Response.Write “You can probably use Netscape Dynamic HTML” 
     End If 
     Else 
     strVersion = Mid(strUA, InStr(strUA, “compatible;”) + 12) 
     strProduct = Left(strVersion, InStr(strVersion, “ “)) 
     Response.Write “Your browser is Navigator-compatible. You can”_ 
     & “search for the manufacturer using a search engine, such as”_ 
     & “<A HREF=” & Chr(34) _ 
     & “http://www.altavista.digital.com/cgi-bin/query?q=”_ 
     & strProduct _ 
     & Chr(34) & “>http://www.altavista.com/</A> 
     ” 
     End If 
     End If 
     End If 
     ％> 

IE 5.0和Navigator 4.61的搜索结果分别不同，对于其他厂家的浏览器，可以得到一个链接在Alta Vista Web站点自动开始搜索厂家的名称。

     注意，Netscape在用户代理字符串中不提供厂家的名称，因而无法绝对保证一个浏览器一定是Navigator。