如何增強(qiáng)ASP程序性能(1)
 2000-08-10· 甘冀平·Yesky

簡介

　　性能是一個很重要的特征。你需要事先設(shè)計好性能指標(biāo)，否則日后就要為此重新編寫程序。就是說：要設(shè)想好怎樣最佳化地執(zhí)行ASP程序？

　　本文提出了一些優(yōu)化ASP應(yīng)用和VBScript的技巧，許多技巧和缺陷都經(jīng)過了研討。這里列出的建議已經(jīng)在http://www.microsoft.com 和其他站點上進(jìn)行了測試，都工作得非常好。本文假設(shè)你具備ASP開發(fā)的基本知識，包括VBScript或者JScript，ASP應(yīng)用程序，ASP Session，以及其他ASP內(nèi)置對象（Request，Response和Server）。

　　通常，ASP的執(zhí)行性能遠(yuǎn)遠(yuǎn)不僅僅依賴ASP代碼本身！在本文的尾部列出了與性能相關(guān)的資源，它們含概了ASP和非ASP的部分，包含ActiveX Data Objects（ADO），Component Object Model（COM），數(shù)據(jù)庫（Database），以及Internet信息服務(wù)器（IIS）的配置。除了這些，還有一些非常好的鏈接值得你一看。

技巧1：在Web服務(wù)器上緩存經(jīng)常使用的數(shù)據(jù)

　　典型的情況是：ASP頁面從后臺存儲中取回數(shù)據(jù)，然后以超文本標(biāo)記語言（HTML）的形式形成結(jié)果。不管數(shù)據(jù)庫的速度如何，從內(nèi)存中取回數(shù)據(jù)要比從后臺存儲設(shè)備中快得多。從本地硬盤讀取數(shù)據(jù)通常也非常快。所以，提高性能可以通過緩存服務(wù)器上的數(shù)據(jù)來實現(xiàn)，無論是將數(shù)據(jù)緩存在內(nèi)存中，或者本地硬盤中。

　　緩存是經(jīng)典的“空間換時間”的折中方式。如果緩存得恰當(dāng)，就可以看到顯著的性能提升。為了讓緩存有效，必須保證緩存數(shù)據(jù)是經(jīng)常要重用的，而且也是計算起來繁瑣的。裝滿陳舊數(shù)據(jù)的緩存是對內(nèi)存的浪費。

　　不經(jīng)常改變的數(shù)據(jù)是緩存的較好對象，因為不需要隨時考慮這些數(shù)據(jù)更新后的同步操作。組合框、參考表格、DHTML代碼、擴(kuò)展標(biāo)記語言串、菜單以及站點配置變量（包括數(shù)據(jù)源名字DSNS，Internet協(xié)議地址IP以及Web路徑）都是很好的緩存對象。注意：要緩存數(shù)據(jù)表達(dá)式而不是數(shù)據(jù)本身。如果一個ASP頁面經(jīng)常變化并且很費力去緩存（比如整個產(chǎn)品目錄），就要考慮預(yù)產(chǎn)生HTML，而不是每次發(fā)生請求時再描述它。

技巧2：在Application或Session對象中緩存經(jīng)常使用的數(shù)據(jù)

　　ASP中的Application和Session對象是在內(nèi)存中緩存數(shù)據(jù)的便利容器。你可以將數(shù)據(jù)賦值給Application和Session對象，這些數(shù)據(jù)在HTTP調(diào)用期間將一直保持在內(nèi)存中。Session中的數(shù)據(jù)是為每一個用戶服務(wù)的，Application中的數(shù)據(jù)是所有用戶共享的。

　　何時需要在Application和Session中裝入數(shù)據(jù)？通常，當(dāng)應(yīng)用程序啟動或者會話開始時，數(shù)據(jù)就被裝入了。為了在這時裝入數(shù)據(jù)，在Application OnStart()或者Session OnStart()中分別添加適當(dāng)?shù)拇�碼。這些函數(shù)位于文件Global.asa中，如果原來不存在，就添加上。也可以在數(shù)據(jù)首次需要的時候調(diào)入，在ASP頁面中添加代碼，檢查數(shù)據(jù)是否存在，如果沒有發(fā)現(xiàn)，就調(diào)入它。這里有一個例子，它代表了被稱為“l(fā)azy evalution”的經(jī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ù)代碼。

