If Err Then 关闭连接 退出 Else 第二步:创建文件夹
If Err Then 回滚第一步数据库操作,退出 Else 第三步:在事务环境下操作日志数据库
If Err Then 回滚第一步操作,删除第二步建立的文件夹 退出 End If
End If End If 提交第一步数据库操作的事务 提交第二步数据库操作的事务 End
每一步都需要进行判断,如果失败,还需要手工回滚前面多步操作,使程序变得复杂、难懂。如果今后更新了程序,增加其他步骤,还需要嵌套更多层的If...Else...End
If,使程序流程更加复杂。
<%@ TRANSACTION = Required %> On Error Resume Next
Set
Conn=Server.CreateObject("ADODB.Connection") Conn.Open ....
Conn.Execute "INSERT...." Conn.Close Set Conn=Nothing
Set Conn2=Server.CreateObject("ADODB.Connection") Conn2.Open
.... Conn2.Execute "INSERT...." Conn2.Close Set Conn2=Nothing
Set FSO=Server.CreateObject("Scripting.FilesystemObject")
FSO.CreateFolder "...."
If Err Then ObjectContext.SetAbort
'通知所有支持事务的组件回滚,并运行手工回滚代码 Else ObjectContext.SetComplete End If
Set FSO=Nothing
Sub OnTransactionAbort Response.Write "错误"
FSO.DeleteFile Server.Mappath("a.txt") 'FSO的手工回滚——删除文件夹 End Sub
Sub OnTransactionCommit Response.Write "胜利完成任务" End Sub
%> 第一行的<%@ TRANSACTION = Required
%>表示这一页ASP文件需要MTS的事务支持。中间的各个操作都按普通顺序书写,而不用考虑回滚问题。在程序最后判断是否有错误。如果有,调用ObjectContext的SetAbort方法,IIS会通过MTS服务通知所有支持事务的组件回滚(主要是数据库),并且运行Sub
OnTransactionAbort对不支持事务的操作手工回滚;如果没有发生错误,调用ObjectContext的SetComplete方法,则会运行Sub
OnTransactionCommit来显示成功的消息。