asp中的事务

asp事务案例，看看是否明白
<%
＜%@ 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
'www.forasp.cn 网站制作学习网
Set FSO=Server.CreateObject("Scripting.FilesystemObject")
FSO.CreateFolder "...."
'网站知做www.学forasp习.cn网
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
%＞ www.forasp.cn 整理