當討論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>”) %>” 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
假如要求瀏覽者註冊且由伺服器驗證(而不是允許他們在網路伺服器的IUSER帳號下匿名訪問,這個問題將在後面章節中詳細討論),可以查詢用戶名稱,來判定正在與我們打交道的用戶是誰,是否裝載頁面給該使用者。例如,下面的這個程式碼將只向名為Administrator的使用者顯示管理連結。
……
<A HREF=”dispcnfg.asp”>Change Display Configuration</A>
<A HREF=”dispcolr.asp”>Change Display Colors</A>
<A HREF=”keyboard.asp>A/Chanration 3/3mration KeyEF=”keyboard.asp)/Cigration/T3mration KeyEF=”keyboard.asp>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=/u/info_img/2009-06/25/asp14.jpg>
在「Response Object」首頁中,點擊「Response.Flush」連結將開啟第二個範例網頁usebuffer.asp,它簡單地遍歷一個字串的每一個字符,以一定的延遲將它們刷新到客戶,這雖是Web伺服器和ASP極低效率的使用方式,但它演示了緩衝的工作方式。
<img src=/u/info_img/2009-06/25/asp15.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...