四、是否应该通过包含引用ADOVBS.inc？

　　 Microsoft提供的ADOVBS.inc包含了270行代码，这些代码定义了大多数的ADO属性常量。我们这个示例只从ADOVBS.inc引用了2个常量。因此本次测试（ADO__02.asp）中我们删除了包含文件引用，设置属性时直接使用相应的数值。

objRS.CursorType = 0?' adOpenForwardOnly
objRS.LockType = 1' adLockReadOnly


　　 可以看到页面开销下降了23%。该值并不影响单个记录的提取和显示时间，因为这里的变化不会影响循环内的记录集操作。有多种方法可以解决ADOVBS.inc的引用问题。我们建议将ADOVBS.inc文件作为参考，设置时通过注释加以说明。请记住，正如第一部分所指出的，适度地运用注释对代码的效率影响极小。另外一种方法是将那些需要用到的常量从ADOVBS.inc文件拷贝到页面内。

　　 还有一个解决该问题的好方法，这就是通过链接ADO类型库使得所有的ADO常量直接可用。把下面的代码加入Global.asa文件，即可直接访问所有的ADO常量：

＜ !--METADATA TYPE="typelib"
FILE="C:Program FilesCommon FilesSYSTEMADOmsado15.dll"
NAME="ADODB Type Library" -- ＞

或者：

＜ !--METADATA TYPE="typelib"
UUID="00000205-0000-0010-8000-00AA006D2EA4"
NAME="ADODB Type Library" -- ＞

　　 因此，我们的第一条规则为：

l避免包含ADOVBS.inc文件，通过其他方法访问和使用ADO常量。
五、使用记录集时是否应该创建单独的连接对象？

　　 要正确地回答这个问题，我们必须分析两种不同条件下的测试：第一，页面只有一个数据库事务；第二，页面有多个数据库事务。

　　 在前例中，我们创建了一个单独的Connection对象并将它赋给Recordset的ActiveConnection属性。然而，如ADO__03.asp所示，我们也可以直接把连接串赋给ActiveConnection属性，在脚本中初始化和配置Connection对象这一额外的步骤可以省去。

objRS.ActiveConnection = Application("Conn")

　　 虽然Recordset对象仍旧要创建一个连接，但此时的创建是在高度优化的条件下进行的。因此，与上一次测试相比，页面开销又下降了23%，而且如预期的一样，单个记录的显示时间没有实质的变化。

　　 因此，我们的第二个规则如下：

l如果只使用一个记录集，直接把连接串赋给ActiveConnection属性。

　　 接下来我们检查页面用到多个记录集时，上述规则是否仍旧有效。为测试这种情形，我们引入一个FOR循环将前例重复10次。在这个测试中，我们将研究三种变化：

　　 第一，如ADO__04.asp所示，在每一个循环中建立和拆除Connection对象：

Dim i
For i = 1 to 10

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("Conn")

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorType = 0 'adOpenForwardOnly
objRS.LockType = 1 'adLockReadOnly
objRS.Open Application("SQL")
If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings
...
'write data
...
End If

objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing

Next

　　 第二，如ADO__05.asp所示，在循环外面创建Connection对象，所有记录集共享该对象：

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("Conn")

Dim i
For i = 1 to 10
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorType = 0 'adOpenForwardOnly
objRS.LockType = 1 'adLockReadOnly
objRS.Open Application("SQL")

If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings
...
'write data
...
End If

objRS.Close
Set objRS = Nothing

Next
objConn.Close
Set objConn = Nothing

　　 第三，如ADO__06.asp所示，在每一个循环内把连接串赋给ActiveConnection属性：

Dim i
For i = 1 to 10

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = Application("Conn")
objRS.CursorType = 0 'adOpenForwardOnly
objRS.LockType = 1 'adLockReadOnly
objRS.Open Application("SQL")

If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings
...
'write data
...
End If

objRS.Close
Set objRS = Nothing
Next


　　 就象我们可以猜想到的一样，在循环内创建和拆除连接对象是效率最差的方法。不过，令人惊异的是，在循环内直接把连接串赋给ActiveConnection属性只比共享单个连接对象稍微慢了一点。

　　 尽管如此，第三规则应该为：

l同一页面内用到多个记录集时，创建单一的连接对象并通过ActiveConnection属性共享它。

　　六、哪种游标类型和记录锁定方式效率最高？

　　 迄今为止的所有测试中我们只使用了“只能向前”的游标来访问记录集。ADO为记录集提供的游标还有三种类型：静态可滚动的游标，动态可滚动的游标，键集游标。每种游标都提供不同的功能，比如访问前一记录和后一记录、是否可以看到其他程序对数据的修改等。不过，具体讨论每一种游标类型的功用已经超出了本文的范围，下表是各种游标类型的一个比较性的分析。

　　 和“只能向前”类型的游标相比，所有其它的游标类型都需要额外的开销，而且这些游标在循环内一般也要慢一些。因此，我们愿与您共享如下告诫：永远不要这样认为——“唔，有时候我会用到动态游标，那么我就一直使用这种游标吧。”

