使用ServerVariables集合
當討論Request對象內(nèi)容時，要研究的集合之一就是ServerVariables集合。這個集合包含了兩種值的結(jié)合體，一種是隨同頁面請求從客戶端發(fā)送到服務(wù)器的HTTP報頭中的值，另外一種是由服務(wù)器在接收到請求時本身所提供的值。為顯示ServerVariables集合中值的使用方式，在Request Object頁面（Show_request.asp）中，點擊“ServerVariables Examples”鏈接，打開另外一個頁面，如下圖所示：
<img src=http://go2.163.com/~davelu/asp12.jpg>
下圖所示窗口顯示的是ServerVariables集合中一些非常有用的值的一個子集。
<img src=http://go2.163.com/~davelu/asp13.jpg>

“自引用”頁面
在ServerVariables集合中返回的值包含Web服務(wù)器的詳細信息和當前頁面的路徑信息。在任何地方創(chuàng)建一個頁面都可使用這些信息。例如創(chuàng)建一個“自引用”頁面，此頁面能夠再次調(diào)用自身完成另一項任務(wù)，我們可以用以下代碼：
<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 name
strPathOnly = Left(strFullPath, InStrRev(strFullPath, “/”))
strNextPage = strPathOnly & “pages/next_page.asp”
%>
...
<A HREF=”<% = strNextPage %>”>Next Page</A>
...
即使原始頁面的名稱或位置發(fā)生變化，這些實例都能正常工作，因為使用了當前頁面的路徑信息（當然，第二個例子在分離的目標頁的名稱發(fā)生變化時運行會失?。?BR>換句話說，如果為搜索引擎的子會話自動建立URL，可以收集ServerVariable的一些值：
strFullURL = http:// & Request.ServerVariables(“LOCAL_ADDR”) _
& “:” & Request.ServerVariables(“SERVER_PORT”) _
& Request.ServerVariables(“PATH_INFO”)
這將創(chuàng)建一個完整的URL包括端口號（這種情況下，不是標準值80）。例如，結(jié)果可能是：
http://194.74.60.254:1768/thispath/thispage.asp

檢測瀏覽器的版本
ServerVariables集合中，另外一個有用的值是用戶瀏覽器的用戶代理字符串。在“Detecting the Browser Type”頁面（browsertype.asp），使用ServerVariables集合中的“HTTP_USER_AGENT”值來獲得用戶代理字符串，一些腳本用來解析該信息并尋找生產(chǎn)廠家名稱和瀏覽器版本。
<%
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的搜索結(jié)果分別不同，對于其他廠家的瀏覽器，可以得到一個鏈接在Alta Vista Web站點自動開始搜索廠家的名稱。
注意，Netscape在用戶代理字符串中不提供廠家的名稱，因而無法絕對保證一個瀏覽器一定是Navigator。

檢測瀏覽器的語言
ServerVariables集合中另外一個有用的值是“HTTP_ACCEPT_LANGUAGE”，它包含了一個當瀏覽器安裝時指定的，或硬編碼進用戶的地區(qū)版本的語言代碼。語言代碼的例子有en-us（英國、美國）、de-at（德國、澳大利亞）和es-pe（西班牙、秘魯）。
語言代碼可以是一般的且省略方言標識：例如，在我們的站點Wrox者，大批瀏覽者都是將en（英語）作為語言代碼。
因此，可以檢測語言代碼并自動裝載一個合適的特定地區(qū)或指定語言版本的頁面。
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
或者根據(jù)特定的方言，重定向頁面：
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頁面響應(yīng)一個請求的方式。可以檢查一個瀏覽者訪問站點時使用的是否是缺省端口80或還是另一個。在這個例子里，尋找通過端口443的訪問——這個端口提供的是安全套接字層（Secure Socket Layer,SSI）訪問（和其他的協(xié)議），且將它們重定向到一個相應(yīng)的頁面。
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
假如要求瀏覽者注冊且由服務(wù)器驗證（而不是允許他們在Web服務(wù)器的IUSER帳號下匿名訪問，這個問題將在后面章節(jié)中詳細討論），可以查詢用戶名稱，來判定正在與我們打交道的用戶是誰，是否裝載頁面給該用戶。例如，下面的這個代碼將只向名為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得到它的全部，應(yīng)只在需要時才使用ServerVariables集合。

其他Request和Response技巧
現(xiàn)在，來看一下幾個使用Request和Response對象的有用技巧，包括：
· 連接、緩沖和頁面重定向的管理。
· HTTP報頭、緩存與“到期”頁面的操作。
· 利用客戶證書。
· 創(chuàng)建定制的日志文件消息。

1. 連接、緩沖和頁面重定向的管理
ASP的一個很有用的特點就是使用戶能夠從一個ASP網(wǎng)頁轉(zhuǎn)向到另一個網(wǎng)頁（ASP或HTML），或另一個源文件（例如一個ZIP文件或文本文件）。這對用戶來說是透明的，實際上是瀏覽器做這個工作。當使用Response.Redirect方法來載入一個新的網(wǎng)頁時，實際上是發(fā)送回一個特殊的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”>
這帶來的一個問題是，服務(wù)器與用戶之間的代理服務(wù)器可能會提供它自己的包含與新頁面的鏈接的消息，而不是直接載入新頁面。而且瀏覽器根據(jù)廠商和版本可能做同樣的工作。這就去除了假定的透明，而且對用戶來說一直收到的是錯誤信息，則對你的站點的訪問變得比較麻煩。
在發(fā)送諸如文本或HTML等任何頁面內(nèi)容后，我們就不能再使用Redirect方法。然而，一個看起來能夠限制“代理服務(wù)器影響”的方法是，先確定沒有輸出（包括HTTP報頭）被發(fā)送到客戶。在ASP 2.0中，必須打開緩沖，然后使用Clear方法來清空緩沖區(qū)：
Response.Buffer = True
‘Some condition to select the appropriate page:
If Request.ServerVariables(“SERVER_PORT”) = 1856 Then
StrNewPage = “/newpath/this_page.asp”
Else
StrNewPage = “/newpath/the_other_page.asp”
End If
Response.Clear
Response.Redirect strNewPage
在ASP 3.0中，緩沖缺省為打開，所以第一行可被忽略，但它是無害的，而且能確保我們的網(wǎng)頁即使在ASP 2.0環(huán)境中也仍然能工作。
與其使用這種類型的HTTP報頭重定向，不如使用ASP 3.0的一個新特性，它允許我們通過Server對象的Transfer方法轉(zhuǎn)換為執(zhí)行另一個網(wǎng)頁，我們將在第4章進一步研究這個問題。
1） ASP頁面緩沖區(qū)
正如已看到過的，IIS 5.0中ASP 3.0頁面緩沖是缺省打開的，在早期的版本中是缺省關(guān)閉的。微軟告訴我們緩沖在IIS 5.0中提供了更有效的網(wǎng)頁傳送，這就是緩沖缺省狀態(tài)被改變的原因。在大部分情況下，這對我們沒有影響。但是，假如有一個非常大的網(wǎng)頁，或一個用ASP或別的服務(wù)器端代碼和組件花費一定時間創(chuàng)建的網(wǎng)頁，當其各部分完成時，我們能夠分批刷新它們到客戶：
...
... Code to create first part of the page
...
Response.Flush
...
... Code to create next part of page
...
Response.Flush
...
有時可能希望在頁面結(jié)束之前的某些點上停止代碼的執(zhí)行，可以通過調(diào)用End方法去刷新所有的當前內(nèi)容到客戶并中止任何進一步的處理過程。
...
... Code to create first part of the page
If strUserName = “” Then Response.Clear
...
... Code to create a new version of this part of the page
...
這里有兩上演示緩沖和重定向的實例網(wǎng)頁，可以從“Response Object”主頁面（sow_response.asp）下載它們。第一個Response.Redirect例子網(wǎng)頁命名為redirect.asp，它在緩沖的頁面中定入一些內(nèi)容，清除緩沖區(qū)，并重定向到另一個網(wǎng)頁：
For intLoop = 1 To 1000000
Response.Write “.”
Next
Response.Clear
Response.Redirect “show_redirect.asp”
Response.End
目標頁show_response.asp，做同樣的工作，但重定向則是回到“Response Object”主頁。因為這些網(wǎng)頁都在緩沖區(qū)內(nèi)，而且所有的輸出在重定向之前必須清除，故在瀏覽器中沒有可見的輸出。然而，可以通過觀察瀏覽器的狀態(tài)看到發(fā)生的每一次重定向。如下圖所示：
<img src=http://go2.163.com/~davelu/asp14.jpg>
在“Response Object”主頁中，點擊“Response.Flush”鏈接將打開第二個示例網(wǎng)頁usebuffer.asp，它簡單地遍歷一個字符串的每一個字符，以一定的延遲將它們刷新到客戶，這雖是Web服務(wù)器和ASP極低效率的使用方式，但它演示了緩沖的工作方式。
<img src=http://go2.163.com/~davelu/asp15.jpg>
下面是所要求的最小化的ASP代碼，注意我們分別把每個字符刷新到瀏覽器，因為不這樣的話它將被存放在緩沖區(qū)中，直至網(wǎng)頁完成：
strText = “This text has been flushed to the browser using “ & _
“<B>Response.Flush</B>
”
For intChar =1 To Len(strText)
For intWrite = 1 To 100000
Next
Response.Write Mid(strText,intChar,1)
Response.Flush
Next

2） Response.IsClientConnected屬性
IsClientConnected屬性在ASP 2.0中已經(jīng)存在了，但卻有些不可靠。在其返回一個準確的結(jié)果之前必須發(fā)送一些輸出到客戶。這一問題在ASP 3.0中已被解決?，F(xiàn)在這一屬性可被自由使用。
IsClientConnected是觀察用戶是否仍連到服務(wù)器和正在載入ASP創(chuàng)建的網(wǎng)頁的有用方式。如果用戶斷開連接或停止下載，我們就不用再浪費服務(wù)器的資源創(chuàng)建網(wǎng)頁，因為緩沖區(qū)內(nèi)容將被IIS丟棄。所以，對那些需要大量時間計算或資源使用較多的網(wǎng)頁來說，值得在每一階段都檢查瀏覽器是否已離線：
...
... Code to create first part of the page
...
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
...
... Code to create next part of page...