[點晴永久免費OA]利用ASP實現(xiàn)SQL Server事務(wù)處理出錯時自動回滾的方法
當(dāng)前位置：點晴教程→點晴OA辦公管理信息系統(tǒng)
→『 經(jīng)驗分享&問題答疑 』
在開發(fā)Web應(yīng)用時，無一例外地需要訪問數(shù)據(jù)庫，以完成對數(shù)據(jù)的查詢、插入、更新、刪除等操作。受應(yīng)用邏輯的影響，有時需要將多條數(shù)據(jù)庫操作指令組成一個工作單元（事務(wù)）。在數(shù)據(jù)庫中，所謂事務(wù)是指一組邏輯操作單元，它使數(shù)據(jù)從一種狀態(tài)變換到另一種狀態(tài)。為確保數(shù)據(jù)庫中數(shù)據(jù)的一致性，應(yīng)當(dāng)用離散的成組的邏輯單元操作數(shù)據(jù)：當(dāng)它全部完成時，數(shù)據(jù)的一致性可以保持；而當(dāng)單元中的一部分操作失敗時，整個事務(wù)會被全部忽略，所有從起始點以后的操作全部退回到開始狀態(tài)。
實際上，在默認方式下對數(shù)據(jù)庫的每一次操作都是隱含的事務(wù)處理。本文以一個典型的用戶注冊程序為例，介紹三種利用ASP實現(xiàn)事務(wù)處理的方法：基于ASP數(shù)據(jù)庫組件的解決方法、基于數(shù)據(jù)庫內(nèi)部的事務(wù)處理機制的解決方法和基于MTS組件的解決方法。 程序功能 在SQL Server數(shù)據(jù)庫中建立兩個表：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)) 當(dāng)用戶請求注冊時，ASP腳本先將用戶名和密碼插入到USER表中，然后在USERDOC表中插入用戶個人信息（年齡、性別、聯(lián)系電話和家庭住址等）。同時，應(yīng)用程序還必須保證USER表中的每一條記錄在USERDOC表中都有相應(yīng)的記錄。 方法一 利用ASP內(nèi)置ADO組件中的Connection對象可以實現(xiàn)對數(shù)據(jù)庫操作的事務(wù)性處理。Connection對象的部分方法如下： ●Connection.BeginTrans方法：啟動一個事務(wù)； ●Connection.CommitTrans方法：完成/提交一個事務(wù)； ●Connection.RollBackTrans方法：撤消/放棄一個事務(wù)。 //啟動一個事務(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ù)單元中的第二條插入語句 <% conn.execute(sqlText) %> <% if conn.Errors.Count>0 then %> <% conn.Errors.Clear %> //如果操作失敗，則事務(wù)向前回滾 <% conn.RollBackTrans %> <% response.Redirct RegisterFail.html %> <% end if %> //如果整個事務(wù)操作執(zhí)行正確，則提交事務(wù) <% Conn.CommitTrans %> //轉(zhuǎn)向注冊成功處理頁面 <% response.Redirct RegisterOk.html %> 方法二 可以利用數(shù)據(jù)庫系統(tǒng)內(nèi)部的事務(wù)處理機制，通過在數(shù)據(jù)庫服務(wù)器中編寫包含事務(wù)的存儲過程，完成對數(shù)據(jù)操作的事務(wù)處理。同時，利用ADO組件調(diào)用存儲過程，還可以根據(jù)存儲過程的返回代碼判斷事務(wù)處理是否執(zhí)行成功。 在數(shù)據(jù)庫系統(tǒng)中，每一條SQL語句都是一個事務(wù)。因此可以保證每條語句要么完成，要么退回到開始之處。但是如果希望一組SQL語句的操作要么全部完成，要么全部無效，就需要利用數(shù)據(jù)庫的事務(wù)處理機制來實現(xiàn)。 在數(shù)據(jù)庫中生成存儲過程的主要代碼如下： create proc RegisterUser (@usrName varchar(30), @usrPasswd varchar(30),@age int, @PhoneNum varchar(20), @Address varchar(50) ) as begin //顯示定義并開始一個事務(wù) begin tran insert into USER(userName,userPasswd) values(@usrName,@usrPasswd) if @@error<>0 begin //操作失敗，則事務(wù)回滾 rollback tran //返回存儲過程，并設(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ù)庫存儲過程的主要代碼如下： <% Set Comm=server.createObject ("ADODB.Command") %> <% Set Comm.ActiveConnection=conn %> <% Comm.CommandType=adCmdStoredProc %> <% Comm.CommandText="RegisterUser" %> //創(chuàng)建存儲過程返回參數(shù)對象 <% Set RetCode=Comm.createParameter ("RetCode",adInteger,adParamReturnValue) %> //創(chuàng)建存儲過程輸入?yún)?shù)對象 <% 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ù)庫存儲過程返回代碼判斷注冊是否成功 <% if RetValue< 0 then %> <% response.Redirect RegisterFail.html %> <% else %> <% response.Redirect RegisterOk.html %> <% end if %> 方法三 利用MTS(Microsoft Transaction Server)組件的事務(wù)處理機制實現(xiàn)事務(wù)處理時，需要特別注意的是，這種機制下的事務(wù)不能跨越多個ASP頁，如果一個事務(wù)處理需要來自多個組件的對象，則須將對這些對象的操作組合在一個ASP頁中。 首先需要在頁首添加指令@TRANSACTION，將一個ASP頁面聲明為事務(wù)性。 @TRANSACTION指令必須在一頁中的第一行，否則將產(chǎn)生錯誤。當(dāng)頁面中ASP腳本處理結(jié)束時，當(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ù)庫組件的方法具有一定的優(yōu)勢：既可以選用ADO數(shù)據(jù)庫組件完成事務(wù)處理，同時還可以根據(jù)實際需要，定制自己的數(shù)據(jù)庫組件（只要滿足ASP組件編寫規(guī)范即可）。如果從數(shù)據(jù)庫事務(wù)處理的可靠性等角度考慮，則采用數(shù)據(jù)庫內(nèi)部的事務(wù)處理存儲過程更好。這樣可以直接利用數(shù)據(jù)庫事務(wù)機制完成應(yīng)用程序的邏輯事務(wù)處理，安全可靠，并且減少了Web服務(wù)器與數(shù)據(jù)庫服務(wù)器之間的數(shù)據(jù)交互。這一點對分布式數(shù)據(jù)庫系統(tǒng)尤為重要。采用MTS組件的事務(wù)處理方法的優(yōu)勢在于：由MTS服務(wù)器直接控制和管理組件（在MTS中注冊的組件）操作的完成和撤消，具有良好的擴展空間和應(yīng)用前景，可以充分發(fā)揮MTS的技術(shù)優(yōu)勢，增強網(wǎng)絡(luò)應(yīng)用的容錯性能，提高IIS Web服務(wù)器的動態(tài)性能。 該文章在 2022/6/27 10:50:34 編輯過 |
關(guān)鍵字查詢
相關(guān)文章
正在查詢... 
|
400 186 1886