　　 同样的看法也适用于记录锁定方式的选择。前面的测试只用到了只读的加锁方式，但还存在其他三种方式：保守式、开放式、开放式批处理方式。和游标类型一样，这些锁定方式为处理记录集数据提供了不同的功能和控制能力。

　　 我们得出如下规则：

l使用适合于处理任务的最简单的游标类型和记录锁定方式。
七、最好用哪种方法提取记录集？

　　 到目前为止我们一直通过创建Recordset对象提取记录集，但是ADO也提供了间接的记录集提取方法。下面的测试比较ADO__03.asp和直接从Connection对象创建记录集（CONN_01.asp）这两种方法：

Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open Application("Conn")

Set objRS = objConn.Execute(Application("SQL"))

　　 可以看到页面开销略有增加，单个记录的显示时间没有变化。

　　 下面我们再来看看从Command对象直接创建记录集对象（CMD__02.asp）：

Set objCmd = Server.CreateObject("ADODB.Command")
objCmd.ActiveConnection = Application("Conn")
objCmd.CommandText = Application("SQL")

Set objRS = objCmd.Execute

　　 同样，页面开销也略有增加，而单个记录的显示时间没有本质的变化。后面这两种方法在性能上的差异很小，但我们还有一个重要的问题需要考虑。

　　 通过Recordset类创建记录集时，我们能够以最大的灵活性控制记录集的处理方式。既然后面两种方法未能有压倒性的性能表现，我们主要还是考虑默认返回的游标类型和记录锁定方式，对于某些场合来说默认值并不一定是最理想的。

　　 因此，除非由于特殊的原因需要选择后面两种方法，否则我们建议考虑下面的规则：

l通过ADODB.Recordset类实例化记录集，以获得最好的性能和灵活性。

八、是否应该使用本地记录集？

　　 ADO允许使用本地（客户端）记录集，此时查询将提取记录集内的所有数据，查询完成后连接可以立即关闭，以后使用本地的游标访问数据，这为释放连接带来了方便。使用本地记录集对于访问那些要求数据离线使用的远程数据服务非常重要，那么，对于普通的应用它是否同样有所帮助？

　　 下面我们加入CursorLocation属性，并在打开记录集之后关闭了连接（CLIENT1.asp）：

Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.CursorLocation = 2' adUseClient
objRS.ActiveConnection = Application("Conn")
objRS.LockType = 1?' adLockReadOnly
objRS.Open Application("SQL")
objRS.ActiveConnection = Nothing

　　 理论上，这种方法由于以下两个原因会对效率有所好处：第一，它避免了在记录之间移动时重复地通过连接请求数据；第二，由于能够方便地释放连接，它减轻了资源需求。然而，从上表看起来使用本地记录集对提高效率显然没有什么帮助。这或许是因为使用本地记录集时，不管程序设置的是什么，游标总是变成静态类型。

　　 第6个规则如下：

l除非确实要求记录集本地化，否则应避免使用。

　　十、用哪种方法引用记录集字段值效率最高？

　　 10.1 测试

　　 至此为止我们一直通过名字引用记录集中的字段值。由于这种方法要求每次都必须寻找相应的字段，它的效率并不高。为证明这一点，下面这个测试中我们通过字段在集合中的索引引用它的值（ADO__08.asp）：

'write data
Do While Not objRS.EOF
Response.Write( _
"＜ TR ＞" & _
"＜ TD ＞" & objRS(0) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(1) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(2) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(3) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(4) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(5) & "＜ /TD ＞" & _
"＜ TD ＞" & objRS(6) & "＜ /TD ＞" & _
"＜ /TR ＞ " _
)
objRS.MoveNext
Loop


　　 和预期的一样，页面开销也有小小的变化（这或许是因为代码略有减少）。然而，这种方法在显示时间上的改善是相当明显的。

　　 在下一个测试中，我们把所有的字段分别绑定到变量（ADO__09.asp）：

If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings
...
Dim fld0
Dim fld1
Dim fld2
Dim fld3
Dim fld4
Dim fld5
Dim fld6
Set fld0 = objRS(0)
Set fld1 = objRS(1)
Set fld2 = objRS(2)
Set fld3 = objRS(3)
Set fld4 = objRS(4)
Set fld5 = objRS(5)
Set fld6 = objRS(6)
'write data
Do While Not objRS.EOF
Response.Write( _
"＜ TR ＞" & _
"＜ TD ＞" & fld0 & "＜ /TD ＞" & _
"＜ TD ＞" & fld1 & "＜ /TD ＞" & _
"＜ TD ＞" & fld2 & "＜ /TD ＞" & _
"＜ TD ＞" & fld3 & "＜ /TD ＞" & _
"＜ TD ＞" & fld4 & "＜ /TD ＞" & _
"＜ TD ＞" & fld5 & "＜ /TD ＞" & _
"＜ TD ＞" & fld6 & "＜ /TD ＞" & _
"＜ /TR ＞" _
)
objRS.MoveNext
Loop
Set fld0 = Nothing
Set fld1 = Nothing
Set fld2 = Nothing
Set fld3 = Nothing
Set fld4 = Nothing
Set fld5 = Nothing
Set fld6 = Nothing
Response.Write("＜ /TABLE ＞")
End If

