| 在開發Web應用時，無一例外地需要訪問數據庫，以完成對數據的查詢、插入、更新、刪除等操作。受應用邏輯的影響，有時需要將多條數據庫操作指令組成一個工作單元（事務）。在數據庫中，所謂事務是指一組邏輯操作單元，它使數據從一種狀態變換到另一種狀態。爲確保數據庫中數據的一致性，應當用離散的成組的邏輯單元操作數據：當它全部完成時，數據的一致性可以保持；而當單元中的一部分操作失敗時，整個事務會被全部忽略，所有從起始點以後的操作全部退回到開始狀態。 |
| 實際上，在默認方式下對數據庫的每一次操作都是隱含的事務處理。本文以一個典型的用戶註冊程序爲例，介紹三種利用ASP實現事務處理的方法：基於ASP數據庫組件的解決方法、基於數據庫內部的事務處理機制的解決方法和基於MTS組件的解決方法。 |
| 程序功能 |
| 在SQL Server數據庫中建立兩個表：USER表和USERDOC表。其中USER表中存放的是註冊用戶的用戶名和密碼，USERDOC表中存放的是該註冊用戶的個人資料，並且以用戶名爲索引。下面是表USER和USERDOC的定義： |
| Create Table USER(userName varchar(30),userPasswd varchar(30)) |
| Create Table USERDOC(userName varchar(30),Age int,Sex int,PhoneNumber varchar(20),Address varchar(50)) |
| 當用戶請求註冊時，ASP腳本先將用戶名和密碼插入到USER表中，然後在USERDOC表中插入用戶個人信息（年齡、性別、聯繫電話和家庭住址等）。同時，應用程序還必須保證USER表中的每一條記錄在USERDOC表中都有相應的記錄。 |
| 方法一 |
| 利用ASP內置ADO組件中的Connection對象可以實現對數據庫操作的事務性處理。Connection對象的部分方法如下： |
| ●Connection.BeginTrans方法：啓動一個事務； |
| ●Connection.CommitTrans方法：完成/提交一個事務； |
| ●Connection.RollBackTrans方法：撤消/放棄一個事務。 |
| //啓動一個事務操作 |
| <％ Conn.BeginTrans ％> |
| <％ sqlText=“Insert into USER(userName,userPasswd) values(‘” ％> |
| <％ sqlText=sqlText ＆ request(“usrName”) ＆ “’，‘”＆request(“usrPasswd”)＆“’) ” ％> |
| <％ conn.execute(sqlText) ％> |
| <％ if conn.Errors.Count>0 then ％> |
| <％ conn.Errors.Clear ％> |
| //如果插入數據操作失敗，則事務向前回滾 |
| <％ conn.RollBackTrans ％> |
| <％ response.Redirct RegisterFail.html ％> |
| <％ end if ％> |
| <％ sqlText=“Insert into USERDOC(userName,Age,Sex,PhoneNumber,Address) ”％> |
| <％ sqlText=sqlText ＆ “values(‘”＆ request |
| (“usrName”) ＆ “’, ” ＆ request(“Age”) ％> |
| <％ sqlText=sqlText ＆ “,‘” ＆ request |
| (“PhoneNum”) ＆ “’,‘” ％> |
| <％ sqlText=sqlText ＆ request(“Address”) ＆ “’) ” ％> |
| //執行事務單元中的第二條插入語句 |
| <％ conn.execute(sqlText) ％> |
| <％ if conn.Errors.Count>0 then ％> |
| <％ conn.Errors.Clear ％> |
| //如果操作失敗，則事務向前回滾 |
| <％ conn.RollBackTrans ％> |
| <％ response.Redirct RegisterFail.html ％> |
| <％ end if ％> |
| //如果整個事務操作執行正確，則提交事務 |
| <％ Conn.CommitTrans ％> |
| //轉向註冊成功處理頁面 |
| <％ response.Redirct RegisterOk.html ％> |
| 方法二 |
| 可以利用數據庫系統內部的事務處理機制，通過在數據庫服務器中編寫包含事務的存儲過程，完成對數據操作的事務處理。同時，利用ADO組件調用存儲過程，還可以根據存儲過程的返回代碼判斷事務處理是否執行成功。 |
| 在數據庫系統中，每一條SQL語句都是一個事務。因此可以保證每條語句要麼完成，要麼退回到開始之處。但是如果希望一組SQL語句的操作要麼全部完成，要麼全部無效，就需要利用數據庫的事務處理機制來實現。 |
| 在數據庫中生成存儲過程的主要代碼如下： |
| Create proc RegisterUser |
| (@usrName varchar(30), @usrPasswd varchar(30),@age int, @PhoneNum varchar(20), @Address varchar(50) ) |
| as |
| begin |
| //顯示定義並開始一個事務 |
| begin tran |
| insert into USER(userName,userPasswd) values(@usrName,@usrPasswd) |
| if @@error<>0 |
| begin |
| //操作失敗，則事務回滾 |
| rollback tran |
| //返回存儲過程，並設置返回碼爲事務操作失敗 |
| return －1 |
| end |
| insert into USERDOC(userName,age,sex,PhoneNumber,Address) |
| values(@Usrname,@age,@PhoneNum,@Address) |
| if @@error<>0 |
| begin |
| //操作失敗，則事務回滾 |
| rollback tran |
| return －1 |
| end |
| //如果操作執行正確，則提交事務 |
| commit tran |
| return 0 |
| end |
| 在ASP腳本中調用數據庫存儲過程的主要代碼如下： |
| <％ Set Comm=server.CreateObject |
| (“ADODB.Command”) ％> |
| <％ Set Comm.ActiveConnection=conn ％> |
| <％ Comm.CommandType=adCmdStoredProc ％> |
| <％ Comm.CommandText=“RegisterUser” ％> |
| //創建存儲過程返回參數對象 |
| <％ Set RetCode=Comm.CreateParameter |
| (“RetCode”,adInteger,adParamReturnValue) ％> |
| //創建存儲過程輸入參數對象 |
| <％ Set usrName=Comm.CreateParameter |
| (“usrName”,adVarchar,adParamInput,30) ％> |
| <％ Set usrPwd=Comm.CreateParameter |
| (“usrPasswd”,adVarchar,adParamInput,30) ％> |
| <％ Set age=Comm.CreateParameter(“age”,adInteger,adParamInput) ％> |
| <％ Set PhoneNum=Comm.CreateParameter |
| (“PhoneNum”,adVarchar,adParamInput, 20) ％> |
| <％ Set Address=Comm.CreateParameter(“Address”,adVarchar,adParamInput,50) ％> |
| <％ Comm.Parameters.Append usrName ％> |
| <％ Comm.Parameters.Append usrPwd ％> |
| <％ Comm.Parameters.Append age ％> |
| <％ Comm.Parameters.Append PhoneNum ％> |
| <％ Comm.Parameters.Append Address ％> |
| <％ Comm.Parameters(“usrName”)=request |
| (“usrName”) ％> |
| <％ Comm.Parameters(“usrPasswd”)=request |
| (“usrPasswd”) ％> |
| <％ Comm.Parameters(“age”)=request(“age”) ％> |
| <％ Comm.Parameters(“PhoneNum”)=request |
| (“PhoneNum”) ％> |
| <％ Comm.Parameters(“Address”)=request |
| (“Address”) ％> |
| <％ Comm.Execute ％> |
| <％ RetValue=Cint(Comm(“RetCode”)) ％> |
| //根據數據庫存儲過程返回代碼判斷註冊是否成功 |
| <％ if RetValue< 0 then ％> |
| <％ response.Redirect RegisterFail.html ％> |
| <％ else ％> |
| <％ response.Redirect RegisterOk.html ％> |
| <％ end if ％> |
| 方法三 |
| 利用MTS(Microsoft Transaction Server)組件的事務處理機制實現事務處理時，需要特別注意的是，這種機制下的事務不能跨越多個ASP頁，如果一個事務處理需要來自多個組件的對象，則須將對這些對象的操作組合在一個ASP頁中。 |
| 首先需要在頁首添加指令@TRANSACTION，將一個ASP頁面聲明爲事務性。@TRANSACTION指令必須在一頁中的第一行，否則將產生錯誤。當頁面中ASP腳本處理結束時，當前事務即告結束。 |
| <％@ TRANSACTION=Required Language= |
| VB Script ％> |
| //事務執行成功觸發事件 |
| <％ Sub OnTransactionCommit() ％> |
| <％ response.Redirect RegisterOk.html ％> |
| <％ End Sub ％> |
| //事物執行失敗觸發事件 |
| <％ Sub OnTransactionAbort() ％> |
| <％ response.Redirect RegisterFail.html ％> |
| <％ End Sub ％> |
| <％ sqlText=“Insert into USER(userName,userPasswd) values(‘” ％> |
| <％ sqlText=sqlText ＆ request(“usrName”) ＆ “’,‘” ＆request(“usrPasswd”)＆“’) ” ％> |
| <％ conn.execute(sqlText) ％> |
| <％ if conn.Errors.Count>0 then ％> |
| <％ conn.Errors.Clear ％> |
| <％ ObjectContext.SetAbort ％> |
| <％ end if ％> |
| <％ sqlText=“Insert into USERDOC(userName,Age,Sex,PhoneNumber,Address) ”％> |
| <％ sqlText=sqlText ＆ “values(‘” ＆ request |
| (“usrName”)＆ “’, ” ＆ request(“Age”) ％> |
| <％ sqlText=sqlText ＆ “,’” ＆ request |
| (“PhoneNum”) ＆ “’,‘” ％> |
| <％ sqlText=sqlText ＆ request(“Address”) ＆ “’) ” ％> |
| <％ conn.execute(sqlText) ％> |
| <％ if conn.Errors.Count>0 then ％> |
| <％ conn.Errors.Clear ％> |
| <％ ObjectContext.SetAbort ％> |
| <％ end if ％> |
| <％ ObjectContext.SetComplete ％> |
| 方案比較 |
| 從靈活的角度考慮，選擇採用ASP數據庫組件的方法具有一定的優勢：既可以選用ADO數據庫組件完成事務處理，同時還可以根據實際需要，定製自己的數據庫組件（只要滿足ASP組件編寫規範即可）。如果從數據庫事務處理的可靠性等角度考慮，則採用數據庫內部的事務處理存儲過程更好。這樣可以直接利用數據庫事務機制完成應用程序的邏輯事務處理，安全可靠，並且減少了Web服務器與數據庫服務器之間的數據交互。這一點對分佈式數據庫系統尤爲重要。採用MTS組件的事務處理方法的優勢在於：由MTS服務器直接控制和管理組件（在MTS中註冊的組件）操作的完成和撤消，具有良好的擴展空間和應用前景，可以充分發揮MTS的技術優勢，增強網絡應用的容錯性能，提高IIS Web服務器的動態性能。 |