例6－14.asp

来自「web课件并附有习题练习还有实例详细的讲解了WEB的各种开发过程是学习 的好资料」· ASP 代码 · 共 12 行

<%
Set Conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "MyData" 
Conn.BeginTrans		'事务开始
'在CreditCard表中记录交易的信用卡号
Conn.Execute "INSERT INTO CreditCard (CreNo) VALUES ('5555-446780190') "  
'在Shipping表中使被购买商品的次数增1
     Conn.Execute "UPDATE Shipping SET SalesCount =SalesCount+1 WHERE ID='100020' "
Conn.CommitTrans		'事务提交（结束）
Conn.Close
%>