在第一部分，我们讨论了如何优化 ASP 代码。在这一部分，我们把重点放在数据访问上。

一般情况下，数据访问时间要比 ASP 代码解释，编译时间长，不要让数据检索成为影响 ASP 性能的瓶颈。

首先，讲一些老生常谈的话。比如：需要声明变量，要用 Response.Write SQL_string 来进行调试，要用 On Error Resume
Next 来捕获错误。不要在 Application 和 Session 中存储 Connection 对象等等，都是一些很多人知道而又不屑一顾的常
识。

提高数据访问速度包含两方面内容：1 与数据库建立连接。2 检索数据。

建立高效的连接是优化数据库访问的第一步。你需要了解连接池的概念( 参见文章： 连接池(Connection Pooling)介绍 )；了解
连接数据库的方法。另外，测试是很重要的，如果你想亲自进行测试，可以下载上一部分提到的 WAST ，它可以模拟大量用户同时
点击的情况。在这里，假设你使用的数据库是 MS SQL Server 7.0 ，如果 操作系统是 NT ，那么你可以在性能监视器中监测
SQL7 的用户连接数(counter:User Connections)；如果操作系统是98的话，可以使用 SQL7 的 Profiler。

下面，开始讨论如何与数据库建立连接，以及连接池的问题。

1. 使用 OLEDB

与数据库建立连接有三种方法：DSN，DSN-less，OLEDB( 参见文章： 用ADO连接数据库的三种方法 )。建议使用 OLEDB。

2. 尽快释放数据库对象

假设有 page1.asp 和 page2.asp，在多人同时点击的情况下，服务器可能会这样工作：

第一个人：page1.asp 的1-5行，
第二个人：page1.asp 的1-5行，
第一个人：page1.asp 的6-20行，
第二个人：page1.asp 的1-5行，
第三个人：page1.asp 的1-5行，
第四个人：page1.asp 的1-5行，
第二个人：page1.asp 的6-20行，
第一个人：page2.asp 的1-5行，
......

设想一下：有几千人同时访问你的主页，那么，服务器就会执行数千行，数万行语句后才回到第一个人请求的页面上。因此，我们
应尽可能快的处理某个功能，某个任务。看下列代码：

<%
rs1.Open strSQL1,cnn1 \'cnn1 is connection object
rs2.Open strSQL2,cnn2
rs3.Open strSQL3,cnn3
......
\'处理 rs1
\'处理 rs2
\'处理 rs3
......
rs1.Close
rs2.Close
rs3.Close
cnn1.Close
cnn2.Close
cnn3.Close
%>

这种处理结果集的方法会占用比你想象要多的资源，正确的用法应为：

<%
rs1.Open strSQL1,cnn \'cnn is connection object
\'处理 rs1
rs1.Close
cnn1.Close
......
rs2.Open strSQL2,cnn
\'处理 rs2
rs2.Close
cnn2.Close
......
rs3.Open strSQL3,cnn
\'处理 rs3
rs3.Close
cnn3.Close

......
%>

或许你会说：在 rs2 的处理中，我还需要 rs1 的值，所以不能在处理 rs2 前关闭 rs1。那么解决这个问题更好的办法是采用
GetRows 和 GetString，在后面会有详细的说明。

尽快的释放对象是保证数据库连接重用的前提。( 参见文章： 让数据库的连接更有效 )

3. 创建 Connection 对象，充分利用连接池。

看下列代码：

\'创建 Connection Object，打开 RecordSet
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strConnection
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open strSQL,cnn

\'直接打开 RecordSet
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,strConnection

在 asptoday 的 Enhancing Performance in ASP - Part 2 中对这两种方法进行了测试，结果表明直接打开 RecordSet 比创
建 Connection 快23%(快在页面处理上，检索数据库的速度是一样的。)所以，这篇文章的结论是：When working with a
single Recordset,pass the connection string into the ActiveConenction property.

我对此有异议：快的代码不一定是好的代码。

首先要说明的是，直接打开 RecordSet 的方法依然要创建与数据库的连接，只不过是由 ADO 自动完成的。其次，这个
Connection 只有在该页面处理完后才能被释放(不管是 Recordset.Close 还是 Set recordset = Nothing 都不能做到释放该
对象)。

Dim rs
Dim strcnn
strcnn = "Driver={SQL Server};Server=.;Database=pubs;UID=sa;PWD=;OLE DB Services=-1;"
For i = 1 To 20
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Authors",strcnn
rs.Close
Set rs = Nothing
Next


运行上面的代码，在性能监视器中你会发现数据库的连接被创建了20个！

Dim cnn,rs
strcnn = "Driver={SQL Server};Server=.;Database=pubs;" &_
"UID=sa;PWD=;OLE DB Services=-1;"
For i = 1 To 20
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM Authors",cnn
rs.Close
Set rs = Nothing
cnn.Close
Set cnn = Nothing
Next

采用上面的代码，连接数只需要2个！(只为说明问题，不考虑速度)

还有一点要说明的是：服务器处理 ASP 时不是一次只处理一个，也不是一次就把整个页面处理完，没有关闭的连接只会占用更多
的资源。所以，尽快的释放 Connection ，使它回到连接池中才是良好的编程习惯。连接池是服务器共享的资源，它不属于某个
ASP，也不属于某个 Session，或者某个 Application。

WAST 是我常用的测试工具，但是测试是一种手段，代替不了实际。如果你对 WAST 的工作方式感兴趣，可以到它的主页去看看。
http://webtool.rte.microsoft.com/

4. 为多个 RecordSet创建一个 Connection 对象

Dim cnn,rs1,rs2,r3
strcnn = "Driver={SQL Server};Server=.;Database=pubs;UID=sa;PWD=;OLE DB Services=-1;"
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open strcnn
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.Open "SELECT * FROM Authors1",cnn
Set rs2 = Server.CreateObject("ADODB.Recordset")
rs2.Open "SELECT * FROM Authors2",cnn
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open "SELECT * FROM Authors3",cnn
.....

道理很简单，这种做法不需要为每一个 RecordSet 创建一个连接，只要传递一个引用就够了。

5. 与多个数据库连接的问题。

在大部份应用中，我们只对一个数据库进行操作，但有时也会碰到与多个数据库连接的情况。下面我们讨论两种连接方式：

\'第一种：两个 Connection，两个 RecordSet。
Set cnn1 = Server.CreateObject("ADODB.Connection")
Set cnn2 = Server.CreateObject("ADODB.Connection")
cnn1.Open "provider=sqloledb;data source=210.75.56.37;initial catalog=pubs;user
id=coolbel;password=coolbel.com;"
cnn2.Open "provider=sqloledb;data source=210.75.56.37;initial catalog=coolbel;user
id=coolbel;password=coolbel.com;"
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs1.Open "select * from authors",cnn1
rs2.Open "select * from mytable",cnn2
......

\'第二种：一个 Connection，两个 RecordSet。
Set cnn = Server.CreateObject("ADODB.Connection")
cnn.Open "provider=sqloledb;data source=210.75.56.37;user id=coolbel;password=coolbel.com;"
Set rs1 = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs1.Open "select * from pubs..authors",cnn
rs2.Open "select * from coolbel..mytable",cnn
......


第二种方法极不可取，不仅速度低，而且浪费资源。其效率低下的根本原因在于这种连接方式没有利用连接池，使得每一次请求都
要重新创建与数据库的连接。

Click!测试第一种代码 Click!测试第二种代码 ( coolbel 不稳定，需要多测试几遍。)

6. 对于 Disconnected RecordSet，不要忘记使 ActiveConnection = Nothing