asp事物功能简单小应用

　　conn.begintrans开启事物功能
...中间是一些添加修改删除操作
如果出现错误就取消
conn.rollbacktrans取消事物更改并结束事物
如果没问题，就保存
复制代码 代码如下:
<%ifnotsession(type)=3then
response.Redirect../login.asp
else
%>
<!--#includefile=../conn.asp-->
<LINKhref=../css/home1.csstype=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.asptarget=mainFrame>继续添加</a></p>
rs.close
setrs=nothing
conn.close
setconn=nothing
else
rs.close
conn.begintrans开启事物功能
rs.opensushe,conn,1,3
rs.addnew插入数据到users表
rs(m_su)=request.Form(su)
rs.update
rs.close
iferr.number<>0then
conn.begintrans开启事物功能
...中间是一些添加修改删除操作
如果出现错误就取消
conn.rollbacktrans取消事物更改并结束事物
如果没问题，就保存
response.Write(<palign=center>添加失败，请重新添加&&)
response.write<ahref=xitong_set.asptarget=mainFrame>重新添加</a></p>
else
response.write<SCRIPTlanguage=JavaScript>alert(添加成功！);
response.writesetTimeout(parent.mainFrame.document.location=xitong_set.asp,0)
response.write</SCRIPT>
endif
endif
%>

<%endif%>
<%response.End()%>