简介

　　性能是一个很重要的特征。你需要事先设计好性能指标，否则日后就要为此重新编写程序。就是说：要设想好怎样最佳化地执行ASP程序？

　　本文提出了一些优化ASP应用和VBScript的技巧，许多技巧和缺陷都经过了研讨。这里列出的建议已经在http://www.microsoft.com 和其他站点上进行了测试，都工作得非常好。本文假设你具备ASP开发的基本知识，包括VBScript或者JScript，ASP应用程序，ASP Session，以及其他ASP内置对象（Request，Response和Server）。

　　通常，ASP的执行性能远远不仅仅依赖ASP代码本身！在本文的尾部列出了与性能相关的资源，它们含概了ASP和非ASP的部分，包含ActiveX Data Objects（ADO），Component Object Model（COM），数据库（Database），以及Internet信息服务器（IIS）的配置。除了这些，还有一些非常好的链接值得你一看。
典型的情况是：ASP页面从后台存储中取回数据，然后以超文本标记语言（HTML）的形式形成结果。不管数据库的速度如何，从内存中取回数据要比从后台存储设备中快得多。从本地硬盘读取数据通常也非常快。所以，提高性能可以通过缓存服务器上的数据来实现，无论是将数据缓存在内存中，或者本地硬盘中。

　　缓存是经典的“空间换时间”的折中方式。如果缓存得恰当，就可以看到显著的性能提升。为了让缓存有效，必须保证缓存数据是经常要重用的，而且也是计算起来繁琐的。装满陈旧数据的缓存是对内存的浪费。

　　不经常改变的数据是缓存的较好对象，因为不需要随时考虑这些数据更新后的同步操作。组合框、参考表格、DHTML代码、扩展标记语言串、菜单以及站点配置变量（包括数据源名字DSNS，Internet协议地址IP以及Web路径）都是很好的缓存对象。注意：要缓存数据表达式而不是数据本身。如果一个ASP页面经常变化并且很费力去缓存（比如整个产品目录），就要考虑预产生HTML，而不是每次发生请求时再描述它。
ASP中的Application和Session对象是在内存中缓存数据的便利容器。你可以将数据赋值给Application和Session对象，这些数据在HTTP调用期间将一直保持在内存中。Session中的数据是为每一个用户服务的，Application中的数据是所有用户共享的。

　　何时需要在Application和Session中装入数据？通常，当应用程序启动或者会话开始时，数据就被装入了。为了在这时装入数据，在Application OnStart()或者Session OnStart()中分别添加适当的代码。这些函数位于文件Global.asa中，如果原来不存在，就添加上。也可以在数据首次需要的时候调入，在ASP页面中添加代码，检查数据是否存在，如果没有发现，就调入它。这里有一个例子，它代表了被称为“lazy evalution”的经典性能处理技术：直到需要时，再去计算。例子如下：

<%
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
%>

对于不同的数据，可以编写类似的函数代码。

　　数据应该按什么格式保存？任何变量类型都可以，因为所有的脚本变量都是不同的。比如说，可以保存为字符串、整型或者数据。通常，将ADO记录集的内容存储到这些变量类型中一个。为了从ADO记录集中取出数据，需要手工地拷贝数据到VBScript变量中，每次一个字段。使用任意一个ADO记录集的函数functions GetRows(),GetString() 或者 Save() (ADO 2.5)都非常得快速而且简单，这里有个函数，描述了如何使用GetRows（）返回记录集数据的数组：


' 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

在合适的环境下，可以在Application或者Session中缓存ADO记录集本身，但是有2点提示：


ADO必须是自由线程标记的
需要使用disconnected recordset方式
　　如果不能保证上述2个条件，就不要缓存ADO记录集，因为这会产生很大的危险性。

　　当在Application或Session中保存数据后，数据将一直保持，除非程序改变它、Session变量到期或者Web应用程序重新启动。如果数据需要更新，怎么办？可以调用只有管理员才能访问的ASP页面来更新数据，或者，通过函数周期性的自动更新数据。下面的例子中，与缓存数据一起保存了时钟标记，过一段时间后，就刷新数据。


