<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% option explicit dim username,userpasswd,user,usersex,usernote,conn,db,rs,sql db="mdb/aaaa.mdb" username=request.form("textname") userpasswd=request.form("textpasswd") user=request.form("textuser") usersex=request.form("sex") usernote=request.form("textnote") Set conn = Server.CreateObject("ADODB.Connection") conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) sql="select * from zhuce where name='"&username&"'" Set rs = Server.CreateObject("ADODB.RecordSet") rs.open sql,conn,1,1 if not rs.eof then %> <style type="text/css"> <!-- .style1 { font-family: "宋体"; font-size: 10pt; } --> </style>

对不起,用户名已经有人用了,请换其他的用户名试一下! <%else sql="insert into zhuce (name,passwd,user,sex,note) values ('"&username&"','"&userpasswd&"','"&user&"','"&usersex&"','"&usernote&"')" conn.Execute(sql) %> <span class="style1">用户<%=username%>添加成功!</span> <% end if rs.close conn.close set conn=nothing %> 为什么提示说我insert into语法错误呢?我检查了半天也没看出来是哪儿错了,能告诉我下么? 谢谢!!!

[此贴子已经被作者于2005-9-23 16:10:30编辑过]

忘了说了以上字段在表zhuce中都有.其中:
note是备注型的,其他都是字符型的

不是哦....if not rs.eof then这行都可以执行的,如果表中有重名的都可以显示"对不起,用户名已经有人用了,请换其他的用户名试一下!"
现在就是sql="insert into zhuce (name,passwd,user,sex,note) values ('"&amp;username&amp;"','"&amp;userpasswd&amp;"','"&amp;user&amp;"','"&amp;usersex&amp;"','"&amp;usernote&amp;"')"
不能成功执行，可以正常显示用户&lt;%=username%&gt;添加成功!
但实际用户并没有插入到表中，我该怎么办啊？？
救救我吧~~~~~~~~~~~~~~

是这样么?
 &lt;%
  else
   rs.addnew
   rs("name")=username
   rs("passwd")=userpasswd
   rs("user")=user
   rs("sex")=usersex
   rs("note")=usernote
   rs.update
  %&gt;
  &lt;p class="style2"&gt;用户&lt;%=rs("username")%&gt;添加成功!
  &lt;%
  end if
  rs.close
  conn.close
  set conn=nothing
  %&gt;
他提示:当前记录集不支持更新，这可能是提供程序的限制，也可能是选定锁定类型的限制。
这是什么意思啊？？？是不是我写的不对?
谢谢.....我太菜了...在帮我看看好么.....

我用的是rs.addnew
现在已经能够插入数据库了...谢谢大家...