神马文学网asp事务处理的另外一个方法
来源：百度文库 编辑：神马文学网 时间：2024/04/27 22:31:24
<%
‘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 "数据库错误！错误日志："&strerr &""
Response.End
end if
%>
‘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 "数据库错误！错误日志："&strerr &""
Response.End
end if
%>
asp事务处理的另外一个方法
asp中的事务处理
另外一个真实的中国
另外一个真实的中国
另外一个真实的中国
告诉你另外一个真实的中国
告诉你另外一个真实的中国
告诉你另外一个真实的中国
告诉你另外一个真实的中国.
告诉你另外一个真实的中国
告诉你另外一个真实的中国
另外一个真实的中国 - 青年话题
另外一个可爱的折纸网站
告诉你另外一个真实的中国
电脑关机的另外三个方法
一个关于日本的故事（另外一个视角）
另外的
告诉你另外一个印度---开放的印度女主播
中国股市必须上涨的另外一个原因
关于人民币升值---告诉你另外一个真实的中国--
Uniwin, 另外一个基于Windows的远程开发系统
告诉你另外一个真实的中国2008
告诉你另外一个真实的中国1
袁剑：告诉你另外一个真实的中国