適用于：
Microsoft® Active Server Pages®
Microsoft Visual Basic®
摘要：大多數 Active Server Pages (asp) 應用程序都要通過字符串連接來創建呈現給用戶的 HTML 格式的數據。本文對幾種創建此 HTML 數據流的方法進行了比較，在特定情況下，某些方法在性能方面要優于其他方法。本文假定您已經具備一定的 ASP 和 Visual Basic 編程方面的知識。
編寫 ASP 頁面時，開發人員實際上是創建一個格式化的文本流，通過 ASP 提供的 Response 對象寫入 Web 客戶端。創建此文本流的方法有多種，而您選擇的方法將對 Web 應用程序的性能和可縮放性產生很大影響。很多次，在我幫助客戶優化其 Web 應用程序的性能時，發現其中一個比較有效的方法是更改 HTML 流的創建方式。本文將介紹幾種常用技術，并測試它們對一個簡單的 ASP 頁面的性能所產生的影響。
許多 ASP 開發人員都遵循良好的軟件工程原則，盡可能地將其代碼模塊化。這種設計通常使用一些包含文件，這些文件中包含對頁面的特定不連續部分進行格式化生成的函數。這些函數的字符串輸出（通常是 HTML 表格代碼）可以通過各種組合創建一個完整的頁面。某些開發人員對此方法進行了改進，將這些 HTML 函數移到 Visual Basic COM 組件中，希望充分利用已編譯的代碼提供的額外性能。
盡管這種設計方法很不錯，但創建組成這些不連續 HTML 代碼組件的字符串所使用的方法將對 Web 站點的性能和可縮放性產生很大的影響，無論實際的操作是在 ASP 包含文件中執行還是在 Visual Basic COM 組件中執行。
請看以下 WriteHTML 函數的代碼片斷。名為 Data 的參數只是一個字符串數組，其中包含一些要格式化為表格結構的數據（例如，從數據庫返回的數據）。
Function WriteHTML( Data )Dim nRepFor nRep = 0 to 99 sHTML = sHTML & vbcrlf _ & "<TR><TD>" & (nRep + 1) & "</TD><TD>" _ & Data( 0, nRep ) & "</TD><TD>" _ & Data( 1, nRep ) & "</TD><TD>" _ & Data( 2, nRep ) & "</TD><TD>" _ & Data( 3, nRep ) & "</TD><TD>" _ & Data( 4, nRep ) & "</TD><TD>" _ & Data( 5, nRep ) & "</TD></TR>"NextWriteHTML = sHTMLEnd Function
這是很多 ASP 和 Visual Basic 開發人員創建 HTML 代碼時常用的方法。sHTML 變量中包含的文本返回到調用代碼，然后使用 Response.Write 寫入客戶端。當然，這還可以表示為直接嵌入不包含 WriteHTML 函數的頁面的類似代碼。此代碼的問題是，ASP 和 Visual Basic 使用的字符串數據類型（BSTR 或 Basic 字符串）實際上無法更改長度。這意味著每當字符串長度更改時，內存中字符串的原始表示形式都將遭到破壞，而且將創建一個包含新字符串數據的新的表示形式：這將增加分配內存和解除分配內存的操作。當然，ASP 和 Visual Basic 已為您解決了這一問題，因此實際開銷不會立即顯現出來。分配內存和解除分配內存要求基本運行時代碼解除各個專用鎖定，因此需要大量開銷。當字符串變得很大并且有大塊內存要被快速連續地分配和解除分配時，此問題變得尤為明顯，就像在大型字符串連接期間出現的情況一樣。盡管這一問題對單用戶環境的影響不大，但在服務器環境（例如，在 Web 服務器上運行的 ASP 應用程序）中，它將導致嚴重的性能和可縮放性問題。
下面，我們回到上述代碼片段：此代碼中要執行多少個字符串分配操作？答案是 16 個。在這種情況下，“&”運算符的每次應用都將導致變量 sHTML 所指的字符串被破壞和重新創建。前面已經提到，字符串分配的開銷很大，并且隨著字符串的增大而增加，因此，我們可以對上述代碼進行改進。
有兩種方法可以緩解字符串連接的影響，第一種方法是嘗試減小要處理的字符串的大小，第二種方法是嘗試減少執行字符串分配操作的數目。請參見下面所示的 WriteHTML 代碼的修訂版本。
Function WriteHTML( Data )Dim nRepFor nRep = 0 to 99 sHTML = sHTML & ( vbcrlf _ & "<TR><TD>" & (nRep + 1) & "</TD><TD>" _ & Data( 0, nRep ) & "</TD><TD>" _ & Data( 1, nRep ) & "</TD><TD>" _ & Data( 2, nRep ) & "</TD><TD>" _ & Data( 3, nRep ) & "</TD><TD>" _ & Data( 4, nRep ) & "</TD><TD>" _ & Data( 5, nRep ) & "</TD></TR>" )NextWriteHTML = sHTMLEnd Function
乍一看，可能很難發現這段代碼與上一個代碼示例的差別。其實，此代碼只是在 sHTML = sHTML & 后的內容外面加上了括號。這實際上是通過更改優先順序，來減小大多數字符串連接操作中處理的字符串大小。在最初的代碼示例中，ASP 編譯器將查看等號右邊的表達式，并從左到右進行計算。結果，每次重復都要進行 16 個連接操作，這些操作針對不斷增長的 sHTML 進行。在新版本中，我們提示編譯器更改操作順序?，F在，它將按從左到右、從括號內到括號外的順序計算表達式。此技術使得每次重復包括 15 個連接操作，這些操作針對的是不會增長的較小字符串，只有一個是針對不斷增長的大的 sHTML。圖 1 顯示了這種優化方法與標準連接方法在內存使用模式方面的比較。
圖 1：標準連接與加括號連接在內存使用模式方面的比較
在特定情況下，使用括號可以對性能和可縮放性產生十分顯著的影響，后文將對此進行進一步的說明。
我們已經找到了解決字符串連接問題的快捷方法，在多數情況下，此方法可以達到性能和投入的最佳平衡。但是，如果要進一步提高構建大型字符串的性能，需要采用第二種方法，即減少字符串分配操作的數目。為此，需要使用 StringBuilder。StringBuilder 是一個類，用于維護可配置的字符串緩沖區，管理插入到此緩沖區的新文本片斷，并僅在文本長度超出字符串緩沖區長度時對字符串進行重新分配。Microsoft .NET 框架免費提供了這樣一個類 (System.Text.StringBuilder)，并建議在該環境下進行的所有字符串連接操作中使用它。在 ASP 和傳統的 Visual Basic 環境中，我們無法訪問此類，因此需要自行創建。下面是使用 Visual Basic 6.0 創建的 StringBuilder 類示例（為簡潔起見，省略了錯誤處理代碼）。
Option Explicit' 默認的緩沖區初始大小和增長系數PRivate Const DEF_INITIALSIZE As Long = 1000Private Const DEF_GROWTH As Long = 1000' 緩沖區大小和增長Private m_nInitialSize As LongPrivate m_nGrowth As Long' 緩沖區和緩沖區計數器Private m_sText As StringPrivate m_nSize As LongPrivate m_nPos As LongPrivate Sub Class_Initialize() ' 設置大小和增長的默認值 m_nInitialSize = DEF_INITIALSIZE m_nGrowth = DEF_GROWTH ' 初始化緩沖區 InitBufferEnd Sub' 設置初始大小和增長數量Public Sub Init(ByVal InitialSize As Long, ByVal Growth As Long) If InitialSize > 0 Then m_nInitialSize = InitialSize If Growth > 0 Then m_nGrowth = GrowthEnd Sub' 初始化緩沖區Private Sub InitBuffer() m_nSize = -1 m_nPos = 1End Sub' 增大緩沖區Private Sub Grow(Optional MinimimGrowth As Long) ' 初始化緩沖區（如有必要） If m_nSize = -1 Then m_nSize = m_nInitialSize m_sText = Space$(m_nInitialSize) Else ' 只是增長 Dim nGrowth As Long nGrowth = IIf(m_nGrowth > MinimimGrowth, m_nGrowth, MinimimGrowth) m_nSize = m_nSize + nGrowth m_sText = m_sText & Space$(nGrowth) End IfEnd Sub' 將緩沖區大小調整到當前使用的大小Private Sub Shrink() If m_nSize > m_nPos Then m_nSize = m_nPos - 1 m_sText = RTrim$(m_sText) End IfEnd Sub' 添加單個文本字符串Private Sub AppendInternal(ByVal Text As String) If (m_nPos + Len(Text)) > m_nSize Then Grow Len(Text) Mid$(m_sText, m_nPos, Len(Text)) = Text m_nPos = m_nPos + Len(Text)End Sub' 添加一些文本字符串Public Sub Append(ParamArray Text()) Dim nArg As Long For nArg = 0 To UBound(Text) AppendInternal CStr(Text(nArg)) Next nArgEnd Sub ' 返回當前字符串數據并調整緩沖區大小Public Function ToString() As String If m_nPos > 0 Then Shrink ToString = m_sText Else ToString = "" End IfEnd Function' 清除緩沖區并重新初始化Public Sub Clear() InitBufferEnd Sub
此類中使用的基本原則是，在類級別將變量 (m_sText) 用作字符串緩沖區，并使用 Space$ 函數以空格字符填充此緩沖區以將其設置為特定的大小。如果要將更多文本與現有文本連接在一起，則在檢查緩沖區的大小足以存放新文本后，使用 Mid$ 函數在正確位置插入文本。ToString 函數將返回當前存儲在緩沖區中的文本，并將緩沖區的大小調整為能夠容納此文本的正確長度。使用 StringBuilder 的 ASP 代碼如下所示：
Function WriteHTML( Data )Dim oSBDim nRepSet oSB = Server.CreateObject( "StringBuilderVB.StringBuilder" )' 用大小和增長系數初始化緩沖區oSB.Init 15000, 7500For nRep = 0 to 99 oSB.Append "<TR><TD>", (nRep + 1), "</TD><TD>", _ Data( 0, nRep ), "</TD><TD>", _ Data( 1, nRep ), "</TD><TD>", _ Data( 2, nRep ), "</TD><TD>", _ Data( 3, nRep ), "</TD><TD>", _ Data( 4, nRep ), "</TD><TD>", _ Data( 5, nRep ), "</TD></TR>"NextWriteHTML = oSB.ToString()Set oSB = NothingEnd Function
使用 StringBuilder 需要一定的開銷，因為每次使用此類時都必須創建它的實例，并且在創建第一個類實例時必須加載包含此類的 DLL。對 StringBuilder 實例進行額外方法調用時也需要開銷。使用加括號的“&”方法時，StringBuilder 如何執行取決于多個因素，包括連接的數目、要構建的字符串的大小以及選擇的 StringBuilder 字符串緩沖區的初始化參數的性能。請注意，在多數情況下，將緩沖區中所需的空間量估計得略高一些要遠遠好于讓其不斷增長。
ASP 包含一種非常快捷的創建 HTML 代碼的方法，只需多次調用 Response.Write。Write 函數使用隱式優化的字符串緩沖區，此緩沖區能夠提供非常優秀的性能特性。修改后的 WriteHTML 代碼如下所示：
Function WriteHTML( Data )Dim nRepFor nRep = 0 to 99 Response.Write "<TR><TD>" Response.Write (nRep + 1) Response.Write "</TD><TD>" Response.Write Data( 0, nRep ) Response.Write "</TD><TD>" Response.Write Data( 1, nRep ) Response.Write "</TD><TD>" Response.Write Data( 2, nRep ) Response.Write "</TD><TD>" Response.Write Data( 3, nRep ) Response.Write "</TD><TD>" Response.Write Data( 4, nRep ) Response.Write "</TD><TD>" Response.Write Data( 5, nRep ) Response.Write "</TD></TR>"NextEnd Function
雖然這段代碼很可能為我們提供最佳的性能和可縮放性，但在某種程度上已經破壞了封裝，因為現在會將函數內部的代碼直接寫入 Response 流，所以調用代碼喪失了一定程度的控制權。另外，移動此代碼（例如，移入 COM 組件）將變得更加困難，因為此函數與 Response 流存在依賴關系。
上面提到的四種方法分別通過一個簡單的 ASP 頁面（包含一個由虛擬字符串數組提供數據的單個表格）進行了測試。我們使用 application Center Test® (ACT) 從單個客戶端（Windows® XP Professional，PIII-850MHz，512MB RAM）針對 100Mb/sec 網絡中的單個服務器（Windows 2000 Advanced Server，雙 PIII-1000MHz，256MB RAM）執行了測試。ACT 配置為使用 5 個線程，以模擬 5 個用戶連接至網站時的負載。每個測試都包括 20 秒預熱時間和隨后的 100 秒負載時間，在負載期間創建了盡可能多的請求。
通過更改主表格循環中的重復次數，針對不同數目的連接操作重復運行測試，如 WriteHTML 函數中的代碼片斷所示。運行的每個測試都使用上文提到的四種不同的方法執行。
下面的一系列圖表顯示了各種方法對整個應用程序吞吐量的影響，以及 ASP 頁面的響應時間。通過這些圖表，我們可以了解應用程序支持的請求數目，以及用戶等待頁面下載至瀏覽器所需的時間。
表 1：使用的連接方法縮寫的說明
| 方法縮寫 | 說明 |
|---|---|
| RESP | 內置 Response.Write 方法 |
| CAT | 標準連接（“&”）方法 |
| PCAT | 加括號的連接（“&”）方法 |
| BLDR | StringBuilder 方法 |
在模擬典型 ASP 應用程序工作負荷方面，此測試與實際情況相差甚遠，從表 2 中可以明顯看到，即使重復 420 次，此頁面仍不是特別大?，F在很多復雜的 ASP 頁面在這些數字上都是比較高的，設置有可能超出此測試范圍的限制。
表 2：測試示例的頁面大小和連接數目
| 重復次數 | 連接數目 | 頁面大小（以字節為單位） |
| 15 | 240 | 2,667 |
| 30 | 480 | 4,917 |
| 45 | 720 | 7,167 |
| 60 | 960 | 9,417 |
| 75 | 1,200 | 11,667 |
| 120 | 1,920 | 18,539 |
| 180 | 2,880 | 27,899 |
| 240 | 3,840 | 37,259 |
| 300 | 4,800 | 46,619 |
| 360 | 5,760 | 55,979 |
| 420 | 6,720 | 62,219 |
圖 2：吞吐量結果圖
從圖 2 的圖表中可以看到，正如我們所預期的，多重 Response.Write 方法 (RESP) 在測試的整個重復測試范圍中為我們提供了最佳的吞吐量。但令人驚訝的是，標準字符串連接方法 (CAT) 的下降如此巨大，而加括號的方法 (PCAT) 在重復執行 300 多次時性能依舊要好很多。在大約重復 220 次之處，字符串緩存帶來的性能提高超過了 StringBuilder 方法 (BLDR) 固有的開銷，在這一點以上，在此 ASP 頁面中使用 StringBuilder 所需的額外開銷是值得的。
圖 3：響應時間結果圖
圖 4：省略 CAT 的響應時間結果圖
圖 3 和圖 4 中的圖表顯示了按“到第一字節的時間”測量的響應時間（以毫秒為單位）。因為標準字符串連接方法 (CAT) 的響應時間增加過快，所以又提供了未包括此方法的圖表（圖 4），以便分析其他方法之間的差異。有一點值得注意，多重 Response.Write 方法 (RESP) 和 StringBuilder 方法 (BLDR) 隨重復次數的增加呈現一種近似線性的增長，而標準連接方法 (CAT) 和加括號的方法 (PCAT) 則在超過一定的閾值之后開始迅速增加。
本文著重講述了如何在 ASP 環境中應用不同的字符串構建技術，這些內容同樣適用于所有使用 Visual Basic 代碼創建大型字符串的方案，例如手動創建 xml 文檔。以下原則可以幫助您確定哪種方法最適合您的需要。
&”方法，尤其是在處理現有代碼時。這種方法對代碼結構的影響微乎其微，但您會發現應用程序的性能將顯著增強，甚至會超出預定目標。 盡管您可能未看到本文所示的這種性能增長，但我已在真實的 ASP Web 應用程序中使用了這些技巧，只需要很少的額外投入就可以在性能和可縮放性方面獲得很大的提高。
新聞熱點
疑難解答
