Asp事务处理

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

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

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

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

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

　　正确的解决办法是使用ASP的事务控制功能。IIS通过和MTS服务联系，可以控制多种支持事务的系统，当程序发出“失败”的信号时，所有支持事务的系统均将自动回滚，即使操作已经正式完成；对不支持事务的操作也提供了方便的手工回滚方式。上面的例子用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

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来显示成功的消息。

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

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

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

call conn.execute(strSql1)   
call conn.execute(strSql2)   
call conn.execute(strSql3)

if conn.Errors.Count=0 then   
conn.CommitTrans '如果没有conn错误，则执行事务提交  
else   
conn.RollbackTrans '否则回滚  
end if  
%>

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

call conn.execute(strSql1)   
call conn.execute(strSql2)   
call conn.execute(strSql3)

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