请帮我看看这段ASP查询语句,为什么只能查第一个数据呢?

来源:百度知道 编辑:UC知道 时间:2024/05/11 19:32:50
我想做一个密码验证,代码如下:
<%Server.scriptTimeout="10"
set conn=Server.CreateObject("ADODB.connection")
connstr="DBQ="&server.mappath("psd.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr

Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL="Select * from psd "
RST.Open StrSQL,conn,1,1 '得到搜索后的记录
%>
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim username
dim companyid
dim password
dim errmsg
dim founderr
dim username_DB
dim password_DB
founderr=false
FoundUser=false
username=request.form("username")
password=request.Form("password")
while not rst.eof

'username_DB=rst("username")
'password_DB=rst("password")

if username="" then
response.redirect "e

<%
Server.scriptTimeout="10"
set conn=Server.CreateObject("ADODB.connection")
connstr="DBQ="&server.mappath("psd.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
conn.open connstr

username=request.form("username") '此处最好过滤一下
password=request.Form("password")

Set RST=Server.CreateObject("ADODB.RecordSet")
StrSQL="Select * from psd where username='" & username & "'"
RST.Open StrSQL,conn,1,1 '得到搜索后的记录

while not rst.eof

if password=rst("password") then
response.cookies("adminok")=true
response.redirect "index.html"
else
response.redirect "error.html"
end if

rst.movenext

wend

rst.close
set rst=nothing
conn.close
%>

首先思路错了
应该是Sql="Select * From