📄 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 + -