知识大全改进ASP程序中的字符串处理性能

Posted 2022-07-17 知

篇首语：从某种意义来看，世间一切都是遇见，就像冷遇见暖，就有了雨；春遇见冬，就有了岁月；天遇见地，有了永恒；人遇见人，有了生命。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全改进ASP程序中的字符串处理性能相关的知识，希望对你有一定的参考价值。

改进ASP程序中的字符串处理性能 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　简介　　　　编写 ASP 页面时开发人员实际上是创建一个格式化的文本流通过 ASP 提供的 Response 对象写入 Web 客户端创建此文本流的方法有多种而您选择的方法将对 Web 应用程序的性能和可缩放性产生很大影响很多次在我帮助客户优化其 Web 应用程序的性能时发现其中一个比较有效的方法是更改 HTML 流的创建方式本文将介绍几种常用技术并测试它们对一个简单的 ASP 页面的性能所产生的影响　　　　 ASP 设计　　　　许多 ASP 开发人员都遵循良好的软件工程原则尽可能地将其代码模块化这种设计通常使用一些包含文件这些文件中包含对页面的特定不连续部分进行格式化生成的函数这些函数的字符串输出（通常是 HTML 表格代码）可以通过各种组合创建一个完整的页面某些开发人员对此方法进行了改进将这些 HTML 函数移到 Visual Basic 组件中希望充分利用已编译的代码提供的额外性能　　　　尽管这种设计方法很不错但创建组成这些不连续 HTML 代码组件的字符串所使用的方法将对 Web 站点的性能和可缩放性产生很大的影响无论实际的操作是在 ASP 包含文件中执行还是在 Visual Basic 组件中执行　　　　 字符串连接　　　　请看以下 WriteHTML 函数的代码片断名为 Data 的参数只是一个字符串数组其中包含一些要格式化为表格结构的数据（例如从数据库返回的数据）　　　　Function WriteHTML( Data )　　Dim nRep　　For nRep = to 　　sHTML = sHTML & vbcrlf _　　& <TR><TD> & (nRep + ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD></TR> 　　Next　　WriteHTML = sHTML　　End Function　　　　这是很多 ASP 和 Visual Basic 开发人员创建 HTML 代码时常用的方法 sHTML 变量中包含的文本返回到调用代码然后使用 Response Write 写入客户端当然这还可以表示为直接嵌入不包含 WriteHTML 函数的页面的类似代码此代码的问题是 ASP 和 Visual Basic 使用的字符串数据类型（BSTR 或 Basic 字符串）实际上无法更改长度这意味着每当字符串长度更改时内存中字符串的原始表示形式都将遭到破坏而且将创建一个包含新字符串数据的新的表示形式这将增加分配内存和解除分配内存的操作当然 ASP 和 Visual Basic 已为您解决了这一问题因此实际开销不会立即显现出来分配内存和解除分配内存要求基本运行时代码解除各个专用锁定因此需要大量开销当字符串变得很大并且有大块内存要被快速连续地分配和解除分配时此问题变得尤为明显就像在大型字符串连接期间出现的情况一样尽管这一问题对单用户环境的影响不大但在服务器环境（例如在 Web 服务器上运行的 ASP 应用程序）中它将导致严重的性能和可缩放性问题　　　　下面我们回到上述代码片段此代码中要执行多少个字符串分配操作？答案是个在这种情况下 & 运算符的每次应用都将导致变量 sHTML 所指的字符串被破坏和重新创建前面已经提到字符串分配的开销很大并且随着字符串的增大而增加因此我们可以对上述代码进行改进　　　　 快捷的解决方案　　　　有两种方法可以缓解字符串连接的影响第一种方法是尝试减小要处理的字符串的大小第二种方法是尝试减少执行字符串分配操作的数目请参见下面所示的 WriteHTML 代码的修订版本　　　　Function WriteHTML( Data )　　　　Dim nRep　　　　For nRep = to 　　sHTML = sHTML & ( vbcrlf _　　& <TR><TD> & (nRep + ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD><TD> _　　& Data( nRep ) & </TD></TR> )　　Next　　　　WriteHTML = sHTML　　　　End Function　　　　乍一看可能很难发现这段代码与上一个代码示例的差别其实此代码只是在 sHTML = sHTML & 后的内容外面加上了括号这实际上是通过更改优先顺序来减小大多数字符串连接操作中处理的字符串大小在最初的代码示例中 ASP 编译器将查看等号右边的表达式并从左到右进行计算结果每次重复都要进行个连接操作这些操作针对不断增长的 sHTML 进行在新版本中我们提示编译器更改操作顺序现在它将按从左到右从括号内到括号外的顺序计算表达式此技术使得每次重复包括个连接操作这些操作针对的是不会增长的较小字符串只有一个是针对不断增长的大的 sHTML 图显示了这种优化方法与标准连接方法在内存使用模式方面的比较　　 >　　 >　　　　在特定情况下使用括号可以对性能和可缩放性产生十分显著的影响后文将对此进行进一步的说明　　　　StringBuilder　　　　我们已经找到了解决字符串连接问题的快捷方法在多数情况下此方法可以达到性能和投入的最佳平衡但是如果要进一步提高构建大型字符串的性能需要采用第二种方法即减少字符串分配操作的数目为此需要使用 StringBuilder StringBuilder 是一个类用于维护可配置的字符串缓冲区管理插入到此缓冲区的新文本片断并仅在文本长度超出字符串缓冲区长度时对字符串进行重新分配 Microsoft NET 框架免费提供了这样一个类 (System Text StringBuilder) 并建议在该环境下进行的所有字符串连接操作中使用它在 ASP 和传统的 Visual Basic 环境中我们无法访问此类因此需要自行创建下面是使用 Visual Basic 创建的 StringBuilder 类示例（为简洁起见省略了错误处理代码）　　　　Option Explicit　　　　默认的缓冲区初始大小和增长系数　　Private Const DEF_INITIALSIZE As Long = 　　Private Const DEF_GROWTH As Long = 　　　　缓冲区大小和增长　　Private m_nInitialSize As Long　　Private m_nGrowth As Long　　　　缓冲区和缓冲区计数器　　Private m_sText As String　　Private m_nSize As Long　　Private m_nPos As Long　　　　Private Sub Class_Initialize()　　设置大小和增长的默认值　　m_nInitialSize = DEF_INITIALSIZE　　m_nGrowth = DEF_GROWTH　　初始化缓冲区　　InitBuffer　　End Sub　　　　设置初始大小和增长数量　　Public Sub Init(ByVal InitialSize As Long ByVal Growth As Long)　　If InitialSize > Then m_nInitialSize = InitialSize　　If Growth > Then m_nGrowth = Growth　　End Sub　　　　初始化缓冲区　　Private Sub InitBuffer()　　m_nSize = 　　m_nPos = 　　End Sub　　　　增大缓冲区　　Private Sub Grow(Optional MinimimGrowth As Long)　　初始化缓冲区（如有必要）　　If m_nSize = 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 If　　End Sub　　　　将缓冲区大小调整到当前使用的大小　　Private Sub Shrink()　　If m_nSize > m_nPos Then　　m_nSize = m_nPos 　　m_sText = RTrim$(m_sText)　　End If　　End 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 = To UBound(Text)　　AppendInternal CStr(Text(nArg))　　Next nArg　　End Sub　　　　返回当前字符串数据并调整缓冲区大小　　Public Function ToString() As String　　If m_nPos > Then　　Shrink　　ToString = m_sText　　Else　　ToString = 　　End If　　End Function　　　　清除缓冲区并重新初始化　　Public Sub Clear()　　InitBuffer　　End Sub　　　　此类中使用的基本原则是在类级别将变量 (m_sText) 用作字符串缓冲区并使用 Space$ 函数以空格字符填充此缓冲区以将其设置为特定的大小如果要将更多文本与现有文本连接在一起则在检查缓冲区的大小足以存放新文本后使用 Mid$ 函数在正确位置插入文本 ToString 函数将返回当前存储在缓冲区中的文本并将缓冲区的大小调整为能够容纳此文本的正确长度使用 StringBuilder 的 ASP 代 cha138/Article/program/net/201311/12940

知识大全 改进ASP程序中的字符串处理性能

知识大全改进ASP程序中的字符串处理性能