<% 
user=request.form("UserID")  
if user="" then  
response.redirect "err1.htm"  
response.end 
end if 
pass=request.form("Pass") 
if pass="" then 
response.redirect "err2.htm" 
response.end 
end if 
dim conn,rs
file=server.mappath("mdb/sub.mdb") 
set conn=server.createobject("adodb.connection") 
dr="driver={microsoft access driver (*.mdb)};dbq="&file 
conn.open dr
set rs=server.createobject("adodb.recordset") 
sql="select * from [表] where [user]="&user&" and [pass]="&pass&"" 
rs.open sql,conn,1,1
if not rs.eof then  
reponse.redirect "login.asp" 
else 
response.write "err3.htm" 
end if 
%>
试试