<% Connstr="DBQ="+server.mappath("main.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;" set conn=server.createobject("adodb.connection") conn.open Connstr

sqlstr="select * from main where usr_name='"&request("usr_name")&"'" set rs=server.CreateObject("adodb.recordset") rs.open sqlstr,conn,1,3 rs.addnew if not rs.eof then response.write"帐号已存在" else response.write"注册成功" end if rs("usr_name")=request("usr_name") rs("usr_pwd")=request("usr_pwd") rs.update rs.close set rs=nothing conn.close set conn=nothing %>

也不知道你哪里出了问题 你这样试试 如果不行 就把问题说清楚

我的目的是要使：


                          一、如果输入的是数据库中已有的数据（帐号），就会显示：帐号已存在、数据不会传入数据库；
                          二、如果输入的是数据库中已有的数据（帐号)  ，就会显示：注册成功、数据传入数据库。

我这些代码无论你输入的是什么数据他总会显示“帐号已存在”却又把数据传入数据库？？？？？？？？？
               

<% Connstr="DBQ="+server.mappath("main.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;" set conn=server.createobject("adodb.connection") conn.open Connstr

sqlstr="select * from main where usr_name='"&request("usr_name")&"'" set rs=server.CreateObject("adodb.recordset") rs.open sqlstr,conn,1,3 rs.addnew if not (rs.eof and rs.bof) then response.write"帐号已存在" else response.write"注册成功" rs("usr_name")=request("usr_name") rs("usr_pwd")=request("usr_pwd") rs.update rs.close set rs=nothing conn.close set conn=nothing end if %>

end　if放错了位置 这个是逻辑错误 不好分别

我上面的帖子中的代码应该没有问题了

哦，我试一下，先谢谢版主了！