利用ASP實(shí)現(xiàn)事務(wù)處理的方法     選擇自 AppleBBS 的 Blog  
關(guān)鍵字   利用ASP實(shí)現(xiàn)事務(wù)處理的方法 
出處    

 在開(kāi)發(fā)Web應(yīng)用時(shí)，無(wú)一例外地需要訪問(wèn)數(shù)據(jù)庫(kù)，以完成對(duì)數(shù)據(jù)的查詢、插入、更新、刪除等操作。受應(yīng)用邏輯的影響，有時(shí)需要將多條數(shù)據(jù)庫(kù)操作指令組成一個(gè)工作單元（事務(wù)）。在數(shù)據(jù)庫(kù)中，所謂事務(wù)是指一組邏輯操作單元，它使數(shù)據(jù)從一種狀態(tài)變換到另一種狀態(tài)。為確保數(shù)據(jù)庫(kù)中數(shù)據(jù)的一致性，應(yīng)當(dāng)用離散的成組的邏輯單元操作數(shù)據(jù)：當(dāng)它全部完成時(shí)，數(shù)據(jù)的一致性可以保持；而當(dāng)單元中的一部分操作失敗時(shí)，整個(gè)事務(wù)會(huì)被全部忽略，所有從起始點(diǎn)以后的操作全部退回到開(kāi)始狀態(tài)。 

實(shí)際上，在默認(rèn)方式下對(duì)數(shù)據(jù)庫(kù)的每一次操作都是隱含的事務(wù)處理。本文以一個(gè)典型的用戶注冊(cè)程序?yàn)槔?，介紹三種利用ASP實(shí)現(xiàn)事務(wù)處理的方法：基于ASP數(shù)據(jù)庫(kù)組件的解決方法、基于數(shù)據(jù)庫(kù)內(nèi)部的事務(wù)處理機(jī)制的解決方法和基于MTS組件的解決方法。 

程序功能 
在SQL Server數(shù)據(jù)庫(kù)中建立兩個(gè)表：USER表和USERDOC表。其中USER表中存放的是注冊(cè)用戶的用戶名和密碼，USERDOC表中存放的是該注冊(cè)用戶的個(gè)人資料，并且以用戶名為索引。下面是表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)) 

當(dāng)用戶請(qǐng)求注冊(cè)時(shí)，ASP腳本先將用戶名和密碼插入到USER表中，然后在USERDOC表中插入用戶個(gè)人信息（年齡、性別、聯(lián)系電話和家庭住址等）。同時(shí)，應(yīng)用程序還必須保證USER表中的每一條記錄在USERDOC表中都有相應(yīng)的記錄。 

方法一 
利用ASP內(nèi)置ADO組件中的Connection對(duì)象可以實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)操作的事務(wù)性處理。Connection對(duì)象的部分方法如下： 
●Connection.BeginTrans方法：?jiǎn)?dòng)一個(gè)事務(wù)； 
●Connection.CommitTrans方法：完成/提交一個(gè)事務(wù)； 
●Connection.RollBackTrans方法：撤消/放棄一個(gè)事務(wù)。 
//啟動(dòng)一個(gè)事務(wù)操作 
<% 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 %> 
//如果插入數(shù)據(jù)操作失敗，則事務(wù)向前回滾 
<% 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") & "') " %> 
//執(zhí)行事務(wù)單元中的第二條插入語(yǔ)句 
<% conn.execute(sqlText) %>  
<% if conn.Errors.Count>0 then %> 
<% conn.Errors.Clear %> 
//如果操作失敗，則事務(wù)向前回滾 
<% conn.RollBackTrans %>  
<% response.Redirct RegisterFail.html %> 
<% end if %> 
//如果整個(gè)事務(wù)操作執(zhí)行正確，則提交事務(wù) 
<% Conn.CommitTrans %>  
//轉(zhuǎn)向注冊(cè)成功處理頁(yè)面 
<% response.Redirct RegisterOk.html %>  


方法二 
可以利用數(shù)據(jù)庫(kù)系統(tǒng)內(nèi)部的事務(wù)處理機(jī)制，通過(guò)在數(shù)據(jù)庫(kù)服務(wù)器中編寫(xiě)包含事務(wù)的存儲(chǔ)過(guò)程，完成對(duì)數(shù)據(jù)操作的事務(wù)處理。同時(shí)，利用ADO組件調(diào)用存儲(chǔ)過(guò)程，還可以根據(jù)存儲(chǔ)過(guò)程的返回代碼判斷事務(wù)處理是否執(zhí)行成功。 

在數(shù)據(jù)庫(kù)系統(tǒng)中，每一條SQL語(yǔ)句都是一個(gè)事務(wù)。因此可以保證每條語(yǔ)句要么完成，要么退回到開(kāi)始之處。但是如果希望一組SQL語(yǔ)句的操作要么全部完成，要么全部無(wú)效，就需要利用數(shù)據(jù)庫(kù)的事務(wù)處理機(jī)制來(lái)實(shí)現(xiàn)。 