<%
' 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对象中缓存大容量的数组不是一个好的方法。存取数组中任何元素前，脚本语言的规则要求首先要建立整个数组的临时备份。比如，如果在Application对象中缓存一个100，000个元素的数组，其中包含U.S.邮政编码与本地气象站的对应关系，ASP就必须首先拷贝所有100，000个气象站信息到临时数组中，然后才能选择其中一个字符串进行处理。在这种情况下，创建一个定制的组件，编写一个方法存储气象站信息，是非常好的方法。

　　有时候，有“许多”数据要在内存中缓存。“许多”是相对而言的，它取决于能消耗多少内存、缓存项目的数量以及取回数据的频度。任何情况下，如果需要在内存中缓存大量的数据，请考虑以text或者XML文件格式在Web服务器硬盘上做缓存。当然，也可以混合使用硬盘缓存数据以及内存缓存数据，从而达到最佳缓存。

　　注意：当测试一个单一ASP页面的性能时，从磁盘取回数据不一定比从网络数据库中取回数据快，但是缓存减少了网络数据库的调用。在大规模调用时，这将明显地提高网络的吞吐能力。缓存一个费时的查询结果是非常有用的，比如对于一个复杂的存储过程，或者大量的结果数据。

　　ASP和COM提供了几种建立基于磁盘缓冲配置的工具。ADO记录集的Save（）和 Open（）函数负责保存和调入磁盘上的记录集。另外还有一些组件：


Scripting.FileSystemObject 允许你创建、读取和写文件
MSXML，Microsoft XML 解析器随Internet Explorer而来，支持保存和装入XML文档
LookupTable对象（比如在MSN上使用）是从磁盘调入简单列表的很好选择。
　　最后，考虑缓存磁盘数据的表达式，而不是数据本身。预处理的HTML可以存储为.htm或者.asp文件，链接直接指向它们。使用诸如XBuilder或者Microsoft SQL Server Internet发布类的商业工具，能够自动处理这些过程。而且，也可以在.asp文件中包含HTML程序片断。同样，也可使用FileSystemObject从磁盘上读取HTML文件，或者使用XML for early rendering来做这个工作。


　　有时候，有“许多”数据要在内存中缓存。“许多”是相对而言的，它取决于能消耗多少内存、缓存项目的数量以及取回数据的频度。任何情况下，如果需要在内存中缓存大量的数据，请考虑以text或者XML文件格式在Web服务器硬盘上做缓存。当然，也可以混合使用硬盘缓存数据以及内存缓存数据，从而达到最佳缓存。

　　注意：当测试一个单一ASP页面的性能时，从磁盘取回数据不一定比从网络数据库中取回数据快，但是缓存减少了网络数据库的调用。在大规模调用时，这将明显地提高网络的吞吐能力。缓存一个费时的查询结果是非常有用的，比如对于一个复杂的存储过程，或者大量的结果数据。

　　ASP和COM提供了几种建立基于磁盘缓冲配置的工具。ADO记录集的Save（）和 Open（）函数负责保存和调入磁盘上的记录集。另外还有一些组件：


Scripting.FileSystemObject 允许你创建、读取和写文件
MSXML，Microsoft XML 解析器随Internet Explorer而来，支持保存和装入XML文档
LookupTable对象（比如在MSN上使用）是从磁盘调入简单列表的很好选择。
　　最后，考虑缓存磁盘数据的表达式，而不是数据本身。预处理的HTML可以存储为.htm或者.asp文件，链接直接指向它们。使用诸如XBuilder或者Microsoft SQL Server Internet发布类的商业工具，能够自动处理这些过程。而且，也可以在.asp文件中包含HTML程序片断。同样，也可使用FileSystemObject从磁盘上读取HTML文件，或者使用XML for early rendering来做这个工作。

