改进 ASP 的字符串处理性能

快捷的解决方案

有两种方法可以缓解字符串连接的影响，第一种方法是尝试减小要处理的字符串的大小，第二种方法是尝试减少执行字符串分配操作的数目。请参见下面所示的 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 进行。在新版本中，我们提示编译器更改操作顺序。现在，它将按从左到右、从括号内到括号外的顺序计算表达式。此技术使得每次重复包括 15 个连接操作，这些操作针对的是不会增长的较小字符串，只有一个是针对不断增长的大的 sHTML。图 1 显示了这种优化方法与标准连接方法在内存使用模式方面的比较。

图 1：标准连接与加括号连接在内存使用模式方面的比较

在特定情况下，使用括号可以对性能和可缩放性产生十分显著的影响，后文将对此进行进一步的说明。

StringBuilder

我们已经找到了解决字符串连接问题的快捷方法，在多数情况下，此方法可以达到性能和投入的最佳平衡。但是，如果要进一步提高构建大型字符串的性能，需要采用第二种方法，即减少字符串分配操作的数目。为此，需要使用 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_nGr