<%
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的链接呢？
还是需要在类里增加下面的代码？
我的網頁代碼為ASP語言,驗證方式為系統自帶的WINDOW驗證模式.
現在我如果要在ASP代碼中獲取當前的登入人 ......
我找了一个伪静态代码，如下：
index.asp
<!--#include file="config.asp"-->
<ol>
<%
Set rs=server.CreateObject("adodb.recordset") & ......
