| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 985 人关注过本帖
标题:asp连接问题
只看楼主 加入收藏
madpbpl
Rank: 4
等 级:贵宾
威 望:11
帖 子:2876
专家分:244
注 册:2007-4-5
收藏
得分:0 

看了楼主的数据库,把程序补上
<html>
<head>
<title>
使用事务处理方法
</title>
</head>
<%
t1=request.form("t1")
t2=request.form("t2")
t3=request.form("t3")
t4=request.form("t4")
r1=request.form("r1")
r1=cstr(r1)
if r1="是" then
r1="1"
else
r1="0"
end if
set conn=server.createobject("adodb.connection")
conn.open "Driver=Driver do Microsoft Access (*.mdb);Uid=admin;pwd=;DBQ="&server.MapPath("注册信息.mdb")
conn.begintrans
str="insert into client(t1,t2,r1,t3,t4)"
str=str&"values('"+t1+"','"+t2+"',"+r1+",'"+t3+"','"+t4+"')"
conn.execute str
if (t1="" or t2="" or t3="" or t4="") then
conn.rollbacktrans '回滚
conn.close
set conn=nothing
response.write "交易失败,回滚至修改前的状态!"
response.end
else
conn.committrans '提交事务
conn.close
set conn=nothing
response.write "交易成功!"
response.end
end if
conn.close
set conn=nothing
%>
</body>
</html>

2007-09-16 21:38
zacom
Rank: 2
等 级:论坛游民
威 望:2
帖 子:381
专家分:15
注 册:2007-9-15
收藏
得分:0 

没有最好只有更好
2007-09-16 21:40
快速回复:asp连接问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.015839 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved