二十八條改善 ASP 性能和外觀的技巧

性能是一個特征。您必須預(yù)先設(shè)計性能，否則您以后就得重寫應(yīng)用程序。就是說，有哪些好的策略可使 Active Server Pages (ASP) 應(yīng)用程序性能達(dá)到最佳？

本文介紹了優(yōu)化 ASP 應(yīng)用程序和 Visual Basic? Scripting Edition (VBScript) 的技巧。本文討論了許多陷阱。本文列出的建議已經(jīng)在 http://www.microsoft.com 和其它站點中進(jìn)行了測試，效果十分顯著。本文假定您已經(jīng)對 ASP 開發(fā)，包括 VBScript 和/或 JScript、ASP Application、ASP Session 和其它 ASP 固有對象（Request、Response 和 Server）有了基本了解。

通常，ASP 性能主要取決于 ASP 代碼本身以外的很多因素。我們不在一篇文章中羅列出所有的信息，在本文結(jié)尾處我們列出了與性能有關(guān)的資源。這些鏈接涵蓋了 ASP 和非 ASP 主題，包括 ActiveX? 數(shù)據(jù)對象 (ADO)、組件對象模型 (COM)、數(shù)據(jù)庫和 Internet Information Server (IIS) 配置。這些都是我們喜歡的一些鏈接 - 一定要去看看。

典型的 ASP 頁從后端數(shù)據(jù)存儲中檢索數(shù)據(jù)，然后將結(jié)果轉(zhuǎn)換成超文本標(biāo)記語言 (HTML)。無論數(shù)據(jù)庫的速度如何，從內(nèi)存中檢索數(shù)據(jù)總要比從后端數(shù)據(jù)存儲中檢索數(shù)據(jù)快得多。從本地硬盤讀取數(shù)據(jù)通常也比從數(shù)據(jù)庫中檢索數(shù)據(jù)更快。因此，通?？梢詫?shù)據(jù)緩存在 Web 服務(wù)器上（存儲在內(nèi)存或磁盤中），來提高性能。

緩存是傳統(tǒng)的以空間換取時間的做法。如果您緩存的內(nèi)容正確，那么您可以看到性能會有顯著的提高。為使緩存有效，必須保存那些經(jīng)常重復(fù)使用的數(shù)據(jù)，且要重新計算這些數(shù)據(jù)需要（適度）大的開銷。如果緩存的都是些陳舊的數(shù)據(jù)，就會造成內(nèi)存浪費。

不經(jīng)常發(fā)生改變的數(shù)據(jù)是很好的緩存候選數(shù)據(jù)，因為您不必?fù)?dān)心隨著時間的遷移該數(shù)據(jù)與數(shù)據(jù)庫同步的問題。組合框列表、引用表、DHTML 碎片、擴(kuò)展標(biāo)記語言 (XML) 字符串、菜單項和站點配置變量（包括數(shù)據(jù)源名稱 (DSN)、Internet 協(xié)議 (IP) 地址和 Web 路徑）都是很好的緩存候選內(nèi)容。注意您可以緩存數(shù)據(jù)的“表示”，而不緩存數(shù)據(jù)本身。如果 ASP 頁很少更改，且緩存的開銷也很大（例如，整個產(chǎn)品目錄），則應(yīng)考慮事先產(chǎn)生 HTML，而不是在響應(yīng)每個請求時重新顯示。

應(yīng)將數(shù)據(jù)緩存在哪里，有哪些緩存策略？通常，數(shù)據(jù)緩存在 Web 服務(wù)器的內(nèi)存或磁盤中。下兩個技巧講述了這兩個方法。

ASP Application 和 Session 對象為將數(shù)據(jù)緩存在內(nèi)存中提供了方便的容器。您可以將數(shù)據(jù)指派到 Application 和 Session 對象中，這些數(shù)據(jù)在 HTTP 調(diào)用之間保留在內(nèi)存中。Session 數(shù)據(jù)是按每個用戶分別存儲的，而 Application 數(shù)據(jù)則在所有用戶之間共享。

