多用户登陆问题……●●●●●●●●●●
以下代码为多用户登陆,为什么我使用任何用户名,他都显示“无此用户名”
错在哪里,兄弟们帮个忙看一下吧。。。数据库里的数数据为
ID name pass
1 a a
2 b b
3 c c
<%
Dim conn
set conn= Server.CreateObject("adodb.connection")
conn.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.MapPath("db1.mdb")
exec="select * from book where name='"&request("name")&"'"
Set rs = Server.CreateObject("adodb.RecordSet")
rs.Open exec, Conn, 1, 1
if rs.recordcount=0 then
response.write "无此用户名"
else
if rs("pass")=request("pass") then
response.redirect "ok.asp"
else
response.write "密码出错"
end if
end if
%>