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 + -
显示快捷键?