为什么sql语句执行一次确重复插入了两条记录,ACCESS数据库？？？

[hj3793]

<!-- #include file="cnOpen.asp" -->
<%
Dim rs,iNum
iNum=0
Set rs=Server.CreateObject("Adodb.RecordSet")
If Trim(Request("Name"))<>"" Then
rName=Trim(Request("Name"))
Email=Trim(Request("Email"))
Contact=Trim(Request("Contact"))
HomePage=Trim(Request("HomePage"))
rface=Trim(Request("face"))
Title=Trim(Request("Title"))
Content=Trim(Request("Content"))
rName=Replace(rName,"'","''")
Email=Replace(Email,"'","''")
Contact=Replace(Contact,"'","''")
HomePage=Replace(HomePage,"'","''")
Title=Replace(Title,"'","''")
Content=Replace(Content,"'","''")
Content=Replace(Content,vbcrlf,"<br>    ")
'Response.Write(Title&"<br>")
'Response.Write(Content)
'Response.End()

Sql="Insert into board(b_Name,b_face,b_Email,b_Contact,b_HomePage,b_Title,b_Content,b_Time) values"_
&"('"&rName&"','"&rface&"','"&Email&"','"&Contact&"','"&HomePage&"','"&Title&"','"&Content&"','"&Now()&"')"

'Response.Write(Sql)
if iNum=0 Then
cn.Execute(Sql)
End if
iNum=iNum+1

rs.Open "Select id from board where b_Name='"&Trim(rName)&"'",cn,1,3
'Response.Write(rs.RecordCount)
'response.End()
if rs.RecordCount=2 then
Id1=trim(rs("id"))
rs.MoveNext
Id2=Trim(rs("id"))
if Id2=Id1+1 then
cn.execute "delete from board where id="&id2
end if
end if
rs.Close
'rs.Open "Select * from board order by id desc",cn,2,3
'rs.addnew
' rs("b_Name")=rName
' rs("b_Face")=rFace
' rs("b_Email")=rEmail
' rs("b_Contact")=rContact
' rs("b_HomePage")=rHomePage
' rs("b_Title")=rTitle
' rs("b_Content")=rContent
' rs("b_Time")=Now()
'rs.update
'rs.close
Response.Write "<script language=javascript>alert('您的留言已经提交');</script>"
Response.Cookies("Post")="Yes"
ElseIf Request.Cookies("Post")<>"" then
Response.Write "<script language=javascript>alert('您已经留过言了.');</script>"
End If
%>

[leo963258]

怎么可能？

[lovebanyi]

没有碰到过肯定是重复提交数据了

[leo963258]

你把注释的部分都去掉

[hj3793]

没有重复提交数据，为了防止提交，我用了cookies和一个变量双重确定没有重复才执行sql语句..

可是明明执行一次，确实增加了两条，数据库里的是，页面上显示的也是，另外，我查找新增刚才相同的记录，可以只返回1。

[hj3793]

<!-- #include file="cnOpen.asp" -->
<%
Dim rs,iNum
iNum=0
Set rs=Server.CreateObject("Adodb.RecordSet")
If Trim(Request("Name"))<>"" Then
rName=Trim(Request("Name"))
Email=Trim(Request("Email"))
Contact=Trim(Request("Contact"))
HomePage=Trim(Request("HomePage"))
rface=Trim(Request("face"))
Title=Trim(Request("Title"))
Content=Trim(Request("Content"))
rName=Replace(rName,"'","''")
Email=Replace(Email,"'","''")
Contact=Replace(Contact,"'","''")
HomePage=Replace(HomePage,"'","''")
Title=Replace(Title,"'","''")
Content=Replace(Content,"'","''")
Content=Replace(Content,vbcrlf,"<br>    ")


Sql="Insert into board(b_Name,b_face,b_Email,b_Contact,b_HomePage,b_Title,b_Content,b_Time) values"_
&"('"&rName&"','"&rface&"','"&Email&"','"&Contact&"','"&HomePage&"','"&Title&"','"&Content&"','"&Now()&"')"

if iNum=0 Then
cn.Execute(Sql)
End if
iNum=iNum+1

rs.Open "Select id from board where b_Name='"&Trim(rName)&"'",cn,1,3

if rs.RecordCount=2 then
Id1=trim(rs("id"))
rs.MoveNext
Id2=Trim(rs("id"))
if Id2=Id1+1 then
cn.execute "delete from board where id="&id2
end if
end if
rs.Close

Response.Write "<script language=javascript>alert('您的留言已经提交');</script>"
Response.Cookies("Post")="Yes"
ElseIf Request.Cookies("Post")<>"" then
Response.Write "<script language=javascript>alert('您已经留过言了.');</script>"
End If
%>

注释的那些是我用不同的方法插入数据啊，效果等价

[hj3793]

自己再顶～～～高手睡觉去了？？？

[hellofox2000]

很可能是这样的问题，在提交页面
<script>
function check(){
if (someCon){
alert("不能为空");
return false;
}
form1.submit(); ------------->一次提交
}
</script>

<form action="" onsubmit="return check();">
<input type="text" value="">
<input type="submit"> ------------->两次提交
</form>

[patann]

我今天也遇到这种情况，但我找到原因了，情况跟 hellofox2000(圣代无隐者，英雄尽归来) 说的一样，多用了一次“form.submit()”