　　 这是目前为止最好的记录。请注意单个记录的显示时间已经降低到0.45毫秒以下。

　　 上述脚本都要求对结果记录集的构造有所了解。例如，我们在列标题中直接使用了字段名字，单独地引用各个字段值。下面这个测试中，不仅字段数据通过遍历字段集合得到，而且字段标题也用同样的方式得到，这是一种更为动态的方案（ADO__10.asp）。

If objRS.EOF Then
Response.Write("No Records Found")
Else
'write headings Response.Write("＜ TABLE BORDER=1 ＞＜ TR ＞")
For Each objFld in objRS.Fields
Response.Write("＜ TH ＞" & objFld.name & "＜ /TH ＞")
Next
Response.Write("＜ /TR ＞")
'write data
Do While Not objRS.EOF
Response.Write("＜ TR ＞")
For Each objFld in objRS.Fields
? Response.Write("＜ TD ＞" & objFld.value & "＜ /TD ＞")
Next
Response.Write("＜ /TR ＞")
objRS.MoveNext
Loop
Response.Write("＜ /TABLE ＞")
End If

　　 可以看到，代码性能有所下降，但它仍旧要比ADO__07.asp要快。

　　 下一个测试示例是前面两个方法的折衷。我们将继续保持动态特征，同时通过在动态分配的数组中保存字段引用提高性能：

If objRS.EOF Then
Response.Write("No Records Found")
Else
Dim fldCount
fldCount = objRS.Fields.Count
Dim fld()
ReDim fld(fldCount)
Dim i
For i = 0 to fldCount-1
Set fld(i) = objRS(i)
Next

'write headings
Response.Write("＜ TABLE BORDER=1 ＞＜ TR ＞") For i = 0 to fldCount-1
Response.Write("＜ TH ＞" & fld(i).name & "＜ /TH ＞")
Next
Response.Write("＜ /TR ＞")
'write data
Do While Not objRS.EOF
Response.Write("＜ TR ＞")
For i = 0 to fldCount-1
Response.Write("＜ TD ＞" & fld(i) & "＜ /TD ＞")
Next
Response.Write("＜ /TR ＞")
objRS.MoveNext
Loop
For i = 0 to fldCount-1
Set fld(i) = Nothing
Next
Response.Write("＜ /TABLE ＞")
End If


　　 虽然还不能超过以前最好的成绩，但它比开头的几个示例要快，同时它具有动态地处理任何记录集这一优点。

　　与前面的测试代码相比，下面的测试代码有了根本性的改动。它使用记录集对象的GetRows方法填充数组以供循环访问数据，而不是直接访问记录集本身。注意在调用GetRows之后立即把Recordset设置成了Nothing，也就是尽快地释放了系统资源。另外，请注意数组的第一维代表字段，第二维代表行（ADO__12.asp）。

If objRS.EOF Then
Response.Write("No Records Found")
objRS.Close
Set objRS = Nothing
Else
'write headings
...

'set array
Dim arrRS
arrRS = objRS.GetRows
'close recordset early
objRS.Close
Set objRS = Nothing

'write data
Dim numRows
Dim numFlds
Dim row
Dim fld
numFlds = Ubound(arrRS, 1)
numRows = Ubound(arrRS, 2)
For row= 0 to numRows
Response.Write("＜ TR ＞")
For fld = 0 to numFlds
Response.Write("＜ TD ＞" & arrRS(fld, row) & "＜ /TD ＞")
Next
Response.Write("＜ /TR ＞")
Next

Response.Write("＜ /TABLE ＞")
End If

　　 使用GetRows方法时，整个记录集都被提取到了数组。虽然记录集极端庞大时可能产生资源问题，但是用循环访问数据的速度确实更快了，这是由于取消了MoveNext和检查EOF之类的函数调用。

　　 速度是要付出代价的，现在记录集的元数据已经丢失了。为解决这个问题，我们可以在调用GetRows之前从记录集对象提取标题信息；此外，数据类型和其他信息也可以预先提取。另外还要注意的是，测试中性能上的优势只有在记录集较大的时候才会出现。

　　 这一组的最后一个测试中，我们使用了记录集的GetString方法。GetString方法将整个记录集提取成为一个大的字符串，并允许指定分隔符（ADO__13.asp）：

If objRS.EOF Then
Response.Write("No Records Found")
objRS.Close
Set objRS = Nothing
Else
'write headings
...
'set array
Dim strTable
strTable = objRS.GetString (2, , "＜/TD＞＜TD＞", "＜/TD＞＜/TR＞＜TR＞＜TD＞")
'close recordset early
objRS.Close
Set objRS = Nothing
Response.Write(strTable & "＜/TD＞＜/TR＞＜/TABLE＞")
End If

　　 虽然这种方法在速度上的好处非常明显，但它只适用于最简单的操作，根本无法适应稍微复杂的数据操作要求。