利用ASP實現交易處理的方法

利用ASP實現交易處理的方法 選擇自 AppleBBS 的 Blog
關鍵字 利用ASP實現交易處理的方法
出處

在開發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伺服器的動態效能。