防止重复提交问题（调试成功结帖）

[ewai]

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("new/data/ewai.asp")
buyao=request.form("buyao")
comment=request.form("comment")
strsql="select * from user1 where comment=('comment')"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,3
if not (rs.eof and rs.eof) then
response.write "你所用的帐号已经存在"
end if
rs.close
set rs=nothing
sql="insert into user1(comment,buyao)values('"+comment+"','"+buyao+"') "
conn.execute sql
conn.close
set conn=nothing
%>
我的意图是从表单里得到buyao,comment的值，如果COMMENT在表里已经存在则显示你所用的帐号已经存在，否则添加入表中，这段代码哪里要更改？

[year81s]

if not (rs.eof and rs.bof) then
response.write "账号已存在"
else
rs.close
set rs.nothing
sql="insert.........................."
conn.execute sql
conn.close
end if

[lions911]

if not (rs.eof and rs.bof) then
response.write "账号已存在"
else
rs.close
set rs.nothing
sql="insert.........................."
conn.execute sql
conn.close
end if
==================
批准、执行

[chinesun]

<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("new/data/ewai.asp")
buyao=request.form("buyao")
comment=request.form("comment")
strsql="select * from user1 where comment='"&comment&"'"
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,3,3
if rs.RecordCount>0 then
response.write "你所用的帐号已经存在"
response.end
else
rs("comment")=comment
rs("buyao")=buyao
rs.update
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%>

[danger1]

变量都用错啦
strsql="select * from user1 where comment=('"&comment&"')"
sql="insert into user1(comment,buyao)values('"&comment&"','"&buyao&"') "