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

时间: 2022-10-24

Asp事务处理_应用技巧的相关文章

ASP 指南_应用技巧

简介 "Active Server Page (ASP)"应用程序的成功常常取决于对体系结构和设计这两方面的取舍.考虑到 ASP 技术的范围之广和当前应用程序固有的复杂性,这种取舍是非常困难的.本文中,我将为您提供一些特定的指导方针,以助您成功开发基于 ASP 的应用程序. 从过去成功的开发模式经验中,我们总结出以下原则. 我已将指导方针整理成一组开发原则.在评估解决方案和技术时,可以应用以下原则帮助您做出决策.以下原则是我长期以来从成功的开发模式所得的经验积累. 原则 1:采用标准方

适合所有网站的rss和xml聚合功能asp代码_应用技巧

rss.asp格式的 下面代码保存为rss.asp 复制代码 代码如下: <!--#include file="conn.asp"--> <% strURL = "http://" & request.servervariables("server_name") & _ left(request.servervariables("script_name"),len(request.server

为google量身定做的sitemap生成代码asp版_应用技巧

外面很多所谓sitemap生成代码都只生成目录文件地址,没生成动态的,我后来自己写了这个,是支持动态的,例子: 如你是文章网站,文章有2000条,那你修改下对应你的文章数据表,即可生成除了所有目录文件外,还生成你的动态2000条地址,绝对的没话说,生成速度非常快 把下面代码保存为sitemap.asp文件,修改我已注明的几个地方,其他的一概不要修改,好不好用过才知道. 复制代码 代码如下: <!--#include file="conn.asp"--> <% sess

把网页中的(电话,qq等数字)生成图片的ASP程序_应用技巧

作用:用ASP程序将页面中的电话号码生成图片格式. 复制代码 代码如下: <% Call Com_CreatValidCode(Request.QueryString("tel")) Public Sub Com_CreatValidCode(pTel) '----------禁止缓存 Response.Expires = 0 Response.AddHeader "Pragma","no-cache" Response.AddHeader

值得收藏的一些HTML、JavaScript、ASP代码_应用技巧

1. CDONTS.NewMail 组件使用说明   Set MailObject = Server.CreateObject("CDONTS.NewMail")   MailObject.From = "发信邮箱"   MailObject.To = "收信邮箱"   MailObject.Cc = "抄送邮箱"   MailObject.Bcc = "密送邮箱"   MailObject.Subject

手写个小组件(组件入门)asp版_应用技巧

动手写个小组件(组件入门) 这篇文章主要是为想将自己的ASP水平提高的人写的! 把ASP代码变成组件,开发者不仅是加快了ASP的速度,而且也能保护自己的代码.这篇文章写出来,也是为了给想开发组件网友上一堂入门课! 下面,我们会来编写一个非常简单的组件,重点是知道怎样开发DLL组件,而不是其复杂的代码!这些都要靠你们自己以后的努力了. 服务器端组件 首先,服务器端的组件要有别于客户端的组件.客户端的组件是通过网络传输,依靠HTML来起作用.而且只能在IE上有用.但是服务器端的组件是运行在服务器端,

什么是ASP?如何打开ASP文件_应用技巧

ASP是基于WEB的一种编程技术,可以说是CGI的一种.它可以完成以往CGI程序的所有功能,如计数器.留言簿.公告板.聊天室等等.ASP可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容.而浏览者一点觉察不出来,就像为他专门制作的页面一样.使用各种各样的组件,ASP可以完成无比强大的功能.使用FileSystemObject,可以对服务器上的文件进行操作,浏览.复制.移动.删除等.有ADO(Active Database Object,动态数据库对象)的支持,ASP对数据库

PerlScript编写ASP(转载)_应用技巧

Nighthawk注:  尽管这些年来Perl为广大编程爱好者所熟悉,但却对Perl存在一个令人尴尬的误解,以为Perl就是CGI,经常有人问我Perl和CGI,和PHP,和ASP比较如何如何,这是实在是件很遗憾的事情.这里特地贴出下面这篇文摘,也许能减少一些这方面的 误解.  本文将进一步讲述Perl在可嵌入技术的广域性,和PerlScript 在脚本技术领域的功用.以前的文章我说了ePerl.Embed Perl和Mod_Perl 技术,它们都是单独领域的技术,是在本身基础上的延伸.而本文将

在不刷新页面的情况下调用远程asp脚本_应用技巧

1.请在sql server 中建一数据库 name:house 在house中运行下列脚本 if exists (select * from sysobjects where id = object_id(N´[dbo].[City]´) and OBJECTPROPERTY(id, N´IsUserTable´) = 1) drop table [dbo].[City] GO if exists (select * from sysobjects where id = object_id(N