Asp事务处理

　　在编程中，经常需要使用事务。所谓事务，就是一系列必须都成功的操作，只要有一步操作失败，所有其他的步骤也必须撤销。比如用ASP开发一个网络硬盘系统，其用户注册部分要做的事有：
1、将用户信息记入数据库
2、为用户开个文件夹用于存储
3、初始化用户操作日志

这三步必须使用事务，否则万一磁盘操作失败，而没有撤销数据库操作，就会造成只能登陆而不能操作的“死用户”现象。

由于数据库系统特殊的发展历史，小至Access，大到DB2,无不带有事务支持。因此上述步骤可以如下表示：

以下是引用片段：
OnErrorResumeNext
第一步：
在事务环境下把用户信息记入数据库
IfErrThen
关闭连接
退出
Else
第二步：创建文件夹
IfErrThen
回滚第一步数据库操作，退出
Else
第三步：在事务环境下操作日志数据库
IfErrThen
回滚第一步操作，删除第二步建立的文件夹
退出
EndIf
EndIf
EndIf
提交第一步数据库操作的事务
提交第二步数据库操作的事务
End

每一步都需要进行判断，如果失败，还需要手工回滚前面多步操作，使程序变得复杂、难懂。如果今后更新了程序，增加其他步骤，还需要嵌套更多层的If...Else...EndIf，使程序流程更加复杂。

正确的解决办法是使用ASP的事务控制功能。IIS通过和MTS服务联系，可以控制多种支持事务的系统，当程序发出“失败”的信号时，所有支持事务的系统均将自动回滚，即使操作已经正式完成；对不支持事务的操作也提供了方便的手工回滚方式。上面的例子用ASP事务控制功能重写如下：
复制代码 代码如下:
<%@TRANSACTION=Required%>
OnErrorResumeNext

Conn.Open....
Conn.ExecuteINSERT....
Conn.Close
SetConn=Nothing

SetConn2=Server.CreateObject(ADODB.Connection)
Conn2.Open....
Conn2.ExecuteINSERT....
Conn2.Close
SetConn2=Nothing

SetFSO=Server.CreateObject(Scripting.FilesystemObject)
FSO.CreateFolder....

IfErrThen
ObjectContext.SetAbort通知所有支持事务的组件回滚，并运行手工回滚代码
Else
ObjectContext.SetComplete
EndIf
SetFSO=Nothing

SubOnTransactionAbort
Response.Write错误
FSO.DeleteFileServer.Mappath(a.txt)FSO的手工回滚——删除文件夹
EndSub
SubOnTransactionCommit
Response.Write胜利完成任务
EndSub
%>

第一行的<%@TRANSACTION=Required%>表示这一页ASP文件需要MTS的事务支持。中间的各个操作都按普通顺序书写，而不用考虑回滚问题。在程序最后判断是否有错误。如果有，调用ObjectContext的SetAbort方法，IIS会通过MTS服务通知所有支持事务的组件回滚（主要是数据库），并且运行SubOnTransactionAbort对不支持事务的操作手工回滚；如果没有发生错误，调用ObjectContext的SetComplete方法，则会运行SubOnTransactionCommit来显示成功的消息。

整个ASP程序不需要为判断错误和回滚操作书写多余的代码，只须在最后进行判断，即使今后增加了多步操作，也只需要在SubOnTransactionAbort中进行控制即可，非常方便，程序员可以专注于过程编写而不是书写纠错代码。

其实ASP还提供了许多更有用的功能，等着我们使用，千万不要以为ASP使用脚本语言，功能就一定弱。

以下是引用片段：
<%
asp事务处理。
测试数据库为sqlserver，服务器为本机，数据库名为test，表名为a，两个字段id(int)主键标识,num(int)
setconn=server.CreateObject(adodb.connection)
strConn=provider=sqloledb.1;persistsecurityinfo=false;uid=sa;pwd=sa;InitialCatalog=test;DataSource=.
conn.OpenstrConn
以上代码建立数据库连接
conn.BeginTrans事务开始
strSql1=updateasetnum=1000whereid=24第一个sql语句为update。（语法正确）
strSql2=insertintoa(num)values(a)第二个sql语句为错误的sql语句
strSql3=insertintoa(num)values(33333)第三个sql语句为正确的sql语句

callconn.execute(strSql1)
callconn.execute(strSql2)
callconn.execute(strSql3)

ifconn.Errors.Count=0then
else
conn.RollbackTrans否则回滚
endif
%>

以上代码经调试，可以正常的进行事务处理。但是有时候，我们并不想将编译错误显示给用户。
则我们需要在conn.BeginTrans后面加上Onerrorresumenext
但是因为用到了Onerrorresumenext。conn.Errors.Count只能获得最后一个数据库操作的conn返回的结果。上面的三个sql语句，因为最后一个sql语句是正确的，则此事务处理就无效了。那我们需要对出错处理作出相对应的修改。
ifconn.Errors.Count=0then应该改为iferr.number=0then
这样，我们可以在数据库回滚后同时做出其他相对应的操作或者提示。修改后的代码如下：
以下是引用片段：
<%
setconn=server.CreateObject(adodb.connection)
strConn=provider=sqloledb.1;persistsecurityinfo=false;uid=sa;pwd=sa;InitialCatalog=test;DataSource=.
conn.OpenstrConn
以上代码建立数据库连接
conn.BeginTrans事务开始
onerrorresumenext增加的代码
strSql1=updateasetnum=1000whereid=24第一个sql语句为update。（语法正确）
strSql2=insertintoa(num)values(a)第二个sql语句为错误的sql语句
strSql3=insertintoa(num)values(33333)第三个sql语句为正确的sql语句

callconn.execute(strSql1)
callconn.execute(strSql2)
callconn.execute(strSql3)

iferr.number=0then
conn.CommitTrans如果没有conn错误，则执行事务提交
else
conn.RollbackTrans否则回滚
回滚后的其他操作
strerr=err.Description
Response.Write数据库错误！错误日志：<fontcolor=red>&strerr&</font>
Response.End
endif
%>