檢測(cè)瀏覽器的版本 ServerVariables集合中，另外一個(gè)有用的值是用戶瀏覽器的用戶代理字符串。在“Detecting the Browser Type”頁(yè) 面（browsertype.asp），使用ServerVariables集合中的“HTTP_USER_AGENT”值來(lái)獲得用戶代理字符串，一些腳本用來(lái)解析該信息并尋找生產(chǎn)廠家名稱(chēng)和瀏覽器版本。 <% strUA = Request.ServerVariables(“HTTP_USER_AGENT”) Response.Write “The User Agent string is <B>” & strUA & “</B><P>” 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></P>” 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></P>” 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></P>” End If End If End If %> 對(duì)IE 5.0和Navigator 4.61的搜索結(jié)果分別不同，對(duì)于其他廠家的瀏覽器，可以得到一個(gè)鏈接在Alta Vista Web站點(diǎn)自動(dòng)開(kāi)始搜索廠家的名稱(chēng)。 注意，Netscape在用戶代理字符串中不提供廠家的名稱(chēng)，因而無(wú)法絕對(duì)保證一個(gè)瀏覽器一定是Navigator。
檢測(cè)瀏覽器的語(yǔ)言 ServerVariables集合中另外一個(gè)有用的值是“HTTP_ACCEPT_LANGUAGE”，它包含了一個(gè)當(dāng)瀏覽器安裝時(shí)指定的，或硬編碼進(jìn)用戶的地區(qū)版本的語(yǔ)言代碼。語(yǔ)言代碼的例子有en-us（英國(guó)、美國(guó)）、de-at（德國(guó)、澳大利亞）和es-pe（西班牙、秘魯）。 語(yǔ)言代碼可以是一般的且省略方言標(biāo)識(shí)：例如，在我們的站點(diǎn)Wrox者，大批瀏覽者都是將en（英語(yǔ)）作為語(yǔ)言代碼。 因此，可以檢測(cè)語(yǔ)言代碼并自動(dòng)裝載一個(gè)合適的特定地區(qū)或指定語(yǔ)言版本的頁(yè)面。 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ù)特定的方言，重定向頁(yè)面： 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集合的值 可以訪問(wèn)和使用ServerVariables集合中的任何一成員，控制ASP頁(yè)面響應(yīng)一個(gè)請(qǐng)求的方式。可以檢查一個(gè)瀏覽者訪問(wèn)站點(diǎn)時(shí)使用的是否是缺省端口80或還是另一個(gè)。在這個(gè)例子里，尋找通過(guò)端口443的訪問(wèn)——這個(gè)端口提供的是安全套接字層（Secure Socket Layer,SSI）訪問(wèn)（和其他的協(xié)議），且將它們重定向到一個(gè)相應(yīng)的頁(yè)面。 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 假如要求瀏覽者注冊(cè)且由服務(wù)器驗(yàn)證（而不是允許他們?cè)赪eb服務(wù)器的IUSER帳號(hào)下匿名訪問(wèn)，這個(gè)問(wèn)題將在后面章節(jié)中詳細(xì)討論），可以查詢用戶名稱(chēng)，來(lái)判定正在與我們打交道的用戶是誰(shuí)，是否裝載頁(yè)面給該用戶。例如，下面的這個(gè)代碼將只向名為Administrator的用戶顯示管理鏈接。 ... <A HREF=”dispcnfg.asp”>Change Display Configuration</A><BR> <A HREF=”dispcolr.asp”>Change Display Colors</A><BR> <A HREF=”keyboard.asp”>Change Keyboard Configuration</A><BR> <% If Request.ServerVariables(“AUTH_USER”) _ = Ucase(Request.ServerVariables(“SERVER_NAME”)) & “/Administrator” Then %> <A HREF=”allusers.asp”>Administer All Users</A><BR> <A HREF=”usrlogon.asp”>Administer Logon Information</A> <% End If %> ... 注意ASP不填寫(xiě)ServerVariables集合直到你訪問(wèn)其中的一個(gè)成員。首次訪問(wèn)該集合的一個(gè)成員將使IIS得到它的全部，應(yīng)只在需要時(shí)才使用ServerVariables集合。
1. 連接、緩沖和頁(yè)面重定向的管理 ASP的一個(gè)很有用的特點(diǎn)就是使用戶能夠從一個(gè)ASP網(wǎng)頁(yè)轉(zhuǎn)向到另一個(gè)網(wǎng)頁(yè)（ASP或HTML），或另一個(gè)源文件（例如一個(gè)ZIP文件或文本文件）。這對(duì)用戶來(lái)說(shuō)是透明的，實(shí)際上是瀏覽器做這個(gè)工作。當(dāng)使用Response.Redirect方法來(lái)載入一個(gè)新的網(wǎng)頁(yè)時(shí)，實(shí)際上是發(fā)送回一個(gè)特殊的HTTP報(bào)頭到客戶。此報(bào)頭為： HTTP/1.1 302 Object Moved Location /newpath/newpage.asp 瀏覽器讀到此報(bào)頭信息，并按Location值的指示載入頁(yè)面。這在功能上與在Web頁(yè)中使用客戶端HTML<META>標(biāo)記相同，例如： <META HTTP-EQUIV=”REFRESH” CONTENT=”0;URL=/newpath/newpage.asp”> 這帶來(lái)的一個(gè)問(wèn)題是，服務(wù)器與用戶之間的代理服務(wù)器可能會(huì)提供它自己的包含與新頁(yè)面的鏈接的消息，而不是直接載入新頁(yè)面。而且瀏覽器根據(jù)廠商和版本可能做同樣的工作。這就去除了假定的透明，而且對(duì)用戶來(lái)說(shuō)一直收到的是錯(cuò)誤信 息，則對(duì)你的站點(diǎn)的訪問(wèn)變得比較麻煩。在發(fā)送諸如文本或HTML等任何頁(yè)面內(nèi)容后，我們就不能再使用Redirect方法。然而，一個(gè)看起來(lái)能夠限制“代理服務(wù)器影響”的方法是，先確定沒(méi)有輸出（包括HTTP報(bào)頭）被發(fā)送到客戶。在ASP 2.0中，必須打開(kāi)緩沖，然后使用Clear方法來(lái)清空緩沖區(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中，緩沖缺省為打開(kāi)，所以第一行可被忽略，但它是無(wú)害的，而且能確保我們的網(wǎng)頁(yè)即使在ASP 2.0環(huán)境中也仍然能工作。 與其使用這種類(lèi)型的HTTP報(bào)頭重定向，不如使用ASP 3.0的一個(gè)新特性，它允許我們通過(guò)Server對(duì)象的Transfer方法轉(zhuǎn)換為執(zhí)行另一個(gè)網(wǎng)頁(yè)，我們將在第4章進(jìn)一步研究這個(gè)問(wèn)題。 1） ASP頁(yè)面緩沖區(qū) 正如已看到過(guò)的，IIS 5.0中ASP 3.0頁(yè)面緩沖是缺省打開(kāi)的，在早期的版本中是缺省關(guān)閉的。微軟告訴我們緩沖在IIS 5.0中提供了更有效的網(wǎng)頁(yè)傳送，這就是緩沖缺省狀態(tài)被改變的原因。在大部分情況下，這對(duì)我們沒(méi)有影響。但是，假如有一個(gè)非常大的網(wǎng)頁(yè)，或一個(gè)用ASP或別的服務(wù)器端代碼和組件花費(fèi)一定時(shí)間創(chuàng)建的網(wǎng)頁(yè)，當(dāng)其各部分完成時(shí)，我們能夠分批刷新它們到客戶： ... ... Code to create first part of the page ... Response.Flush ... ... Code to create next part of page ... Response.Flush ... 有時(shí)可能希望在頁(yè)面結(jié)束之前的某些點(diǎn)上停止代碼的執(zhí)行，可以通過(guò)調(diào)用End方法去刷新所有的當(dāng)前內(nèi)容到客戶并中止任何進(jìn)一步的處理過(guò)程。 ... ... 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 ... 這里有兩上演示緩沖和重定向的實(shí)例網(wǎng)頁(yè)，可以從“Response Object”主頁(yè)面（sow_response.asp）下載它們。第一個(gè)Response.Redirect例子網(wǎng)頁(yè)命名為redirect.asp，它在緩沖的頁(yè)面中定入一些內(nèi)容，清除緩沖區(qū)，并重定向到另一個(gè)網(wǎng)頁(yè)： For intLoop = 1 To 1000000 Response.Write “.” Next Response.Clear Response.Redirect “show_redirect.asp” Response.End 目標(biāo)頁(yè)show_response.asp，做同樣的工作，但重定向則是回到“Response Object”主頁(yè)。因?yàn)檫@些網(wǎng)頁(yè)都在緩沖區(qū)內(nèi)，而且所有的輸出在重定向之前必須清除，故在瀏覽器中沒(méi)有可見(jiàn)的輸出。然而，可以通過(guò)觀察瀏覽器的狀態(tài)看到發(fā)生的每一次重定向。如下圖所示：
下面是所要求的最小化的ASP代碼，注意我們分別把每個(gè)字符刷新到瀏覽器，因?yàn)椴贿@樣的話它將被存放在緩沖區(qū)中，直至網(wǎng)頁(yè)完成： strText = “This text has been flushed to the browser using “ & _ “<B>Response.Flush</B><P>” 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)存在了，但卻有些不可靠。在其返回一個(gè)準(zhǔn)確的結(jié)果之前必須發(fā)送一些輸出到客戶。這一問(wèn)題在ASP 3.0中已被解決。現(xiàn)在這一屬性可被自由使用。IsClientConnected是觀察用戶是否仍連到服務(wù)器和正在載入ASP創(chuàng)建的網(wǎng)頁(yè)的有用方式。如果用戶斷開(kāi)連接或停止下載，我們就不用再浪費(fèi)服務(wù)器的資源創(chuàng)建網(wǎng)頁(yè)，因?yàn)榫彌_區(qū)內(nèi)容將被IIS丟棄。所以，對(duì)那些需要大量時(shí)間計(jì)算或資源使用較多的網(wǎng)頁(yè)來(lái)說(shuō)，值得在每一階段都檢查瀏覽器是否已離線： ... ... 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...
