6-05.asp
来自「包括本书所有的源代码。所有程序均在Windows 2000+IIS5.0+SQL」· ASP 代码 · 共 22 行
ASP
22 行
<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 + =
减小字号Ctrl + -
显示快捷键?