conn.begintrans'开启事物功能

...中间是一些添加修改删除操作

如果出现错误就取消

conn.rollbacktrans'取消事物更改并结束事物

如果没问题，就保存

conn.CommitTrans'保存事物并结束事物

复制代码 代码如下:

<%ifnotsession("type")="3"then

response.Redirect"../login.asp"

else

%>

<>

<LINKhref="../css/home1.css"type=text/cssrel=stylesheet>

<%

setrs=server.CreateObject("ADODB.recordset")

sql="select*from[sushe]wherem_su='"&request.Form("su")&"'"

rs.opensql,conn,1,1

ifrs.recordcount>0then

response.write("<palign='center'>"&request.QueryString("name")&":"&request.Form("su")&"已经入库，请添加其他"&request.QueryString("name")&"！")

response.Write"<ahref='xitong_set.asp'target='mainFrame'>继续添加</a></p>"

rs.close

setrs=nothing

conn.close

setconn=nothing

else

rs.close

conn.begintrans'开启事物功能

rs.open"sushe",conn,1,3

rs.addnew'插入数据到users表

rs("m_su")=request.Form("su")

rs.update

rs.close

iferr.number<>0then

conn.begintrans'开启事物功能

...中间是一些添加修改删除操作

如果出现错误就取消

conn.rollbacktrans'取消事物更改并结束事物

如果没问题，就保存

conn.CommitTrans'保存事物并结束事物

response.Write("<palign='center'>添加失败，请重新添加"&""&"")

response.write"<ahref='xitong_set.asp'target='mainFrame'>重新添加</a></p>"

else

conn.CommitTrans'保存事物并结束事物

response.write"<SCRIPTlanguage=JavaScript>alert('添加成功！');"

response.write"setTimeout(parent.mainFrame.document.location='xitong_set.asp',0)"

response.write"</SCRIPT>"

endif

endif

%>

<%endif%>

<%response.End()%>