ASP中事務處理資料收集
在IIS 中,ASP結構提供了六個內建對象, 內建對象的特殊性在於,它們在 ASP
頁內生成且在腳本中使用它們前無須創建。其中,內建對象ObjectContext專門用於支持開發基於Microsoft Transaction
Server(MTS)的事務型Web應用軟件。
1.ASP事務處理基本原理
ASP 事務處理是以Microsoft Transaction Server(簡稱MTS)爲基礎的。MTS 是一個運行於Windows NT環境下的事務處理系統,用於開發、配置和管理高性能、可分級的、有魯棒性的企業 Internet 和 Intranet 服務器應用程序。MTS爲開發分佈式的,基於組件的應用程序提供了一個應用程序設計模型,它也爲配置和管理這些應用程序提供了一個運行環境。
創建事務性腳本的功能內置在 Internet Information Server中。如果您安裝了 Microsoft Transaction Server,就可以將組件打包,以使組件在事務內部運行。
事務是整體成功或失敗的操作,事務處理常用於對數據庫進行可靠地更新。在對數據庫進行許多相關更改或同時更新多個數據庫時,要保證所有更改都被正確執行。如果這些更改中的任何一個失敗,都需要恢復數據庫表的原始狀態。
如果沒有 MTS,您就需要編寫腳本和組件,手工跟蹤請求的更改情況,以便在某些更改失敗時恢復數據。使用 MTS,您只需簡單的將您的腳本和組件聲明爲“需要事務”並讓 MTS 處理事務的一致性。事務處理只適用於數據庫訪問;MTS 不能對文件系統或其他的非事務性資源的更改進行恢復操作。應用程序所訪問的數據庫必須爲 MTS 所支持。目前,MTS 支持 Microsoft SQL Server 及任何支持 XA 協議(由 X/Open 協會制定)的服務器。MTS 將繼續擴展對其他數據庫的支持。
事務不能跨越多個 ASP 頁。如果一個事務需要來自多個組件的對象,則須將使用這些對象的操作組合在一個 ASP 頁中。例如,假定有一個組件用於更新工資單數據庫,還有一個組件用於更新人力資源數據庫中的員工記錄。爲了記錄一個員工的新的工資信息,您需要編寫這樣一個腳本,該腳本在一個事務環境中調用這兩個組件,一個用於更新工資單數據庫,另一個用於更新人力資源數據庫中的員工等級。
2.在ASP腳本中編寫事務型應用
1. 聲明事務性腳本
在將一個ASP頁聲明爲事務性時,此頁中的任何腳本命令和對象都運行在同一個事務環境中,MTS處理生成事務的細節並決定事務成功(提交)或失敗(終止)。要將某個頁聲明爲事務性,可在頁首添加 @TRANSACTION 指令:
value 參數可以是下列之一:
Requires_New :啓動一個新的事務。
Required : 啓動一個新的事務。
Supported: 不啓動事務。
Not_Supported: 不啓動事務。
@TRANSACTION 指令必須在一頁中的第一行,否則將產生錯誤。必須將該指令添加到需要在事務下運行的每一頁中。當腳本處理結束時,當前事務即告結束。
如果事務被終止,MTS將恢復對支持事務的資源的任何更改。目前,僅數據庫服務器完全支持事務,因爲數據庫中的數據對於企業應用是最爲關鍵的。MTS不對硬盤上的文件、會話和應用程序的變量、集合等的改變進行恢復,然而您可以如下文所述,通過編寫事務事件來編寫恢復變量和集合的腳本。在某些時候,您的腳本也可以顯式的提交或終止一個事務,如向文件寫數據失敗時。
2. 提交或終止腳本
利用 ObjectContext 對象可以提交或放棄一項由MTS管理的事務,爲此,ObjectContext 對象提供了兩個方法:
(1)SetComplete 方法
聲明腳本不瞭解事務未完成的原因。如果事務中的所有組件都調用 SetComplete,事務將完成。
(2)SetAbort 方法
聲明被腳本初始化的事務未完成,無法更新源。
示例:
<%@ Transaction = Required %>
<%
Set CurrentQOB = Server.CreateObject("Mylib. Inventory") ' 創建Inventory對象
Set CurrentBorrow = Server.CreateObject ("Mylib.Borrow") ' 創建Borrow對象
CheckQuantity = Request.Form("QuantityTo Borrow")
CheckBook = Request.Form("BookCode")
QuantityStatus = CurrentQOB.CheckQOB (CheckQuantity,CheckBook)'檢查存書量
If QuantityStatus = None '如果存書量不足
ObjectContext.SetAbort '終止事務
Response.Write "對不起,存書量不足!"
Else'如果存書量充足
ObjectContext.SetComplete '繼續執行事務
Account = Request.Form("AccountIn")
Saleupdate = CurrentBorrow.PostIt(Account)
End If
%>
這裏示範使用 SetAbort 和SetComplete 的方法。假設有一個網上有償借閱圖書館的主頁,其中,BorrowBookData.htm 文件獲取處理借閱圖書請求所需的數據。第二個文件BorrowVerify.asp 中的腳本使用兩個對象Inventory 和 Borrow 來處理借閱(注意,在本文所舉的例子中,使用了一些作者自己開發的Web服務器端ActiveX組件對象,如對象Inventory 和 Borrow等,在實際應用中,這些組件對象需由讀者自行開發)。如果 Inventory 返回了錯誤代碼表示存書不足,就會調用 SetAbort。如果 Inventory 對象沒有返回錯誤代碼,將會調用 SetComplete 處理借閱請求。
BorrowBookData.htm 源文件:
<%@ TRANSACTION = Required %>
<%Response.Buffer = True '緩存輸出 %>
<HTML>
<BODY>
<H1>網上有償借閱圖書館</H1>
<% ' 創建作者自己開發的ActiveX組件對象
Set LibAction = Server.CreateObject ("MyExample.LibComponent")
' 根據借閱者輸入的帳戶、密碼進行業務處理
LibAction.Borrow(Request.Form("Account Num"),Request.Form("Password"))
%>
</BODY>
</HTML>
<% ' 如果借閱者帳戶有效顯示下頁
Sub OnTransactionCommit()
Response.Write "<HTML>"
Response.Write "<BODY>"
Response.Write "帳戶有效!"
Response.Write "</BODY>"
Response.Write "</HTML>"
Response.Flush()
End sub %>
<% ' 如果借閱者帳戶無效顯示下頁
Sub OnTransactionAbort()
Response.Clear()
Response.Write "<HTML>"
Response.Write "<BODY>"
Response.Write "帳戶無效!"
Response.Write "</BODY>"
Response.Write "</HTML>"
Response.Flush()
End sub %>
3. 編寫事務事件
腳本本身不能決定事務是成功還是失敗。但是,可以編寫提交或終止事務時被調用的事件。爲此,ObjectContext 對象提供了兩個事件:
(1)OnTransactionCommit 事件
它在一個已處理的腳本事務提交後發生。該事件發生時,如果腳本中有 OnTransactionCommit 子例程,IIS 將處理該子例程。
(2)OnTransactionAbort 事件
如果事務異常終止,就會發生該事件。當 OnTransactionAbort 事件發生時,如果腳本中有 OnTransactionAbort 子程序,則 IIS 將執行它。
例如,假設有一個根據借閱者帳戶、密碼進行業務處理的腳本,並且您需要針對事務的不同狀態將不同的頁返回給用戶,那麼就可以使用 OnTransactionCommit 和 OnTransactionAbort 事件來編寫對用戶的不同響應。
_______________________
--------------------------------------------------------------------------------
運氣 於 8/24/2001 9:46:19 AM 加貼在 Joy 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服務器的動態性能。
1.ASP事務處理基本原理
ASP 事務處理是以Microsoft Transaction Server(簡稱MTS)爲基礎的。MTS 是一個運行於Windows NT環境下的事務處理系統,用於開發、配置和管理高性能、可分級的、有魯棒性的企業 Internet 和 Intranet 服務器應用程序。MTS爲開發分佈式的,基於組件的應用程序提供了一個應用程序設計模型,它也爲配置和管理這些應用程序提供了一個運行環境。
創建事務性腳本的功能內置在 Internet Information Server中。如果您安裝了 Microsoft Transaction Server,就可以將組件打包,以使組件在事務內部運行。
事務是整體成功或失敗的操作,事務處理常用於對數據庫進行可靠地更新。在對數據庫進行許多相關更改或同時更新多個數據庫時,要保證所有更改都被正確執行。如果這些更改中的任何一個失敗,都需要恢復數據庫表的原始狀態。
如果沒有 MTS,您就需要編寫腳本和組件,手工跟蹤請求的更改情況,以便在某些更改失敗時恢復數據。使用 MTS,您只需簡單的將您的腳本和組件聲明爲“需要事務”並讓 MTS 處理事務的一致性。事務處理只適用於數據庫訪問;MTS 不能對文件系統或其他的非事務性資源的更改進行恢復操作。應用程序所訪問的數據庫必須爲 MTS 所支持。目前,MTS 支持 Microsoft SQL Server 及任何支持 XA 協議(由 X/Open 協會制定)的服務器。MTS 將繼續擴展對其他數據庫的支持。
事務不能跨越多個 ASP 頁。如果一個事務需要來自多個組件的對象,則須將使用這些對象的操作組合在一個 ASP 頁中。例如,假定有一個組件用於更新工資單數據庫,還有一個組件用於更新人力資源數據庫中的員工記錄。爲了記錄一個員工的新的工資信息,您需要編寫這樣一個腳本,該腳本在一個事務環境中調用這兩個組件,一個用於更新工資單數據庫,另一個用於更新人力資源數據庫中的員工等級。
2.在ASP腳本中編寫事務型應用
1. 聲明事務性腳本
在將一個ASP頁聲明爲事務性時,此頁中的任何腳本命令和對象都運行在同一個事務環境中,MTS處理生成事務的細節並決定事務成功(提交)或失敗(終止)。要將某個頁聲明爲事務性,可在頁首添加 @TRANSACTION 指令:
value 參數可以是下列之一:
Requires_New :啓動一個新的事務。
Required : 啓動一個新的事務。
Supported: 不啓動事務。
Not_Supported: 不啓動事務。
@TRANSACTION 指令必須在一頁中的第一行,否則將產生錯誤。必須將該指令添加到需要在事務下運行的每一頁中。當腳本處理結束時,當前事務即告結束。
如果事務被終止,MTS將恢復對支持事務的資源的任何更改。目前,僅數據庫服務器完全支持事務,因爲數據庫中的數據對於企業應用是最爲關鍵的。MTS不對硬盤上的文件、會話和應用程序的變量、集合等的改變進行恢復,然而您可以如下文所述,通過編寫事務事件來編寫恢復變量和集合的腳本。在某些時候,您的腳本也可以顯式的提交或終止一個事務,如向文件寫數據失敗時。
2. 提交或終止腳本
利用 ObjectContext 對象可以提交或放棄一項由MTS管理的事務,爲此,ObjectContext 對象提供了兩個方法:
(1)SetComplete 方法
聲明腳本不瞭解事務未完成的原因。如果事務中的所有組件都調用 SetComplete,事務將完成。
(2)SetAbort 方法
聲明被腳本初始化的事務未完成,無法更新源。
示例:
<%@ Transaction = Required %>
<%
Set CurrentQOB = Server.CreateObject("Mylib. Inventory") ' 創建Inventory對象
Set CurrentBorrow = Server.CreateObject ("Mylib.Borrow") ' 創建Borrow對象
CheckQuantity = Request.Form("QuantityTo Borrow")
CheckBook = Request.Form("BookCode")
QuantityStatus = CurrentQOB.CheckQOB (CheckQuantity,CheckBook)'檢查存書量
If QuantityStatus = None '如果存書量不足
ObjectContext.SetAbort '終止事務
Response.Write "對不起,存書量不足!"
Else'如果存書量充足
ObjectContext.SetComplete '繼續執行事務
Account = Request.Form("AccountIn")
Saleupdate = CurrentBorrow.PostIt(Account)
End If
%>
這裏示範使用 SetAbort 和SetComplete 的方法。假設有一個網上有償借閱圖書館的主頁,其中,BorrowBookData.htm 文件獲取處理借閱圖書請求所需的數據。第二個文件BorrowVerify.asp 中的腳本使用兩個對象Inventory 和 Borrow 來處理借閱(注意,在本文所舉的例子中,使用了一些作者自己開發的Web服務器端ActiveX組件對象,如對象Inventory 和 Borrow等,在實際應用中,這些組件對象需由讀者自行開發)。如果 Inventory 返回了錯誤代碼表示存書不足,就會調用 SetAbort。如果 Inventory 對象沒有返回錯誤代碼,將會調用 SetComplete 處理借閱請求。
BorrowBookData.htm 源文件:
<%@ TRANSACTION = Required %>
<%Response.Buffer = True '緩存輸出 %>
<HTML>
<BODY>
<H1>網上有償借閱圖書館</H1>
<% ' 創建作者自己開發的ActiveX組件對象
Set LibAction = Server.CreateObject ("MyExample.LibComponent")
' 根據借閱者輸入的帳戶、密碼進行業務處理
LibAction.Borrow(Request.Form("Account Num"),Request.Form("Password"))
%>
</BODY>
</HTML>
<% ' 如果借閱者帳戶有效顯示下頁
Sub OnTransactionCommit()
Response.Write "<HTML>"
Response.Write "<BODY>"
Response.Write "帳戶有效!"
Response.Write "</BODY>"
Response.Write "</HTML>"
Response.Flush()
End sub %>
<% ' 如果借閱者帳戶無效顯示下頁
Sub OnTransactionAbort()
Response.Clear()
Response.Write "<HTML>"
Response.Write "<BODY>"
Response.Write "帳戶無效!"
Response.Write "</BODY>"
Response.Write "</HTML>"
Response.Flush()
End sub %>
3. 編寫事務事件
腳本本身不能決定事務是成功還是失敗。但是,可以編寫提交或終止事務時被調用的事件。爲此,ObjectContext 對象提供了兩個事件:
(1)OnTransactionCommit 事件
它在一個已處理的腳本事務提交後發生。該事件發生時,如果腳本中有 OnTransactionCommit 子例程,IIS 將處理該子例程。
(2)OnTransactionAbort 事件
如果事務異常終止,就會發生該事件。當 OnTransactionAbort 事件發生時,如果腳本中有 OnTransactionAbort 子程序,則 IIS 將執行它。
例如,假設有一個根據借閱者帳戶、密碼進行業務處理的腳本,並且您需要針對事務的不同狀態將不同的頁返回給用戶,那麼就可以使用 OnTransactionCommit 和 OnTransactionAbort 事件來編寫對用戶的不同響應。
_______________________
--------------------------------------------------------------------------------
運氣 於 8/24/2001 9:46:19 AM 加貼在 Joy 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服務器的動態性能。
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.