技巧之一：提高使用Request集合的效率
访问一个ASP集合来提取一个值是费时的、占用计算资源的过程。因为这个操作包含了一系列对相关集合的搜索，这比访问
一个局部变量要慢得多。因此，如果打算在页面中多次使用Request集合中的一个值，应该考虑将其存贮为一个局部变量。
例如将代码写成下面的形式以加快脚本引擎处理速度：
strTitle=Request.Form("Title")
strFirstName=Request.Form("FirstName")
strLastName=Request.Form("LastName")
If Len(strTitle) Then strTitle=strTitle & " "
If strFirstName="" Then strFullName=strTitle & " " & strLastName
Elseif Len(strFirstName)=1 Then
strFullName=strTitle & strFirstName & ". " & strLastName
Else
strFullName=strTitle & strFirstName & " " & strLastName
End If


技巧之二：直接访问适当的集合
如果不是别无选择，否则不要使用strPage=Request("page")的这样的形式来获取参数，因为这将按顺序搜索全部的集合—
QueryString、Form、Cookies、ClientCertificate、ServerVarible直到发现第一个匹配值的名称。这样做比直接访问适
当的集合效率低，并且是不安全的，除非能绝对保证这个值不会出现在另外一个集合中。
例如，可能希望搜索满足客户请求的WEB服务器名称，这通过出现在每个查询中的Request.ServerVarables集合中寻找
“SERVER_NAME”来实现。然而，假如其他的集合也包含名为“SERVER_NAME”的值（键名不区分大小写），当使用Request
("server_Name")时，就会得到错误的结果。总而言之，应尽可能直接访问适当的集合。


技巧之三：在费时操作前使用Response.IsClientConnected属性
使用Response.IsClientConnected是观察用户是否仍连到服务器并正在载入ASP创建的网页的有用方式。如果用户断开连接
或停止下载，我们就不用再浪费服务器的资源创建网页，因为缓冲区内容将被IIS丢弃。所以，对那些需要大量时间计算或
资源使用较多的网页来说，值得在每一阶段都检查游览者是否已离线：
…… Code to create first part of the page
If Response.IsClientConnected Then
Response.Flush
Else
Response.End
End If
…… Code to create next part of page


技巧之四：优化ASP中的ADO操作
通常面言，数据构成了WEB站点的实际内容。所以，优化ADO操作以加速ASP代码执行，十分有用：
a. 仅选择所需的列：当打开ADO记录集时，除非需要获得所有的列，否则不应自动地使用表名（即SELECT *）。使用单独
的列意味着将减少发送到服务器或从服务器取出的数据量。即使需要使用全部列，单独地命名每个列也会获得最佳的性
能，因为服务器不必再解释这些列的名字。
b. 尽可能的使用存储过程。存储过程是预先编译的程序，含有一个已经准备好的执行计划，所以比SQL语句执行更快。
c. 使用适当的光标和锁定模式。如果所做的全部工作只是从记录集中读取数据，并将其显示在屏幕上，那么就使用缺省的
只能前移、只读的记录集。ADO用来维护记录和锁定的细节的工作越少，执行的性能就越高。
d. 使用对象变量。当遍历记录集时一个肯定能提高性能的方法是使用对象变量指向集合中的成员。例如：
While Not RsGc.EOF
Response.Write "工程名称：" & RsGc("GcMC") & "(工程代码：" & RsGc("GcCode") & ")
"
RsGc.MoveNext
Wend
可以用改写为下面的代码以加快执行：
set GcMc=RsGc("GcMc")
set GcCode=RsGc("GcCode")
While Not rsGc.EOF Response.Write "工程名称：" & GcMc & "(工程代码：" & GcCode & ")
" RsGc.MoveNext
Wend
新的代码建立了对象变量的引用，所以可以使用对象变量而不是实际的变量，这意味着脚本引擎的工作减少了，因为在集
合中进行索引的次数变少了。


技巧五：不要混用脚本引擎
我们知道，ASP页面中既可以使用VBScript，也可以使用JScript。但是在同一个页面上同时使用JScript和VBScript则是不
可取的。因为服务器必须实例化并尝试缓存两个（而不是一个）脚本引擎，这在一定程度上增加了系统负担。因此，从性
能上考虑，不应在同一页面中混用多种脚本引擎。

评论