　　數(shù)據(jù)應(yīng)該按什么格式保存？任何變量類型都可以，因為所有的腳本變量都是不同的。比如說，可以保存為字符串、整型或者數(shù)據(jù)。通常，將ADO記錄集的內(nèi)容存儲到這些變量類型中一個。為了從ADO記錄集中取出數(shù)據(jù)，需要手工地拷貝數(shù)據(jù)到VBScript變量中，每次一個字段。使用任意一個ADO記錄集的函數(shù)functions GetRows(),GetString() 或者 Save() (ADO 2.5)都非常得快速而且簡單，這里有個函數(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

上述代碼的一個更深的技巧是為列表緩存了HTML。下面是個簡單的例子：

' 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 = "<select name=""EmploymentStatus">" & 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 & " <option>" & fldName & "</option>" & vbCrLf
rs.MoveNext
Loop
s = s & "</select>" & vbCrLf
rs.Close
Set rs = Nothing ' See Release Early
FetchEmploymentStatusList = s ' Return data as a String
End Function

在合適的環(huán)境下，可以在Application或者Session中緩存ADO記錄集本身，但是有2點提示：

ADO必須是自由線程標(biāo)記的
需要使用disconnected recordset方式
　　如果不能保證上述2個條件，就不要緩存ADO記錄集，因為這會產(chǎn)生很大的危險性。

　　當(dāng)在Application或Session中保存數(shù)據(jù)后，數(shù)據(jù)將一直保持，除非程序改變它、Session變量到期或者Web應(yīng)用程序重新啟動。如果數(shù)據(jù)需要更新，怎么辦？可以調(diào)用只有管理員才能訪問的ASP頁面來更新數(shù)據(jù)，或者，通過函數(shù)周期性的自動更新數(shù)據(jù)。下面的例子中，與緩存數(shù)據(jù)一起保存了時鐘標(biāo)記，過一段時間后，就刷新數(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") = d
Application("LastUpdate") = CStr(Now)
Application.Unlock
End If
End Sub

有另外一個例子，請參閱 World’s Fastest ListBox with Application Data。

　　必須意識到，在Session或者Application對象中緩存大容量的數(shù)組不是一個好的方法。存取數(shù)組中任何元素前，腳本語言的規(guī)則要求首先要建立整個數(shù)組的臨時備份。比如，如果在Application對象中緩存一個100，000個元素的數(shù)組，其中包含U.S.郵政編碼與本地氣象站的對應(yīng)關(guān)系，ASP就必須首先拷貝所有100，000個氣象站信息到臨時數(shù)組中，然后才能選擇其中一個字符串進(jìn)行處理。在這種情況下，創(chuàng)建一個定制的組件，編寫一個方法存儲氣象站信息，是非常好的方法。

技巧3：在Web服務(wù)器磁盤上緩存數(shù)據(jù)和HTML頁面

　　有時候，有“許多”數(shù)據(jù)要在內(nèi)存中緩存。“許多”是相對而言的，它取決于能消耗多少內(nèi)存、緩存項目的數(shù)量以及取回數(shù)據(jù)的頻度。任何情況下，如果需要在內(nèi)存中緩存大量的數(shù)據(jù)，請考慮以text或者XML文件格式在Web服務(wù)器硬盤上做緩存。當(dāng)然，也可以混合使用硬盤緩存數(shù)據(jù)以及內(nèi)存緩存數(shù)據(jù)，從而達(dá)到最佳緩存。

　　注意：當(dāng)測試一個單一ASP頁面的性能時，從磁盤取回數(shù)據(jù)不一定比從網(wǎng)絡(luò)數(shù)據(jù)庫中取回數(shù)據(jù)快，但是緩存減少了網(wǎng)絡(luò)數(shù)據(jù)庫的調(diào)用。在大規(guī)模調(diào)用時，這將明顯地提高網(wǎng)絡(luò)的吞吐能力。緩存一個費時的查詢結(jié)果是非常有用的，比如對于一個復(fù)雜的存儲過程，或者大量的結(jié)果數(shù)據(jù)。

　　ASP和COM提供了幾種建立基于磁盤緩沖配置的工具。ADO記錄集的Save（）和 Open（）函數(shù)負(fù)責(zé)保存和調(diào)入磁盤上的記錄集。另外還有一些組件：

Scripting.FileSystemObject 允許你創(chuàng)建、讀取和寫文件
MSXML，Microsoft XML 解析器隨Internet Explorer而來，支持保存和裝入XML文檔
LookupTable對象（比如在MSN上使用）是從磁盤調(diào)入簡單列表的很好選擇。
　　最后，考慮緩存磁盤數(shù)據(jù)的表達(dá)式，而不是數(shù)據(jù)本身。預(yù)處理的HTML可以存儲為.htm或者.asp文件，鏈接直接指向它們。使用諸如XBuilder或者M(jìn)icrosoft SQL Server Internet發(fā)布類的商業(yè)工具，能夠自動處理這些過程。而且，也可以在.asp文件中包含HTML程序片斷。同樣，也可使用FileSystemObject從磁盤上讀取HTML文件，或者使用XML for early rendering來做這個工作。

技巧4：避免在Application或Session對象中緩存非輕快型組件

　　在Application或Session對象中緩存數(shù)據(jù)是一個很好的方法，但是，緩存COM對象卻有嚴(yán)重的缺陷。在Application或Session對象中緩存經(jīng)常使用的COM對象這個工作是非常吸引人的，但是很不幸，許多COM對象，包括用Visual Basic 6.0或者以前版本編寫的對象組件，當(dāng)存儲在Application或Session對象中后，都會產(chǎn)生嚴(yán)重的瓶頸問題。

　　特別地，當(dāng)組件編寫得不是很輕巧時，就極可能產(chǎn)生瓶頸問題。一個輕型組件就是標(biāo)記了ThreadingModel=Both的組件，其中合計了自由線程的排列（FTM），或者標(biāo)記了ThreadingModel=Neutral（Neutral模式是Windows2000和COM＋中的新特征）。下面的組件不是輕型的：

Free-threaded組件（除非被集合成FTM）
Apartment-threaded組件
Single-threaded組件
　　Configured components不是輕型組件，除非它們是Neutral-threaded的。Apartment-threaded組件和其他非輕型組件在頁范圍內(nèi)工作得很好，就是說，它們是在一個單一ASP頁面中創(chuàng)建并釋放的。

　　如果緩存了非輕型組件，將會發(fā)生什么錯誤？在Session對象中緩存的非輕型組件將會“鎖住”會話。ASP維護(hù)著一個響應(yīng)請求的工作線程池，通常，新的請求被第一個可用的工作線程控制。如果一個會話被鎖在一個線程中，那么請求就被迫等待到相關(guān)的線程變?yōu)榭捎谩＿@里有一個類比：你前往一個超級市場，挑選了一些食品，并在3號付款臺付款。從那以后，只要在那個超級市場買食品付款，你就會經(jīng)常到3號付款臺去，雖然其他的付款臺人少些甚至沒有人。

技巧5：不要在Application或Session對象中緩存數(shù)據(jù)庫連接

　　緩存ADO連接通常不是一個好的策略。如果一個連接對象被存儲在Application對象中，并在所有的頁面使用，那么所有頁面將會爭奪該連接的使用。如果存儲在ASP Session對象中，那么將要為每一個用戶都打開數(shù)據(jù)庫連接。這將挫敗連接池的使用意圖，并且在Web服務(wù)器和數(shù)據(jù)庫上都施加了不必要的高代價壓力。

　　為了替代緩存數(shù)據(jù)庫連接，可以在使用ADO的每個ASP頁面中創(chuàng)建并釋放ADO對象。這將非常有效，因為IIS擁有內(nèi)建的數(shù)據(jù)庫連接池。更準(zhǔn)確地說，IIS自動處理OLEDB和ODBC連接池，這將保證在每個頁面創(chuàng)建并且釋放連接的工作高效進(jìn)行。

　　由于連接的記錄集存儲了數(shù)據(jù)庫連接的參考，所以，不要在Application或Session對象中緩存連接的記錄集。然而，可以安全地緩存disconnected類型的記錄集，它們并不保存相應(yīng)數(shù)據(jù)庫連接的參考。為了斷開記錄集，執(zhí)行下面2步：

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.CursorLocation = adUseClient ' step 1

' Populate the recordset with data
rs.Open strQuery, strProv

' Now disconnect the recordset from the data provider and data source
rs.ActiveConnection = Nothing ' step 2

　　更多的關(guān)于連接池的信息請訪問 ADO and SQL Server。