committrans.asp

《动态网页设计基础教程》,胡杰,科学出版社

<% 
Dim db   '建立Connection对象db,并与数据库建立连接
Set db=Server.CreateObject("ADODB.Connection")
db.Open "pers"
On Error Resume Next   '如果发生错误，跳过执行下一句
Dim strSql
db.BeginTrans       '开始事务处理
strSql="delete from grade Where name='张涛'" '用Execute方法删除记录
db.Execute(strSql)    
strSql="Insert Into grade(name,english,chinese)Values('张涛',80,88)"                           '利用Execute方法添加记录
db.Execute(strSql)
If db.Error.Count＝0 Then    '如果没有错误，就执行
	db. CommitTrans     '提交事务处理
Else
	db. RollbackTrans    '如果有错误，则取消事务处理结果
End If
%>