在數(shù)據(jù)庫(kù)中生成存儲(chǔ)過(guò)程的主要代碼如下： 
Create proc RegisterUser (@usrName varchar(30), @usrPasswd varchar(30),@age int, @PhoneNum varchar(20), @Address varchar(50) ) as begin 
//顯示定義并開(kāi)始一個(gè)事務(wù) 
begin tran  
insert into USER(userName,userPasswd) values(@usrName,@usrPasswd) 
if @@error<>0 
begin 
//操作失敗，則事務(wù)回滾 
rollback tran  
//返回存儲(chǔ)過(guò)程，并設(shè)置返回碼為事務(wù)操作失敗 
return －1  
end 
insert into USERDOC(userName,age,sex,PhoneNumber,Address)  
values(@Usrname,@age,@PhoneNum,@Address) 
if @@error<>0 
begin 
//操作失敗，則事務(wù)回滾 
rollback tran  
return －1 
end 
//如果操作執(zhí)行正確，則提交事務(wù) 
commit tran  
return 0 
end 
在ASP腳本中調(diào)用數(shù)據(jù)庫(kù)存儲(chǔ)過(guò)程的主要代碼如下： 
<% Set Comm=server.CreateObject 
("ADODB.Command") %> 
<% Set Comm.ActiveConnection=conn %> 
<% Comm.CommandType=adCmdStoredProc %> 
<% Comm.CommandText="RegisterUser" %> 
//創(chuàng)建存儲(chǔ)過(guò)程返回參數(shù)對(duì)象 
<% Set RetCode=Comm.CreateParameter 
("RetCode",adInteger,adParamReturnValue) %>  
//創(chuàng)建存儲(chǔ)過(guò)程輸入?yún)?shù)對(duì)象 
<% 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")) %> 
//根據(jù)數(shù)據(jù)庫(kù)存儲(chǔ)過(guò)程返回代碼判斷注冊(cè)是否成功 
<% if RetValue< 0 then %>  
<% response.Redirect RegisterFail.html %> 
<% else %> 
<% response.Redirect RegisterOk.html %> 
<% end if %> 


方法三 
利用MTS(Microsoft Transaction Server)組件的事務(wù)處理機(jī)制實(shí)現(xiàn)事務(wù)處理時(shí)，需要特別注意的是，這種機(jī)制下的事務(wù)不能跨越多個(gè)ASP頁(yè)，如果一個(gè)事務(wù)處理需要來(lái)自多個(gè)組件的對(duì)象，則須將對(duì)這些對(duì)象的操作組合在一個(gè)ASP頁(yè)中。 

首先需要在頁(yè)首添加指令@TRANSACTION，將一個(gè)ASP頁(yè)面聲明為事務(wù)性。

@TRANSACTION指令必須在一頁(yè)中的第一行，否則將產(chǎn)生錯(cuò)誤。當(dāng)頁(yè)面中ASP腳本處理結(jié)束時(shí)，當(dāng)前事務(wù)即告結(jié)束。 
<%@ TRANSACTION=Required Language= 
VB Script %> 
//事務(wù)執(zhí)行成功觸發(fā)事件 
<% Sub OnTransactionCommit() %>  
<% response.Redirect RegisterOk.html %> 
<% End Sub %> 
//事物執(zhí)行失敗觸發(fā)事件 
<% 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數(shù)據(jù)庫(kù)組件的方法具有一定的優(yōu)勢(shì)：既可以選用ADO數(shù)據(jù)庫(kù)組件完成事務(wù)處理，同時(shí)還可以根據(jù)實(shí)際需要，定制自己的數(shù)據(jù)庫(kù)組件（只要滿足ASP組件編寫(xiě)規(guī)范即可）。如果從數(shù)據(jù)庫(kù)事務(wù)處理的可靠性等角度考慮，則采用數(shù)據(jù)庫(kù)內(nèi)部的事務(wù)處理存儲(chǔ)過(guò)程更好。這樣可以直接利用數(shù)據(jù)庫(kù)事務(wù)機(jī)制完成應(yīng)用程序的邏輯事務(wù)處理，安全可靠，并且減少了Web服務(wù)器與數(shù)據(jù)庫(kù)服務(wù)器之間的數(shù)據(jù)交互。這一點(diǎn)對(duì)分布式數(shù)據(jù)庫(kù)系統(tǒng)尤為重要。采用MTS組件的事務(wù)處理方法的優(yōu)勢(shì)在于：由MTS服務(wù)器直接控制和管理組件（在MTS中注冊(cè)的組件）操作的完成和撤消，具有良好的擴(kuò)展空間和應(yīng)用前景，可以充分發(fā)揮MTS的技術(shù)優(yōu)勢(shì)，增強(qiáng)網(wǎng)絡(luò)應(yīng)用的容錯(cuò)性能，提高IIS Web服務(wù)器的動(dòng)態(tài)性能。 

 

最新評(píng)論