當討論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 name
strPathOnly = 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”) 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集合。
其他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
StrNewPage = “/newpath/this_page.ASP”
Else
StrNewPage = “/newpath/the_other_page.ASP”
End If
Response.Clear
Response.Redirect strNewPage
在ASP 3.0中,緩沖缺省為打開,所以第一行可被忽略,但它是無害的,而且能確保我們的網頁即使在ASP 2.0環境中也仍然能工作。
與其使用這種類型的HTTP報頭重定向,不如使用ASP 3.0的一個新特性,它允許我們通過Server對象的Transfer方法轉換為執行另一個網頁,我們將在以後進一步研究這個問題。
1) ASP頁面緩沖區
正如已看到過的,IIS 5.0中ASP 3.0頁面緩沖是缺省打開的,在早期的版本中是缺省關閉的。微軟告訴我們緩沖在IIS 5.0中提供了更有效的網頁傳送,這就是緩沖缺省狀態被改變的原因。在大部分情況下,這對我們沒有影響。但是,假如有一個非常大的網頁,或一個用ASP或別的服務器端代碼和組件花費一定時間創建的網頁,當其各部分完成時,我們能夠分批刷新它們到客戶:
...
... Code to create first part of the page
...
Response.Flush
...
... Code to create next part of page
...
Response.Flush
...
有時可能希望在頁面結束之前的某些點上停止代碼的執行,可以通過調用End方法去刷新所有的當前內容到客戶並中止任何進一步的處理過程。
...
... 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
...
這裡有兩上演示緩沖和重定向的實例網頁,可以從“Response Object”主頁面(sow_response.asp)下載它們。第一個Response.Redirect例子網頁命名為redirect.ASP,它在緩沖的頁面中定入一些內容,清除緩沖區,並重定向到另一個網頁:
For intLoop = 1 To 1000000
Response.Write “.”
Next
Response.Clear
Response.Redirect “show_redirect.ASP”
Response.End
目標頁show_response.ASP,做同樣的工作,但重定向則是回到“Response Object”主頁。因為這些網頁都在緩沖區內,而且所有的輸出在重定向之前必須清除,故在浏覽器中沒有可見的輸出。然而,可以通過觀察浏覽器的狀態看到發生的每一次重定向。如下圖所示:
<img src=/School/UploadFiles_7810/201105/20110525170739266.jpg>
在“Response Object”主頁中,點擊“Response.Flush”鏈接將打開第二個示例網頁usebuffer.asp,它簡單地遍歷一個字符串的每一個字符,以一定的延遲將它們刷新到客戶,這雖是Web服務器和ASP極低效率的使用方式,但它演示了緩沖的工作方式。
<img src=/School/UploadFiles_7810/201105/20110525170740146.jpg>
下面是所要求的最小化的ASP代碼,注意我們分別把每個字符刷新到浏覽器,因為不這樣的話它將被存放在緩沖區中,直至網頁完成:
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中已經存在了,但卻有些不可靠。在其返回一個准確的結果之前必須發送一些輸出到客戶。這一問題在ASP 3.0中已被解決。現在這一屬性可被自由使用。
IsClIEntConnected是觀察用戶是否仍連到服務器和正在載入ASP創建的網頁的有用方式。如果用戶斷開連接或停止下載,我們就不用再浪費服務器的資源創建網頁,因為緩沖區內容將被IIS丟棄。所以,對那些需要大量時間計算或資源使用較多的網頁來說,值得在每一階段都檢查浏覽器是否已離線:
...
... 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...