asp内置对象 ObjectContext 事务管理 详解

<%
Set CurrentQOH = Server.CreateObject("Mycomp.Inventory")
Set CurrentSales = Server.CreateObject("Mycomp.Sales")

CheckQuantity = Request("QuantityToBuy")
CheckProduct = Request("ProductCode")
QuantityStatus = CurrentQOH.CheckQOH(CheckQuantity,CheckProduct)

If QuantityStatus = None
ObjectContext.SetAbort
Response.Write "Sorry, there is not sufficient quantity on hand to process your sale."
Else 
ObjectContext.SetComplete
Account = Request("AccountIn")
Saleupdate = CurrentSales.PostIt(AccountIn)
End If
%> 

您可能感兴趣的文章:

Spring与Hibernate整合事务管理的理解Spring3.1.1+MyBatis3.1.1的增、删、查、改以及分页和事务管理详解Java的Spring框架中的事务管理方式SpringMVC+MyBatis声明式事务管理Spring中的事务管理实例详解Spring事务管理只对出现运行期异常进行回滚mysql存储过程事务管理简析spring声明式事务管理解析