<%
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 ......
我原本是学jsp的可找了一个ASP的公司！我要重新学习！ 学习ASP！ 希望大家推荐一本好书给我谢谢
<ASP3.0高级编程> 网上有电子版的
发现网上asp信息时最多的 比其他的都多好多
yun
找本有应用事例的A ......
我的網頁代碼為ASP語言,驗證方式為系統自帶的WINDOW驗證模式.
現在我如果要在ASP代碼中獲取當前的登入人 ......
