<%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,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多少啊？！

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