Asp事务处理(3)


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
%>