简化ADO数据库操作的控件（带分页功能）

一个页面执行一次Sql语句的话，不会影响到性能。如果一个页面要执行很多次Sql语句，而且使用的是同一个数据库连接，那么上面的方法可能会影响到性能，因为每执行一次Sql语句都要重新打开和关闭一次数据库连接。

如果存在多次数据操作，推荐使用如下方法：

Set Db = GetObject("script:"&Server.MapPath("DbHelper.sct"))
Db.ConnStr = yourConnStr
Set Rs1 = Db.RecordSet
' 如果存在多个数据库连接可以创建第二个Rs对象：
' Set Rs2 = Db.RecordSet(NewConnStr)
Db.NonQuery Sql1, Rs1
Db.NonQuery Sql2, Rs1
' ........
Rs1.ActiveConnection.Close    'Rs对象使用完后需要关闭数据库连接
' Rs2.ActiveConnection.Close
Set Rs1 = Nothing
'Set Rs2 = Nothing
Set Db = Nothing

创建对象：

Set Conn = Server.CreateObject("Adodb.Connection")
Set Rs = Server.CreateObject("Adodb.RecordSet")
Conn.Open ConnStr

简化后的操作：

Set DB = GetObject("script:"&Server.MapPath("DbHelper.sct"))
DB.ConnStr = ConnStr

查询语句：
仅执行（原）：Conn.Execute Sql
仅执行（简）：DB.NonQuery Sql

查询一个数据（原）：

Rs.Open Sql, Conn
result = ""
If Not Rs.Eof Then result = Rs(0).Value
Rs.Close

查询一个数据（简）：

result = DB.Scalar(Sql)

查询分页数据（原）：

Rs.Open Sql, Conn, 1, 3, 3
'此处省略处理当前页码等代码n行
C=0
while Not Rs.EOF and C<Rs.PageSize
C = C+1
' 显示数据Rs("FieldName")
Rs.MoveNext
Wend
Rs.Close

简化后的操作：

Set Ds = DB.DataSet(Sql, PageSize, Request.QueryString(Page))
For Each Item In Ds
    If IsObject(Item) Then
        ' 显示数据Item.FieldName
    End If
Next
Set Ds = Nothing

注销对象（原）：

Conn.Close
Set Rs = Nothing
Set Conn = Nothing

注销对象（简）：

Set DB = Nothing