<%set rs=server.CreateObject("adodb.recordset")
        rs.open "select * from users",conn,1,1
       %>
      <% dim username,pwd
         username = request.form("username")
         pwd = request.form("password")
         If NOT rs.eof and NOT rs.bof then
           If rs("用户名") <> username Then
           response.write("用户名不存在")
           ElseIf rs("密码") <> pwd Then
              Response.write "密码错误!"
           ElseIf rs("权限")<> 0 Then
              Response.Redirect("index_qt.asp")
           Else
              Response.Redirect("index_ht.asp")
              response.end
              rs.movenext
           End If
         End If
            rs.Close
            set rs=nothing
       %>

为什么只有数据库表里的第一个admin能够登录。其他的帐户都不能登录。麻烦高手给修改一下。谢谢！！！
还有，每次运行时，我还没填写呢就提示：用户名不存在。呼呼。这个应该怎么改啊？！


[ 本帖最后由 crazypigandy 于 2011-5-11 13:46 编辑 ]

你这样写只能登录数据库中的第一条记录

给你一段参考

dim username, password
username=Trim(Request.form("username"))
password=Trim(Request.form("password"))

set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"& username & "' and password ='" & password &"'"
rs.open sql,Conn,1,3
if rs.bof and rs.eof then
    失败代码
else
    成功代码
end if
rs.close

[ 本帖最后由 dzt0001 于 2011-5-11 13:54 编辑 ]

呃。。。大哥，那该怎么写啊？！都快愁死我了。。。

      <% dim username,pwd
         username = trim(request.form("username"))
         pwd = trim(request.form("password"))
         
         set rs=server.CreateObject("adodb.recordset")
         sql="select * from users where 用户名='"&username&"' and 密码='"&password&"'"
         rs.open sql,conn,1,3
         If NOT rs.eof and NOT rs.bof then
           If rs("用户名") <> username Then
           response.write("用户名不存在")
           ElseIf rs("密码") <> pwd Then
              Response.write "密码错误!"
           ElseIf rs("权限")<> 0 Then
              Response.Redirect("index_qt.asp")
           Else
              Response.Redirect("index_ht.asp")
              response.end
              rs.movenext
           End If
         End If
            rs.Close
            set rs=nothing
       %>
呃。。。改成这个样子以后发现不跳转了。。呼呼。。。哥，你QQ多少啊？！

这是条件查询，你这么写好像是有点乱，你的意思是先把结果记录集给拿出来，然后用这个结果跟request拿到的东西比，可是记录集里不是一条数据啊，这怎么比，你改改吧，改成条件查询，看记录是不是空，是空就失败，不是就成功！
<% dim username,pwd
          username = trim(request.form("username"))
          pwd = trim(request.form("password"))
         
          set rs=server.CreateObject("adodb.recordset")
          sql="select * from users where 用户名='"&username&"' and 密码='"&password&"'"
          rs.open sql,conn,1,3
          If NOT rs.eof and NOT rs.bof then
            if rs("权限")<> 0 Then
               Response.Redirect("index_qt.asp")
            Else
               Response.Redirect("index_ht.asp")
            end if
               rs.movenext
           end if
             rs.Close
             set rs=nothing
        %>
那个用户名和密码没有必要再判断了，多余了。

[ 本帖最后由 liang198207 于 2011-5-11 14:54 编辑 ]

但是我想让他输入用户名或密码错误时有所提示啊。例如：用户名错了提示“用户名错误”。。。呵呵