当讨论Request对象内容时,要研究的集合之一就是ServerVariables集合。这个集合包含了两种值的结合体,一种是随同页面请求从客户端发送到服务器的HTTP报头中的值,另外一种是由服务器在接收到请求时本身所提供的值。
“自引用”页面
在ServerVariables集合中返回的值包含Web服务器的详细信息和当前页面的路径信息。在任何地方创建一个页面都可使用这些信息。例如创建一个“自引用”页面,此页面能够再次调用自身完成另一项任务,我们可以用以下代码:
<FORM ACTION=”<% = Request.ServerVariables(“PATH_INFO”) %>” METHOD=”POST”>
同样的效果可以用HTTP的“SCRIPT_NAME”值获得:
<FORM ACTION=”<% = Request.ServerVariables(“SCRIPT_NAME”) %>” METHOD=”POST”>
使用<A>元素打开一个不同页,可以使用:
...
<%strFullPath = Request.ServerVariables(“PATH_INFO”)‘Strip off the file namestrPathOnly = Left(strFullPath, InStrRev(strFullPath, “/”))strNextPage = strPathOnly & “pages/next_page.asp”%>...<A HREF=”<% = strNextPage %>”>Next Page</A>...
即使原始页面的名称或位置发生变化,这些实例都能正常工作,因为使用了当前页面的路径信息(当然,第二个例子在分离的目标页的名称发生变化时运行会失败)。
换句话说,如果为搜索引擎的子会话自动建立URL,可以收集ServerVariable的一些值:
strFullURL = http:// & Request.ServerVariables(“LOCAL_ADDR”) _ & “:” &Request.ServerVariables(“SERVER_PORT”) _ & Request.ServerVariables(“PATH_INFO”)
这将创建一个完整的URL包括端口号(这种情况下,不是标准值80)。例如,结果可能是:
http://194.74.60.254:1768/thispath/thispage.asp
检测浏览器的版本
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”) ThenResponse.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 ThenResponse.Write “You can use Microsoft Dynamic HTML”End IfElseIf InStr(strUA, “Mozilla”) ThenIf InStr(strUA, “compatible;”) = 0 ThenResponse.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 ThenResponse.Write “You can probably use Netscape Dynamic HTML”End IfElsestrVersion = 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 IfEnd IfEnd 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
If Request.ServerVariables(“SERVER_PORT”) = “443”) ThenResponse.Redirect “/securesite/default.asp” ‘Secure userElseResponse.Redirect “/normalsite/default.asp” ‘Non-secure userEnd 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集合。
其他Request和Response技巧
现在,来看一下几个使用Request和Response对象的有用技巧,包括:
· 连接、缓冲和页面重定向的管理。
· HTTP报头、缓存与“到期”页面的操作。
· 利用客户证书。
· 创建定制的日志文件消息。
1. 连接、缓冲和页面重定向的管理
ASP的一个很有用的特点就是使用户能够从一个ASP网页转向到另一个网页(ASP或HTML),或另一个源文件(例如一个ZIP文件或文本文件)。这对用户来说是透明的,实际上是浏览器做这个工作。当使用Response.Redirect方法来载入一个新的网页时,实际上是发送回一个特殊的HTTP报头到客户。此报头为:
HTTP/1.1 302 Object Moved
Location /newpath/newpage.asp
浏览器读到此报头信息,并按Location值的指示载入页面。这在功能上与在Web页中使用客户端HTML<META>标记相同,例如:
<META HTTP-EQUIV=”REFRESH” CONTENT=”0;URL=/newpath/newpage.asp”>
这带来的一个问题是,服务器与用户之间的代理服务器可能会提供它自己的包含与新页面的链接的消息,而不是直接载入新页面。而且浏览器根据厂商和版本可能做同样的工作。这就去除了假定的透明,而且对用户来说一直收到的是错误信息,则对你的站点的访问变得比较麻烦。
在发送诸如文本或HTML等任何页面内容后,我们就不能再使用Redirect方法。然而,一个看起来能够限制“代理服务器影响”的方法是,先确定没有输出(包括HTTP报头)被发送到客户。在ASP 2.0中,必须打开缓冲,然后使用Clear方法来清空缓冲区:
Response.Buffer = True‘Some condition to select the appropriate page:If Request.ServerVariables(“SERVER_PORT”) = 1856 Then
这里有两上演示缓冲和重定向的实例网页,可以从“Response Object”主页面(sow_response.asp)下载它们。第一个Response.Redirect例子网页命名为redirect.asp,它在缓冲的页面中定入一些内容,清除缓冲区,并重定向到另一个网页:
For intLoop = 1 To 1000000
...... Code to create first part of the page...If Response.IsClientConnected ThenResponse.FlushElseResponse.EndEnd If...... Code to create next part of page...