分享
 
 
 

改进ASP程序中的字符串处理性能

王朝asp·作者佚名  2006-11-24
窄屏简体版  字體: |||超大  

简介

编写 ASP 页面时,开发人员实际上是创建一个格式化的文本流,通过 ASP 提供的 Response 对象写入 Web 客户端。创建此文本流的方法有多种,而您选择的方法将对 Web 应用程序的性能和可缩放性产生很大影响。很多次,在我帮助客户优化其 Web 应用程序的性能时,发现其中一个比较有效的方法是更改 HTML 流的创建方式。本文将介绍几种常用技术,并测试它们对一个简单的 ASP 页面的性能所产生的影响。

ASP 设计

许多 ASP 开发人员都遵循良好的软件工程原则,尽可能地将其代码模块化。这种设计通常使用一些包含文件,这些文件中包含对页面的特定不连续部分进行格式化生成的函数。这些函数的字符串输出(通常是 HTML 表格代码)可以通过各种组合创建一个完整的页面。某些开发人员对此方法进行了改进,将这些 HTML 函数移到 Visual Basic COM 组件中,希望充分利用已编译的代码提供的额外性能。

尽管这种设计方法很不错,但创建组成这些不连续 HTML 代码组件的字符串所使用的方法将对 Web 站点的性能和可缩放性产生很大的影响,无论实际的操作是在 ASP 包含文件中执行还是在 Visual Basic COM 组件中执行。

字符串连接

请看以下 WriteHTML 函数的代码片断。名为 Data 的参数只是一个字符串数组,其中包含一些要格式化为表格结构的数据(例如,从数据库返回的数据)。

Function WriteHTML( Data )

Dim nRep

For 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>"

Next

WriteHTML = sHTML

End 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 nRep

For 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>" )

Next

WriteHTML = sHTML

End 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 = 1000

Private Const DEF_GROWTH As Long = 1000

' 缓冲区大小和增长

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 > 0 Then m_nInitialSize = InitialSize

If Growth > 0 Then m_nGrowth = Growth

End Sub

' 初始化缓冲区

Private Sub InitBuffer()

m_nSize = -1

m_nPos = 1

End 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 If

End Sub

' 将缓冲区大小调整到当前使用的大小

Private Sub Shrink()

If m_nSize > m_nPos Then

m_nSize = m_nPos - 1

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 = 0 To UBound(Text)

AppendInternal CStr(Text(nArg))

Next nArg

End Sub

' 返回当前字符串数据并调整缓冲区大小

Public Function ToString() As String

If m_nPos > 0 Then

Shrink

ToString = m_sText

Else

ToString = ""

End If

End Function

' 清除缓冲区并重新初始化

Public Sub Clear()

InitBuffer

End Sub

此类中使用的基本原则是,在类级别将变量 (m_sText) 用作字符串缓冲区,并使用 Space$ 函数以空格字符填充此缓冲区以将其设置为特定的大小。如果要将更多文本与现有文本连接在一起,则在检查缓冲区的大小足以存放新文本后,使用 Mid$ 函数在正确位置插入文本。ToString 函数将返回当前存储在缓冲区中的文本,并将缓冲区的大小调整为能够容纳此文本的正确长度。使用 StringBuilder 的 ASP 代码如下所示:

Function WriteHTML( Data )

Dim oSB

Dim nRep

Set oSB = Server.CreateObject( "StringBuilderVB.StringBuilder" )

' 用大小和增长系数初始化缓冲区

oSB.Init 15000, 7500

For 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>"

Next

WriteHTML = oSB.ToString()

Set oSB = Nothing

End Function

使用 StringBuilder 需要一定的开销,因为每次使用此类时都必须创建它的实例,并且在创建第一个类实例时必须加载包含此类的 DLL。对 StringBuilder 实例进行额外方法调用时也需要开销。使用加括号的“&”方法时,StringBuilder 如何执行取决于多个因素,包括连接的数目、要构建的字符串的大小以及选择的 StringBuilder 字符串缓冲区的初始化参数的性能。请注意,在多数情况下,将缓冲区中所需的空间量估计得略高一些要远远好于让其不断增长。

内置方法

ASP 包含一种非常快捷的创建 HTML 代码的方法,只需多次调用 Response.Write。Write 函数使用隐式优化的字符串缓冲区,此缓冲区能够提供非常优秀的性能特性。修改后的 WriteHTML 代码如下所示:

Function WriteHTML( Data )

Dim nRep

For 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>"

Next

End Function

虽然这段代码很可能为我们提供最佳的性能和可缩放性,但在某种程度上已经破坏了封装,因为现在会将函数内部的代码直接写入 Response 流,所以调用代码丧失了一定程度的控制权。另外,移动此代码(例如,移入 COM 组件)将变得更加困难,因为此函数与 Response 流存在依赖关系。

测试

[1] [2] 下一页

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有