Asp事务处理

网络编程 ASP编程 应用技巧 分类:[default] 更新日期: 2016-05-03

在编程中,经常需要使用事务。所谓事务,就是一系列必须都成功的操作,只要有一步操作失败,所有其他的步骤也必须撤销。比如用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
%> 


> 本站内容系网友提交或本网编辑转载,其目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请及时与本网联系,我们将在第一时间删除内容!

相关文章
  • 解读ASP.NET5&MVC6系列教程1:ASP.NET5简介
    这篇文章主要介绍ASP.NET 5简介以及对各个版本号进行解释,ASP.NET 5中新的变化,需要的朋友可以参考下.ASP.NET 5简介 ASP.NET 5是一个跨时代的改写,所有的功能和模块都进行了独立拆分,做到了彻底解耦.为了这些改写,微软也是蛮 拼的,几乎把.NET Framwrok全部改写了一遍,形成了一个.NET Core的东西. 在.NET C ...
  • ASP.NETWebApi2实现多文件打包并下载文件的实例
    ASP.NETWebApi2实现多文件打包并下载文件的实例
    这篇文章主要介绍了ASP.NET Web Api 2利用ByteArrayContent和StreamContent实现多文件打包并下载的方法,提供源码下载,需要的朋友可以参考下.最近由于工作和个人事务,站点也好久没更新了,但这并不影响我对.NET的热情.站点的更新工作还是得想办法抽时间来完成的. 今天利用中午的时间来写一篇关于Asp.Net Web Api ...
  • ASP.NET(C#)WebApi通过文件流下载文件的实例
    这篇文章主要介绍了ASP.NETC# Web Api通过文件流下载文件的方法,提供源码下载,需要的朋友可以参考下.下载文件到本地是很多项目开发中需要实现的一个很简单的功能.说简单,是从具体的代码实现上来说的,.NET的文件下载方式有很多种,本示例给大家介绍的是ASP.NET Web Api方式返回HttpResponseMessage下载文件到本地.实现的方 ...
  • asp.netcore实现文件上传功能
    asp.netcore实现文件上传功能
    这篇文章主要为大家详细介绍了asp.net core实现文件上传功能,怎么做单文件和多文件上传,感兴趣的小伙伴们可以参考一下本文实例为大家分享了单文件上传.多文件上传的功能,供大家参考,具体内容如下 单文件上传 上传文件在Web应用程序中是一个常见的功能.在asp.net core中上传文件并保存在服务器上,是很容易的.下面就来演示一下怎么样在 ASP.NE ...
  • asp.net及javascript判断是否手机访问的方法
    这篇文章主要介绍了asp.net及javascript判断是否手机访问的方法,结合实例形式对比分析了asp.net及javascript实现判断访问端类型的相关技巧,需要的朋友可以参考下本文实例讲述了asp.net及javascript判断是否手机访问的方法.分享给大家供大家参考,具体如下: /// <summary> /// 判断手机用户Use ...
  • 利用ASP.NETMVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)
    利用ASP.NETMVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug(四)
    这篇文章主要介绍了利用ASP.NET MVC+Bootstrap搭建个人博客之修复UEditor编辑时Bug四的相关资料,非常不错,具有参考借鉴价值,需要的朋友可以参考下我的个人博客站在使用百度富文本编辑器UEditor修改文章时,遇到了一些问题,(不知是bug,还是我没有配置好).但总算找到了解决方法,在此记录下来. 小站首页文章列表显示为(显示去除HTM ...
猜你喜欢