我們已經(jīng)在幾處見到ASP如何創(chuàng)建或修改在響應(yīng)頁(yè)面請(qǐng)示時(shí)被發(fā)送到客戶的HTTP報(bào)頭。在Response對(duì)象中有幾個(gè)屬性和方法可幫助我們做到一點(diǎn)。下面是一些報(bào)頭方法:
· 控制緩存和有效期。
· 創(chuàng)建狀態(tài)和定制的HTTP報(bào)頭。
· 指定MIME類型或內(nèi)容類型。
· 添加PICS標(biāo)簽。
接下來(lái)將簡(jiǎn)要地研究每一個(gè)方面??稍?ldquo;Response Object”主頁(yè)(show_response.asp)上,單擊相關(guān)屬性名或方法名,來(lái)檢查我們所說(shuō)的屬性和方法。
1. 緩存和“到期”ASP網(wǎng)頁(yè)
用戶的瀏覽器以及他們和服務(wù)器這間的任一代理服務(wù)器,都可以緩存HTML和用ASP創(chuàng)建的網(wǎng)頁(yè)。當(dāng)用戶隨后請(qǐng)求頁(yè)面時(shí),瀏覽器就發(fā)送一個(gè)“最新修改”的請(qǐng)求到服務(wù)器(使用一個(gè)包含緩存版本的日期的HTTP_IF_MODIFIED_SINCE報(bào)頭),詢問(wèn)網(wǎng)頁(yè)是否已被修改。
若沒(méi)有被修改,服務(wù)器應(yīng)用狀態(tài)碼和消息“304 Not Modified”來(lái)響應(yīng),瀏覽器將使用緩存的內(nèi)容而不會(huì)通過(guò)網(wǎng)絡(luò)下載一個(gè)副本。若已經(jīng)存在已修改的版本,它就會(huì)與“200 OK”狀態(tài)碼和消息一道被發(fā)送出去。
1) Response.CacheContol屬性
其他的一些因素也會(huì)影響這一處理過(guò)程。然而,任一被網(wǎng)頁(yè)使用的網(wǎng)絡(luò)路由內(nèi)的代理服務(wù)器(一般位于客戶機(jī)端),能被通過(guò)設(shè)置Response.CacheControl屬性為Private來(lái)放棄緩存網(wǎng)頁(yè)。在ASP 3.0中對(duì)ASP網(wǎng)頁(yè)這是缺省的,不用設(shè)置。但在網(wǎng)頁(yè)為個(gè)別訪問(wèn)者特別定制時(shí)尤其有用。這可以阻止別的在同一網(wǎng)絡(luò)上的用戶進(jìn)入同一網(wǎng)頁(yè)。當(dāng)CacheControl的屬性值被設(shè)定為Public時(shí),允許服務(wù)器緩存網(wǎng)頁(yè)。注意,一些代理服務(wù)器可能表現(xiàn)得不盡相同,或忽視或越過(guò)這個(gè)報(bào)頭。
在IE4中,在代理服務(wù)器緩存可用時(shí),有可能得到一個(gè)虛假的“This page has expired”消息。我們已提供了一個(gè)網(wǎng)頁(yè)(expiretest_form.asp),可以通過(guò)自己的代理服務(wù)器在網(wǎng)絡(luò)上做試驗(yàn),來(lái)檢查這一屬性的影響??梢酝ㄟ^(guò)在“Response Object”主頁(yè)中單擊“Response. CacheControl”鏈接來(lái)顯示這個(gè)網(wǎng)頁(yè)。如下圖所示:
這一頁(yè)面提交到expiretest_result.asp網(wǎng)頁(yè)時(shí),能夠設(shè)置Response.CacheControl屬性,然后在網(wǎng)頁(yè)中插入值和腳本被執(zhí)行的時(shí)間:
<%
If Request.Form(“public”) = “on” Then ‘Cache-Control check box was ticked
Response.CacheControl = “Public”
Else
Response.CacheControl = “Private”
End If
%>
<HTML>
...
Cache-Control is: <B><% = Response.CacheControl %></B><P>
Value in text box is: <B><% Response.Write Request.Form(“textbox”) %>
<%
Response.Write Right(“0” & Hour(Now),2) & “:” & Right(“0” & Minute(Now),_
& 2) & “:” & Right(“0” & Second(Now),2)
%></B>
通過(guò)單擊瀏覽器上的“Back”和“Forward”,能看到代碼是自動(dòng)執(zhí)行還是使用緩存的副本。
2) Response.Expires和Response.ExpiresAbsolute屬性
控制緩存的網(wǎng)頁(yè)存放時(shí)間的兩個(gè)屬性為Response對(duì)象的Expires和ExpriesAbsolute屬性。Response.Expires定義了風(fēng)頁(yè)在從緩存區(qū)被丟棄前應(yīng)保持有效的時(shí)間長(zhǎng)度,以創(chuàng)建以來(lái)的分鐘數(shù)形式表示。ExpiresAbsolute屬性為到期時(shí)間設(shè)置了一個(gè)絕對(duì)的日期和時(shí)間。
我們提供一個(gè)命名為addheaders_form.asp的例子網(wǎng)頁(yè),用于演示如何使用這些屬性。在“Response Object”主頁(yè)中單擊對(duì)這兩種屬性的鏈接。
在得到的頁(yè)面中,可加入自己定制的HTTP報(bào)頭,并可設(shè)置一些影響響應(yīng)的HTTP報(bào)頭的多種屬性。在“提交查詢內(nèi)容”按鈕上單擊時(shí),頁(yè)面show_headers.asp在返回的數(shù)據(jù)流中添加所選的報(bào)頭,然后顯示用來(lái)完成此操作的代碼,顯示相應(yīng)的執(zhí)行時(shí)間,可用來(lái)檢查頁(yè)面是被緩存還是被再次執(zhí)行。
show_headers.asp網(wǎng)頁(yè)中的代碼創(chuàng)建和添加HTTP報(bào)頭,程序如下:
<%
‘Write HTTP headers before any other output
If Request.Form(“expires”) = “on” Then _
Response.Expires = Request.Form(“expires_value”)
If Request.Form(“expiresabs”) = “on” Then _
Response.ExpiresAbsolute = Request.Form(“expiresabs_value”)
If Request.Form(“lastmod”) = “on” Then _
Response.AddHeader “LAST-MODIFIED”, Cstr(Request.Form(“lastmod_value”))
If Request.Form(“pragma”) = “on” Then _
Response.AddHeader “PRAGMA”, CStr(Request.Form(“pragma_value”))
If Request.Form(“refresh”) = “on” Then _
Response.AddHeader “REFRESH”, CStr(Request.Form(“refresh_value”))
If Request.Form(“addheader”) = “on” And Len(Request.Form(“addheader_name”)) Then _
Response.AddHeader CStr(Request.Form(“addheader_name”)), _
CStr(Request.Form(“addheader_value”))
If Request.Form(“status”) = “on” Then _
Response.Status = Request.Form(“status_value”)
%>
<HTML>
...
... Show code and execution time
...
其余部分僅僅是顯示已被執(zhí)行的代碼和執(zhí)行時(shí)間。讀者會(huì)注意到包含在網(wǎng)頁(yè)中的定制的報(bào)頭“PRAGMA”(至今我們還沒(méi)討論過(guò))。一些(先前的)代理服務(wù)器使用它作為網(wǎng)磁是否應(yīng)被緩存的指示。缺省是網(wǎng)頁(yè)被緩沖,除非接受到HTTP報(bào)頭“PRAGMA=NO-CACHE“。
2. 創(chuàng)建狀態(tài)碼和定制的HTTP報(bào)頭
可使用先前在實(shí)例網(wǎng)頁(yè)中所看到的Response對(duì)象的AddHeader方法來(lái)創(chuàng)建自己的狀態(tài)碼或自己喜歡的定制的報(bào)頭。這一方法需要兩個(gè)參數(shù):HTTP報(bào)頭名稱或一個(gè)包含其值或分配給它的值的字符串。作為一個(gè)例子,下面的代碼在頁(yè)面中添加REFRESH報(bào)頭:
Response.AddHeader “REFRESH”, ”60;URL=newpath/newpage.asp”
這等同于客戶機(jī)端<META>元素:
<META HTTP-EQUIV=”REFRESH”, “60;URL=newpath/newpage.asp”>
換句話說(shuō),也可配合Status屬性使用AddHeader方法使瀏覽器載入一個(gè)新的頁(yè)面:
Response.Status = “302 Object Moved”
Response.Addheader “Location”, “newpath/newpage.asp”
這等同于使用Response.Redirect方法:
Response.Redirect “newpath/newpage.asp”
Response.Status屬性可被用來(lái)發(fā)送一些所需要的狀態(tài)消息,例如添加如下幾行:
Response.Status= “401 Unauthorized”
Response.Addheader “WWW-Authenticate”, “BASIC”
強(qiáng)制瀏覽器顯示一個(gè)用戶名/口令對(duì)話框,然后使用BASIC驗(yàn)證把它們發(fā)送回服務(wù)器(將在本系列后續(xù)部分看到驗(yàn)證方法)。
3. MIME類型和內(nèi)容類型
當(dāng)我們想向?yàn)g覽器發(fā)送一個(gè)動(dòng)態(tài)創(chuàng)建的字符串,而且它們自己提供給瀏覽器時(shí)沒(méi)有直接指明內(nèi)容類型,而是提供表示是否是磁盤文件的擴(kuò)展名時(shí),Response.ContentType是非常有用的。除非特別指定,所有ASP創(chuàng)建的網(wǎng)頁(yè)缺省都為“text/type”。內(nèi)容類型的標(biāo)識(shí)符是MIME類型(MIME代表Multi-purpose Internet Multimedia Extension或Multi-pupose Internet Mail Extension,通常依據(jù)上下文來(lái)定)。
例如,若發(fā)送到客戶的數(shù)據(jù)注解是通過(guò)從數(shù)據(jù)庫(kù)讀二進(jìn)制值創(chuàng)建的圖片,就需要在發(fā)送任何內(nèi)容之前添加合適的CONTENT-TYPE報(bào)頭:
Response.ContentType = “image/jpeg” |
QUOT = Chr(34) StrPicsLabel = “(PICS-1.0” & QUOT & “http://www.rsac.org/ratingsv01.html”_ & QUOT & “ 1 gen true comment “ & QUOT _ & “RSACi North America Server” & QUOT & “ for “ & QUOT _ & “http://yoursite.com” & QUOT & “ on “ & QUOT _ & “1999.08.01T03:04-0500” & QUOT & “ r (n 0 s 0 v 2 l 3))” Response.Pics(strPicsLabel) |
(PICS-1.0 “http://www.rsac.org/ratingsv01.html” 1 gen true comment “RSACi North America Server” for “http://yoursite.com” on “1999.08.01T03:04-0500” r (n 0 s 0 v 2 l 3)) |
<TABEL CELLPADDING=0 CELLSPACING=0> <% For Each keyItem In Request.ClientCertificate() StrItemValue = Request.ClientCertificate(keyItem) If Len(strItemValue) > 90 Then strItemValue = Left(strItemValue, 60) & “..etc.” Response.Write “<TR><TD>” & keyItem & “ = “ & strItemValue & “</TD></TR>” Next %> </TABLE> |
If Request.ClientCertificate(“SubjectO”) = “Wrox Press Inc” Then Response.Redirect “/wrox_staff/default.asp” ‘Wrox staff site Else Response.Redirect “/public/Default.asp” ‘Normal public site End If |
Select Case Request.ClientCertificate(“SubjectC”) Case “UK”: 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/” ‘... ect. Case Else: Response.Redirect “http://us_site.com/” End Select |
varContent = Request.BinaryRead(64) |
Response.BinaryWrite(varContent) |
... If intItemCount > 25 Then Response.AppendToLog “Large order from ‘” & strDept & department.” End If ... |
strToAppend = “Page executed on ” & Now Response.AppendToLog strToAppend |
新聞熱點(diǎn)
疑難解答
圖片精選