标题:[求助]=====在线等=========为何同时插入相同的两条留言!
只看楼主
hell
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2004-6-3
 问题点数:0 回复次数:14 
[求助]=====在线等=========为何同时插入相同的两条留言!

如题:小弟做的留言本练习: 共有8个字段:noteid,subject,userid,notetime,content,readnum,email,status 为什么每次留言时会往数据库中插入noteid不同,其它都相同的2条留言? 因为用到了两个rs,我想会不会是rs的关闭问题,就按什么顺序关闭rs呢? 搞了半天了搞不定!求大家看看!鞠躬先!!! ================求求大家帮我看看!============== <!--#include file="config.inc"--> <% set conn=server.createobject("adodb.connection") conn.open connstring set rs1=server.createobject("adodb.recordset") set rs2=server.createobject("adodb.recordset") sql1="select max(noteid) as maxid from notebook" '列出数据库中最大的留言编号

userid=trim(request.form("userid")) email=trim(request.form("email")) subject=trim(left(request.form("subject"),17)) content=trim(request.form("content"))

application.lock rs1.open sql1,conn,1,3 if rs1.eof or isnull(rs1("maxid")) then noteid="n00001" else temp=left(rs1("maxid"),6) '取得当前数据库中最大的原文留言编号 temp=right(temp,5) temp=cint(temp) temp=cstr(temp+1) for length=1 to 5-len(temp) '在留言编号前面补0,让其足5位 temp="0"&temp next noteid="n"&temp '完成本次留言序号的计算 end if notetime=now() '取得当前时间作为留言时间 insertstr="insert into notebook values('"&noteid&"','"&subject&"','"&userid&"','"&notetime&"','"&content&"',0,'"&email&"',0)" rs2.open insertstr,conn,1,3 application.unlock '----------两个rs都应关吗?可我关时总报错!关一个就可以-------- rs1.close conn.close set rs1=nothing set conn=nothing %> <font style="font:10pt" color=#9900cc>留言成功!请<a href="VBScript:window.close()">继续!</a></font>

搜索更多相关主题的帖子: 留言 在线 
2004-06-26 12:43
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

中间刷新了没有?

看上去没有问题

你写个语句测试一下


http://www. 版主位置空缺
2004-06-26 13:49
only
Rank: 1
等 级:新手上路
帖 子:16
专家分:0
注 册:2004-6-23
得分:0 

学习

[此贴子已经被作者于2004-06-26 14:10:44编辑过]


2004-06-26 14:10
hell
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2004-6-3
得分:0 

寒星你好啊! 中间刷新了啊!现在的问题是: 每次留言都会向数据库中插入noteid(留言编号)不同,别的字段都相同的两条记录? 这是什么原因啊?我找了很久了找不出来!再帮我看看好吗?

十分感谢!


2004-06-26 14:15
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

中间刷新了啊!你为什么刷新阿?是在显示留言成功以后刷新的吗?

你不要刷新!我以前也碰到过这个问题


http://www. 版主位置空缺
2004-06-26 14:25
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

insertstr="insert into notebook values('"&noteid&"','"&subject&"','"&userid&"','"&notetime&"','"&content&"',0,'"&email&"',0)" 在这后面插入response.write insertstr

看看结果

你的noteid是字符串吗?max(noteid)字符串能取最大值吗?


http://www. 版主位置空缺
2004-06-26 14:33
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

if userid<>"" then

insertstr="insert into notebook values('"&noteid&"','"&subject&"','"&userid&"','"&notetime&"','"&content&"',0,'"&email&"',0)" rs2.open insertstr,conn,1,3

end if


http://www. 版主位置空缺
2004-06-26 14:53
hell
Rank: 1
等 级:新手上路
帖 子:81
专家分:0
注 册:2004-6-3
得分:0 

非常感谢寒心的热心指点! 现在才发现问题好多!我要重新写一次!

谢谢!


2004-06-26 17:49
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

问题好多?大家可以讨论一下阿

等你改对了,再贴上来给大家看看


http://www. 版主位置空缺
2004-06-26 20:53
寒星
Rank: 1
等 级:新手上路
帖 子:455
专家分:0
注 册:2004-6-7
得分:0 

我看基本上没大问题

主要是把流程搞清楚


http://www. 版主位置空缺
2004-06-26 20:54



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-2868-1-1.html




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

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