例6－15.asp

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

<%
Set Conn=Server.CreateObject("ADODB.Connection") 
Conn.Open "MyData" 
Conn.BeginTrans
Conn.Execute "INSERT INTO CreditCard (CreNo) VALUES ('5555-446780190') "  
Conn.Execute "UPDATE Shipping SET SalesCount=SalesCount+1 WHERE ID='100020' "
IF WeekDayName(WeekDay(Date))= "Sunday" THEN
'取消所执行的事务步骤
     Conn.RollBackTrans
ELSE
     Conn.CommitTrans
END IF
Conn.Close
%>