ASP 数据库事务处理

write less,do less

                            Dim tSql,dSql2,qno,conn
		   qno=request("qno")
		   tSql="delete from teacher where qno="&qno
		   dSql="delete from department where qno="&qNo
		   set conn=server.CreateObject("ADODB.CONNECTION")
		   conn.open ConnStr
		   conn.BeginTrans  '---事务回滚控制
		      conn.execute(tsql)
		        conn.execute(dsql)
		        if conn.Errors.count>0 then '--执行出现错误 
		           conn.Errors.clear        '--清除报错语句
			       conn.rollbackTrans       '--事务回滚
		           response.Write "删除失败.<a href=""delete.asp?qno="&qno&""">返回</a>"
		        end if
		   conn.commitTrans  '--事务提交
		  response.Redirect "success.asp"