ASP用户登录代码

asp+access用户登录代码,an.mdb数据库名
fd表名
y_username用户名字段，y_password密码字段.
loginnew.asp网页
<%
dim username,password
 
 username=request.form("username")
 password=request.form("password")
 set rs=server.createobject("adodb.recordset") 
 conn = "DBQ=" + server.mappath("huiyuan.mdb") + ";DefaultDir=;
DRIVER={Microsoft Access Driver (*.mdb)};" 
 sql="select * from pUser213 where y_username='"&username&"'"
 rs.open sql,conn,1,1
 if rs.eof then
  response.write ""
  response.end
  else
    if rs("y_password")<>password then
      response.write ""
      response.end     
     end if      
     session("admin")=username
response.write""
  end if
%>
再来看html 代码.
login.htm页面