• 软件测试技术
  • 软件测试博客
  • 软件测试视频
  • 开源软件测试技术
  • 软件测试论坛
  • 软件测试沙龙
  • 软件测试资料下载
  • 软件测试杂志
  • 软件测试人才招聘
    暂时没有公告

字号: | 推荐给好友 上一篇 | 下一篇

ASP中使用ServerVariables集合详解(2)

发布: 2007-6-30 18:56 | 作者: admin | 来源: | 查看: 13次 | 进入软件测试论坛讨论

领测软件测试网      检测浏览器的版本
  
    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。
  
    检测浏览器的语言
  
    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
  
    其他有用的ServerVariables集合的值
  
    可以访问和使用ServerVariables集合中的任何一成员,控制ASP页面响应一个请求的方式。可以检查一个浏览者访问站点时使用的是否是缺省端口80或还是另一个。在这个例子里,寻找通过端口443的访问——这个端口提供的是安全套接字层(Secure Socket Layer,SSI)访问(和其他的协议),且将它们重定向到一个相应的页面。
  
  If Request.ServerVariables(“SERVER_PORT”) = “443”) Then
  Response.Redirect “/securesite/default.asp” ‘Secure user
  Else
  Response.Redirect “/normalsite/default.asp” ‘Non-secure user
  End If
  
    假如要求浏览者注册且由服务器验证(而不是允许他们在Web服务器的IUSER帐号下匿名访问,这个问题将在后面章节中详细讨论),可以查询用户名称,来判定正在与我们打交道的用户是谁,是否装载页面给该用户。例如,下面的这个代码将只向名为Administrator的用户显示管理链接。
  
  ...
  <A HREF=”dispcnfg.asp”>Change Display Configuration</A>
  
  <A HREF=”dispcolr.asp”>Change Display Colors</A>
  
  <A HREF=”keyboard.asp”>Change Keyboard Configuration</A>
  
  <%
  If Request.ServerVariables(“AUTH_USER”) _
  = Ucase(Request.ServerVariables(“SERVER_NAME”)) & “\Administrator” Then
  %>
  <A HREF=”allusers.asp”>Administer All Users</A>
  
  <A HREF=”usrlogon.asp”>Administer Logon Information</A>
  <%
  End If
  %>
  ...
  
    注意ASP不填写ServerVariables集合直到你访问其中的一个成员。首次访问该集合的一个成员将使IIS得到它的全部,应只在需要时才使用ServerVariables集合。
  

文章来源于领测软件测试网 https://www.ltesting.net/


关于领测软件测试网 | 领测软件测试网合作伙伴 | 广告服务 | 投稿指南 | 联系我们 | 网站地图 | 友情链接
版权所有(C) 2003-2010 TestAge(领测软件测试网)|领测国际科技(北京)有限公司|软件测试工程师培训网 All Rights Reserved
北京市海淀区中关村南大街9号北京理工科技大厦1402室 京ICP备10010545号-5
技术支持和业务联系:info@testage.com.cn 电话:010-51297073

软件测试 | 领测国际ISTQBISTQB官网TMMiTMMi认证国际软件测试工程师认证领测软件测试网