鲶鱼墨水永恒黑染尖:求求好心人给我一段用cookie保存用户名和密码的代码～？～

用户名和密码及cookies保存期限都是表单提交传递过来的
假设三者分别对应的元素名为：txtusername,txtpwd,sltdate

dim Usrname,pwd,mdate
'接受传递值
usrname=trim(request("txtusername"))
pwd=trim(request("txtpwd"))
mdate=trim(request("sltdate"))

'判断登陆是否成功
set rs=server.createobject("adodb.recordset")
sql="select * from usertable where UserName ='"&usrname&"' and Password ='"&pwd&"'"
rs.open sql,connStr,1,3

if not rs.eof then '如果记录不为空，则用户名和密码都正确
'向客户端写入cookie
Response.Cookies("mysite")("username")=usrname
Response.Cookies("mysite")("password") = pwd
Response.Cookies("mysite").Expires=Date+mdate 'mdate为1,31,365其中一个的值
end if
=====================================================
'使用cookie保存的用户登陆代码：
usrname=request.cookies("mysite")("username")
pwd=request.cookies("mysite")("password")

'判断登陆是否成功
set rs=server.createobject("adodb.recordset")
sql="select * from usertable where UserName ='"&usrname&"' and Password ='"&pwd&"'"
rs.open sql,connStr,1,3
if rs.eof then
response.write "用户名或密码错误"
else
resposne.write"登陆成功"
end if

Session("UserName")=rs("你的用户名")
Session("password")=rs("你的密码")
类似这样的