如题:小弟做的留言本练习: 共有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('"¬eid&"','"&subject&"','"&userid&"','"¬etime&"','"&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>