asp登录验证页面，疑问

[daishunchaoaiqiu]

我弄个了个登录页面，不用注册，第一次随便输入用户名和密码就能进入1.asp
但是第二次第三次下去就要检测一下该用户名的密码是否正确，不正确就弹出对话框
<%
set con=Server.CREATEOBJECT("ADODB.CONNECTION")
DBPath = Server.MapPath("stu.mdb")
con.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath
name1=request.Form("name")
psd=request.Form("psd")
set rs=server.CreateObject("adodb.recordset")
sql="select * from student where name='"+name1+"'"
rs.open sql,con,1,1
if not rs.eof
....//这里怎么写
if(rs("psd")<>psd then
response.Write "<script>alert('密码不对');history.back();</script>"
response.End()
else
session("name")=name
response.Redirect "1.asp"
end if

[一aa一]

按照你的意思是 当你第一次输入一个用户名时 如果 查询数据库没有这个用户那么 就将这个用户名和密码写入数据库中么？
可是你在程序中根本就没做写入数据的操作呀
if not rs.eof
....//这里怎么写
if(rs("psd")<>psd then
这程序的意思是 在数据库里面找到了这个用户名是吧？
既然找到了这个用户那么接下去的操作就是核对密码呀。
if not rs.eof then
rs2.Open "select * from student where name='"name1"' and pass='"psd"' ",con,1,1
if (not rs2.eof) then
session("name")=name
response.Redirect "1.asp"
else
response.Write "<script>alert('密码不对');history.back();</script>"
response.End()
end if
else
rs3.open "select * from student",con,1,3
rs3.addnew
rs3("name")=Replace(Trim(Request.Form("name1")),"'","")
rs3("psd")=Replace(Trim(request.form("psd")),"'","")
rs3.updata
end if