asp事物功能简单小应用

答案：conn.begintrans '开启事物功能 
...中间是一些添加修改删除操作 
如果出现错误就取消 
conn.rollbacktrans '取消事物更改并结束事物 
如果没问题，就保存 
conn.CommitTrans '保存事物并结束事物
[复制此代码]CODE:

<%if not session("type")="3" then  
response.Redirect "../login.asp"   
else 
%> 
<!--#include file="../conn.asp" --> 
<LINK href=><%     
set rs=server.CreateObject("ADODB.recordset") 
sql = "select * from [sushe] where m_su='"& request.Form("su") &"'" 
rs.open sql,conn,1,1 
if rs.recordcount>0 then 
response.write("<p align='center'>"&request.QueryString("name")&":"& request.Form("su") &"已经入库，请添加其他"&request.QueryString("name")&"！") 
response.Write "<a href=>rs.close 
set rs=nothing 
conn.close 
set conn=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 
if err.number<>0 then 
conn.begintrans '开启事物功能 
...中间是一些添加修改删除操作 
如果出现错误就取消 
conn.rollbacktrans '取消事物更改并结束事物 
如果没问题，就保存 
conn.CommitTrans '保存事物并结束事物 
response.Write("<p align='center'>添加失败，请重新添加"&" "&" ")  
response.write "<a href=>else 
conn.CommitTrans '保存事物并结束事物 
response.write"<SCRIPT language=JavaScript>alert('添加成功！');" 
response.write"setTimeout(parent.mainFrame.document.location='xitong_set.asp',0)" 
response.write"</SCRIPT>" 
end if  
end if 
%> 
<%end if%> 
<%response.End()%> 

上一个：ASP获取网页全部图片地址并保存为数组的正则
下一个：一个asp替换函数img里面多余的代码