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

文章來自: Tank部落格
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相關日誌: