一个页面执行一次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
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 Rs = Server.CreateObject("Adodb.RecordSet")
Conn.Open ConnStr
简化后的操作：
Set DB = GetObject("script:"&Server.MapPath("DbHelper.sct"))
DB.ConnStr = ConnStr
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 = ""
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
'此处省略处理当前页码等代码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
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 Rs = Nothing
Set Conn = Nothing
注销对象（简）：
Set DB = Nothing
站长工具
相关文章
请稍等，评论加载中...