<%
Set Conn=Server.CreateObject("Adodb.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("upload.mdb")
Conn.Open ConnStr
%>

<%
sql="select loginuser,userpassword from user where loginuser='"& trim(request("txtusername"))&"'"
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open sql,conn,1,1
   if rs.eof and rs.bof then
             response.Write "用户不存在，<a href=index.asp>返回</a>"
                         response.End
        end if   
        if rs.fields("userpassword")<>request("txtpassword") then
                    response.Write "用户密码错误，<a href=index.asp>返回</a>"
                                response.End
        end if
        session("loginuser")=rs.fields("loginuser")
    response.Redirect("login.asp")
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
11行出现了Microsoft JET Database Engine 错误 '80040e14'

FROM 子句语法错误。
请问这里怎解决呢？

明白了。我试一下。谢谢管理员

11行改成这样就行了
rs.Open sql, conn, 1, 3, adCmdText
请问这是什么原因会这样呢？
麻烦管理员解释一下，我是菜鸟

我数据库中有AA用户名在添加页中添加AA用户名不成功,这里是正常的.
但我在添加页面添加一个新的用户叫"NN"到数据库中,添加成功后,我再添加一个用户又叫NN的,竟然又添加成功了,是不是要更新一下数据库阿?源代码在下面
<!--#include file="conn.asp"-->
<%
sql="select loginuser from account"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3,adcmdtext
%>
<%
dim rs
if request.Form("txtuser")<>"" and request.Form("txtpwd")<>"" then
    if rs("loginuser")<>request.Form("txtuser") then
       strsql="insert into account(loginuser,userpassword) values('"& trim(request("txtuser")) &"','"& trim(request("txtpwd")) &"')"
       rs=conn.execute(strsql)
       response.Write "注册成功"
    else
       response.Write "用户名已存在!,<a href=regist.asp>返回</a>"
    end if
else
response.Write "请输入用户名或密码!"
end if
conn.close
set conn=nothing
%>

改了这个sql="select loginuser from account where username='"& request.Form("txtuser") &"'"我添加用户时出错哦!!
我下面已经有判断数据库中的用户名是不是等于输入的用户名了if rs("loginuser")<>request.Form("txtuser") then

[ 本帖最后由 geniusjoy 于 2007-12-17 22:55 编辑 ]

我什么都会一点,就是不精通,现在就先精通一样.我是改了
sql="select loginuser from account where loginuser='"& request.Form("txtuser") &"'"
别以为我这么傻照抄下去啊.

已经成功了.多谢管理员提醒~~!万分感谢,
<%
sql="select loginuser from account where loginuser='"&request.Form("txtuser")&"'"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn,1,3,adcmdtext
%>
<%
if request.Form("txtuser")<>"" and request.Form("txtpwd")<>"" then
       strsql="insert into account(loginuser,userpassword) values('"& trim(request("txtuser")) &"','"& trim(request("txtpwd")) &"')"
       If Not conn.Execute(sql).Eof then
              response.Write"用户名已存在!"
           else
              rs=conn.execute(strsql)
          response.Write "注册成功"
           end if
else
response.Write "请输入用户名或密码!"
end if
conn.close
set conn=nothing
%>
这样写就可以了.