这是普通的正常登录
dim rs,sql
set rs=server.createObject("adodb.recordset")
sql="select id,username,password,flag,lastlogin,lastloginip from admin_user where username='"&username&"'"
rs.open sql,conn,1,3
if rs("password")=password then
session("username")=rs("username")
session("Mlogin")=true
'下面设置COOKIES时间
Response.Cookies("ManageId").Expires=(date()+1)
Response.Cookies("ManagePwd").Expires=(date()+1)
'下面是设置COOKIES值
response.Cookies("ManageId")=rs("id")
response.Cookies("ManagePwd")=rs("password")
end if
下面是当SESSION值丢失时
if session("Mlogin")<>true then
uid=request.Cookies("id")
pwd=Cookies("ManagePwd")
if isnumeric(uid) then
set ur=conn.execute("select id,username,password,flag,lastlogin,lastloginip from admin_user where id="&uid)
if not ur.eof then
if pwd=ur("password") then
'正确后,重析设置SESSIOIN
session("username")=ml("username")
session("Mlogin")=true
end if
end if
end if
end if
好了,这样就可以不丢失信息了。