ASP中使用SQLServer的事务控制及批执行Sql语句

<%
   SQL1 = "update table1 set a=b where id=1"
   Conn.ExeCute SQL1
    SQL2 = "update table2 set a=b where id=2"
   Conn.ExeCute SQL2
   SQL3 = "update table3 set a=b where id=3"
   Conn.ExeCute SQL3
%>
    事实上，这是一种效率很低下的写法，为了提高SQL的执行效率，我们可以把多个SQL语句用分号拼接在一起，然后一次性交给Conn来执行。如下：
<%   
    SQL1 = "update table1 set a=b where id=1"
    SQL2 = "update table2 set a=b where id=2"
    SQL3 = "update table3 set a=b where id=3"
    SQL = SQL1 & ";" & SQL2 & ";" & SQL3
    Conn.ExeCute SQL
%>
    但是，以上2种写法都会面临一个问题，就是当我们需要保证3条SQL语句都必须完整执行，当某一条执行错误时，其他2条也跟着回滚时，我们就需要用到SQLServer的事务控制了，不少的文章建议使用以下方法：
<%
dim Conn=Server.CreateObject("ADODB.Connection")  
'开始事务  
Conn.BeginTrans    
'执行SQL,若成功则提交事，否则回滚事务  
Conn.Execute(sql语句)  
'提交事务  
Conn.CommitTrans  
'回滚事务  
Conn.RollbackTrans
%>
    在很多时候，这并不能达到保证SQL语句完整执行的目的，高效的做法应该是利用SQLServer本身的事务控制功能，如下：
<%
Sub ExeSql(byval SqlStr)
Dim TrSql
TrSql = "SET XACT_ABORT ON;BEGIN TRANSACTION;"
   TrSql = TrSql & SqlStr
   TrSql = TrSql & ";COMMIT TRANSACTION;SET XACT_ABORT OFF"
Conn.ExeCute(TrSql)
End Sub
SQL1 = "update table1 set a=b where id=1"
SQL2 = "update table2 set a=b where id=2"
SQL3 = "update table3 set a=b where id=3"
SQL = SQL1 & ";" & SQL2 & ";" & SQL3
ExeSql SQL
%>