什么時候?qū)?shù)據(jù)裝載到 Application 或 Session 中呢？通常，數(shù)據(jù)是在啟動 Application 或 Session 時裝載。要在 Application 或 Session 啟動過程中裝載數(shù)據(jù)，應(yīng)將適當(dāng)?shù)拇a分別添加到 Application_OnStart() 或 Session_OnStart() 中。這些函數(shù)應(yīng)在 Global.asa 中，如果沒有，則可以添加這些函數(shù)。還可以在第一次需要時裝載該數(shù)據(jù)。為此，在 ASP 頁中添加一些代碼（或編寫一個可重復(fù)使用的腳本函數(shù)），以檢查數(shù)據(jù)是否存在，如果不存在，就裝載數(shù)據(jù)。這是一個傳統(tǒng)的性能技術(shù)，稱為“惰性計算” - 在您知道需要某一個值以前不計算該值。例如：

<%
Function GetEmploymentStatusList
Dim d
d = Application(?EmploymentStatusList?)
If d = ?? Then
' FetchEmploymentStatusList function (not shown)
' fetches data from DB, returns an Array
d = FetchEmploymentStatusList()
Application(?EmploymentStatusList?) = d
End If
GetEmploymentStatusList = d
End Function
%>


可以為所需要的每個數(shù)據(jù)塊編寫類似的函數(shù)。

應(yīng)以什么格式存儲數(shù)據(jù)？可以存儲任何變體類型，因為所有腳本變量都是變體型。例如，您可以存儲字符串、整數(shù)或數(shù)組。通常，您將以這些變量類型之一存儲 ADO 記錄集的內(nèi)容。要從 ADO 記錄集獲取數(shù)據(jù)，您可以手工將數(shù)據(jù)復(fù)制到 VBScript 變量，一次一個字段。使用一個 ADO 記錄集持久函數(shù) GetRows()、GetString() 或 Save()(ADO 2.5)，可加快速度且更容易一些。其詳細(xì)情況已超出本文所討論的范圍，但下面給出了一個函數(shù)舉例，說明使用 GetRows() 返回記錄集數(shù)據(jù)的一個數(shù)組：

' Get Recordset, return as an Array
Function FetchEmploymentStatusList
Dim rs
Set rs = CreateObject(?ADODB.Recordset?)
rs.Open ?select StatusName, StatusID from EmployeeStatus?, _
?dsn=employees;uid=sa;pwd=;?
FetchEmploymentStatusList = rs.GetRows() ? Return data as an Array
rs.Close
Set rs = Nothing
End Function


對上面舉例做更進(jìn)一步改進(jìn)，可以將 HTML 緩存為列表，而不是數(shù)組。下面是簡單的示例：

' Get Recordset, return as HTML Option list
Function FetchEmploymentStatusList
Dim rs, fldName, s
Set rs = CreateObject(?ADODB.Recordset?)
rs.Open ?select StatusName, StatusID from EmployeeStatus?, _
?dsn=employees;uid=sa;pwd=;?
s = ?? & vbCrLf
Set fldName = rs.Fields(?StatusName?) ' ADO Field Binding
Do Until rs.EOF
' Next line violates Don't Do String Concats,
' but it's OK because we are building a cache
s = s & ? ? & fldName & ?? & vbCrLf
rs.MoveNext
Loop
s = s & ?? & vbCrLf
rs.Close
Set rs = Nothing ' See Release Early
FetchEmploymentStatusList = s ' Return data as a String
End Function


在適當(dāng)?shù)臈l件下，可以將 ADO 記錄集本身緩存在 Application 或 Session 作用域中。有兩個警告：

如果不能保證滿足這兩個要求，則不要緩存 ADO 記錄集。在下面的“非敏捷組件”和“不要緩存連接”技巧中，我們將討論將 COM 對象存儲在 Application 或 Session 作用域中的危險性。

