?? 6-05.asp
字號:
<HTML><BODY>
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("person.mdb"))
conn.BeginTrans '開始事務處理
'刪除記錄
strSql="DELETE FROM grade WHERE 姓名='小張'"
conn.Execute(strSql)
'刪除記錄
strSql="DELETE FROM grade WHERE 姓名='小劉'"
conn.Execute(strSql)
If conn.Errors.Count = 0 Then '如果無錯誤，就執行
conn.CommitTrans() '提交事務處理結果
Response.Write("成功執行")
Else
Db.RollbackTrans() '如果有錯誤，則取消事務處理結果
Response.Write("有錯誤發生，取消處理結果")
End If
%>
</BODY> </HTML>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -