使用数据库事务

< % 
On   Error   Resume   Next   ' 错误发生后继续处理
' Asp中使用事务 
Set  conn = Server.CreateObject( " ADODB.Connection " ) 
conn.Open  " course_dsn " , " course_user " , " course_password "  
conn.begintrans  ' 开始事务 

sql = " delete from user_info "  
set  rs = server.createobject( " adodb.recordset " ) 
rs.open sql,conn, 3 , 3  
if  conn.errors.count > 0   then   ' 有错误发生 
  conn.rollbacktrans  ' 回滚 
   set  rs = nothing  
  conn.close 
   set  conn = nothing  
  response.write  " 交易失败，回滚至修改前的状态！ "  
  response.end 
else  
  conn.committrans  ' 提交事务 
   set  rs = nothing  
  conn.close 
   set  conn = nothing  
  response.write  " 交易成功！ "  
  response.end 
end   if  
% >

转载于:https://www.cnblogs.com/chiyung/articles/1265939.html