當(dāng)您將數(shù)據(jù)存儲在 Application 或 Session 作用域時，數(shù)據(jù)將保留在那里，直到您以編程方式改變它、Session 過期或 Web 應(yīng)用程序重新啟動為止。如果數(shù)據(jù)需要更新怎么辦？要手工強制對 Application 數(shù)據(jù)進(jìn)行更新，您可以訪問只有管理員才可訪問的 ASP 頁來更新數(shù)據(jù)?；蛘?，您可以通過函數(shù)定期自動刷新數(shù)據(jù)。下面例子存儲帶有緩存數(shù)據(jù)的時間戳，并隔一段時間后刷新數(shù)據(jù)。

<%
' error handing not shown...
Const UPDATE_INTERVAL = 300 ' Refresh interval, in seconds

' Function to return the employment status list
Function GetEmploymentStatusList
UpdateEmploymentStatus
GetEmploymentStatusList = Application(?EmploymentStatusList?)
End Function

' Periodically update the cached data
Sub UpdateEmploymentStatusList
Dim d, strLastUpdate
strLastUpdate = Application(?LastUpdate?)
If (strLastUpdate = ??) Or _
(UPDATE_INTERVAL < DateDiff(?s?, strLastUpdate, Now)) Then

' Note: two or more calls might get in here. This is okay and will simply
' result in a few unnecessary fetches (there is a workaround for this)

' FetchEmploymentStatusList function (not shown)
' fetches data from DB, returns an Array
d = FetchEmploymentStatusList()

' Update the Application object. Use Application.Lock()
' to ensure consistent data
Application.Lock
Application(?EmploymentStatusList?) = Events
Application(?LastUpdate?) = CStr(Now)
Application.Unlock
End If
End Sub


請參見 World's Fastest ListBox with Application Data，上面還有一個例子。

要知道在 Session 或 Application 對象中緩存大的數(shù)組不是一個好的做法。在訪問數(shù)組的任何元素之前，腳本語言的語法要求必須臨時復(fù)制整個數(shù)組。例如，如果將由字符串組成的有 100,000 個元素的數(shù)組（該數(shù)組將美國郵政編碼映射到當(dāng)?shù)氐臍庀笳荆┚彺嬖?Application 對象中，ASP 必須先將所有的 100,000 個氣象站復(fù)制到臨時數(shù)組中，然后才能提取一個字符串。在這種情況下，用自定義方法建立一個自定義組件來存儲氣象站 - 或使用一個詞典組件會更好。

再警告大家一下，不要將嬰兒與洗澡水一起倒掉：數(shù)組能快速查尋和存儲在內(nèi)存中是鄰近的關(guān)鍵數(shù)據(jù)對。索引一個詞典比索引一個數(shù)組要慢得多。應(yīng)針對您的實際情況，選擇提供最佳性能的數(shù)據(jù)結(jié)構(gòu)。

有時，數(shù)據(jù)可能太多，無法都緩存在內(nèi)存中。“太多”只是一個說法，這要看您想消耗多少內(nèi)存，以及需緩存的項目數(shù)和檢索這些項目的頻率。在任何情況下，如果數(shù)據(jù)太多而無法都緩存在內(nèi)存中，則考慮將數(shù)據(jù)以文本或 XML 文件緩存在 Web 服務(wù)器的硬盤上?？梢酝瑫r將數(shù)據(jù)緩存在磁盤和內(nèi)存中，為您的站點建立最適宜的緩存策略。

注意當(dāng)測量單個 ASP 頁的性能時，檢索磁盤上的數(shù)據(jù)可能不一定要比從數(shù)據(jù)庫檢索數(shù)據(jù)更快。但緩存會降低數(shù)據(jù)庫和網(wǎng)絡(luò)上的負(fù)載。在高負(fù)載的情況下，這樣做可大大改善總體吞吐量。當(dāng)緩存開銷很大的查詢結(jié)果（如多表聯(lián)接或復(fù)合存儲過程）或大的結(jié)果集時，這是非常有效的。與往常一樣，要測試一下幾種方案的優(yōu)劣。

