快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

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



%>
返回类别: 教程
上一教程: 利用XMLHTTP实现的二级连动SELECT
下一教程: 使用组件搜索

您可以阅读与"ASP事务处理的另外一个方式"相关的教程:
· 利用ASP实现事务处理的方式
· ASP中对数据库表的操作,可使用事务处理,并支持多事务处理
· ASP事务处理
· 一个功能完善的专栏治理的程序->这是asp.net的第二个应用(一)
· 一个功能完善的专栏治理的程序->这是asp.net的第二个应用(三)
    微笑服务 优质保证 索取样品