<%
Class Ado
Private ConnString
Private DbConn
Public Property Get GetConnectionStr
GetConnectionStr = ConnString
End Property
Public Property Let SetConn(ConnStr)
ConnString = ConnStr
End Property
Public Property Get Connection
IF Not IsObject(DbConn) Then
Set DbConn = Server.CreateObject("Adodb.Connection")
DbConn.Open Me.GetConnectionStr
End IF
Set Connection = DbConn
End Property
Public Function ExecuteSql (Sql)
'on error resume next
Connection.BeginTrans
Connection.Execute Sql,ExecNum
if err.number <>0 then
Connection.RollbackTrans
'response.Write Err.Description&" <br>"&Sql
execsql= False
else
Connection.CommitTrans
'execsql=True
end if
ExecuteSql=ExecNum
End Function
End Class
%>
如果我用此类去执行某记录集操作。
Set A=New Ado
A.Connection="数据库连接"
Set Rs=A.Execute(Sql,1)
.....
Rs.Close
Set Rs=Nothing
Set A=Nothing
以上程序并没有一个DbConn.Close 的过程，
当我使用Set A=Nothing 后，会不会自动断开DbConn的链接呢？
还是需要在类里增加下面的代码？
<%if request.QueryString("start") <>"" then%>
<%if cint(start)>0 then%>
<a href="search.asp?q= <%=q%>&start= <%if request.Query ......
