dim name,password
name=request.form(name)
password=request.form(password)
dim exec,conn,rs
exec=select *from 表名 where(name=';字段'; and password=';字段';)
set conn=server.createobject(adodb.connection)
conn.open driver={microsoft access driver (*.mdb)};dbq=server.mappath(数据库名)
set rs=server.createobject(adodb.recordset)
rs.open exec,conn
if not rs.eof then
rs.Close
conn.Close
session(checked)=yes
session(check)=right
response.Redirect index.asp
else
session(checked)=no
session(check)=wrong
response.Redirect login.asp
end if
%

首先你要确认用哪个参数来区分不同的用户