ASP 和 COM 提供一些建立基于磁盤的緩存方案的工具。ADO 記錄集 Save() 和 Open() 函數(shù)保存和裝載磁盤中的記錄集。可以使用這些方法重新編寫上面 Application 數(shù)據(jù)緩存技巧中的代碼示例，用文件的 Save() 代替寫到 Application 對象中的代碼。

有一些其它組件可以用于文件：

最后，應(yīng)考慮將數(shù)據(jù)的表示緩存在磁盤上，而不是數(shù)據(jù)本身。預(yù)先轉(zhuǎn)換的 HTML 可以用 .htm 或 .asp 文件存儲在磁盤上，超級鏈接可以直接指向這些文件?？梢允褂蒙逃霉ぞ撸?XBuilder，或 Microsoft? SQL Server? Internet 發(fā)布功能將產(chǎn)生 HTML 的過程自動化?；蛘?，您可以將 HTML 代碼片斷放在 .asp 文件中。還可以使用 FileSystemObject 從磁盤讀取 HTML 文件，或使用 XML 盡早轉(zhuǎn)換。

盡管將數(shù)據(jù)緩存在 Application 或 Session 對象中是一個好的做法，但緩存 COM 對象卻有嚴(yán)重的陷阱。通常，人們傾向于將經(jīng)常使用的 COM 對象緩存到 Application 或 Session 對象中。很遺憾，許多 COM 對象（包括所有以 Visual Basic 6.0 或更低版本編寫的對象）當(dāng)存儲在 Application 或 Session 對象時，會引起嚴(yán)重的瓶頸。

具體來講，當(dāng)任何不敏捷的組件緩存在 Session 或 Application 對象時，將引起性能瓶頸。敏捷的組件是被標(biāo)記為 ThreadingModel=Both 的組件，它聚集 Free-threaded marshaler (FTM)；或被標(biāo)記為 ThreadingModel=Neutral 的組件。（Neutral 模型是 Windows? 2000 和 COM+ 的新增模型。） 下列組件不是敏捷的：

配置的組件（Microsoft Transaction Server (MTS)/COM+ 庫和服務(wù)器程序包/應(yīng)用程序）不是敏捷的，除非它們是 Neutral 線程。單元線程組件和其它非敏捷的組件在頁作用域內(nèi)是最適合的（即，它們在單個 ASP 頁上創(chuàng)建和銷毀）。

在 IIS 4.0 中，被標(biāo)記為 ThreadingModel=Both 的組件被認(rèn)為是敏捷的。在 IIS 5.0 中，只有這一點還不夠。組件必須不僅被標(biāo)記 Both，還必須聚集 FTM。有關(guān)敏捷性的文章講述了如何使以 Active Template Library 編寫的 C++ 組件聚集 FTM。要注意如果組件緩存界面指針，那么那些指針本身必須是敏捷的，或必須存儲在 COM 共用界面表 (GIT) 中。如果您不能重新編譯 Both 線程組件以聚集 FTM，那么您可以將組件標(biāo)記為 ThreadingModel=Neutral?；蛘撸绻幌胱?IIS 執(zhí)行敏捷性檢查（因此，您可以允許非敏捷的組件存儲在 Application 或 Session 作用域中），您可以在配置數(shù)據(jù)庫中將 AspTrackThreadingModel 設(shè)置為 True。不建議更改 AspTrackThreadingModel。

如果您想將以 Server.CreateObject 創(chuàng)建的非敏捷的組件存儲在 Application 對象中，IIS 5.0 將出現(xiàn)一個錯誤。您可以在 Global.asa 中使用