ASP中ServerVariables集合用法详解（2）

使用HTTP_USER_AGENT来检测浏览器的版本
  
  　　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。 

使用HTTP_ACCEPT_LANGUAGE来检测浏览器的语言
  
  　　ServerVariables集合中另外一个有用的值是“HTTP_ACCEPT_LANGUAGE”，它包含了一个当浏览器安装时指定的，或硬编码进用户的地区版本的语言代码。语言代码的例子有en-us（英国、美国）、de-at（德国、澳大利亚）和es-pe（西班牙、秘鲁）。
  
  　　语言代码可以是一般的且省略方言标识：例如，在我们的站点Wrox者，大批浏览者都是将en（英语）作为语言代码。
  
  　　因此，可以检测语言代码并自动装载一个合适的特定地区或指定语言版本的页面。

StrLocale = Lcase(Left(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”),2)) 
  Select Case strLocale 
  　Case “en”: Response.Redirect “http://uk_site.co.uk/” 
  　Case “de”: Response.Redirect “http://de_site.co.de/” 
  　Case “fr”: Response.Redirect “http://fr_site.co.fr/” 
  　‘... etc 
  　Case Else: Response.Redirect “http://us_sitel.com/” 
  End Select 

或者根据特定的方言，重定向页面：

strLocale = Lcase(Request.ServerVariables(“HTTP_ACCEPT_LANGUAGE”)) 
  Select Case strLocale 
  　Case “en-gb”: Response.Redirect “http://uk_site.co.uk/” 
  　Case “en-us”: Response.Redirect “http://us_site.com/” 
  　Case “es-pe”: Response.Redirect “http://es_site2.co.pe/” 
  　‘... 
  　Case Else: Response.Redirect “http://us_site1.com/” 
  End Select