<%
on error resume next
f1 = request("field1")
f2 = request("field2")
set con=server.createobject("ADODB.Connection")
con.Open "MyDSN"
con.beginTrans
con.execute "Insert Into Table1(f1,f2) values(" & f1 & "," & f2 & ")"
con.execute "Insert Into Table2(f1,f2) values(" & f1 & "," & f2 & ")"
if Err.Number <> 0 then
con.RollBackTrans
con.close
set con = nothing
response.write Err.Description
else
con.CommitTrans
con.close
set con =nothing
response.write "Data inserted successfully."
end if
%>
on error resume next
f1 = request("field1")
f2 = request("field2")
set con=server.createobject("ADODB.Connection")
con.Open "MyDSN"
con.beginTrans
con.execute "Insert Into Table1(f1,f2) values(" & f1 & "," & f2 & ")"
con.execute "Insert Into Table2(f1,f2) values(" & f1 & "," & f2 & ")"
if Err.Number <> 0 then
con.RollBackTrans
con.close
set con = nothing
response.write Err.Description
else
con.CommitTrans
con.close
set con =nothing
response.write "Data inserted successfully."
end if
%>
本文介绍了一个使用 ASP Classic 进行数据库操作的例子,展示了如何通过接收表单提交的数据并将其插入到两个不同的数据库表中。具体实现包括连接数据库、开启事务、执行 SQL 插入语句以及错误处理。
1336

被折叠的 条评论
为什么被折叠?



