cookies的时限是多少_完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!

完美解决PJ的Cookies保存时限问题!可选择记录登陆时长!

http://mr-w.cn/

一直被这个问题所困扰!!现在终于完美解决啦!!献给那些需要前台记住登录信息的朋友!(此方法经过我的使用验证不存在星铃丹管理员所说的后台会持续登陆的安全隐患...后台还是和原版一样的,效果只针对前台!!)

感谢Wady和IFairy...

请大家不要只看不回,只回不来我的博客坐坐...回帖是美德!做人要厚道!!

下面是修改方法...

1.首先修改common/checkUser.asp(主要是这个!!)

将以下原码

[Copy to clipboard]CODE:

'进行MD5密码验证，转换旧帐户密码验证方式

dim strSalt

strSalt=randomStr(6)

memLogin("mem_salt")=strSalt

memLogin("mem_LastIP")=getIP()

memLogin("mem_lastVisit")=now()

memLogin("mem_hashKey")=HashKey

memLogin("mem_Password")=SHA1(Password&strSalt)

Response.Cookies(CookieName)("memName")=memLogin("mem_Name")

Response.Cookies(CookieName)("memHashKey")=HashKey

if Request.Form("KeepLogin")="1" then Response.Cookies(CookieName).Expires=Date+365

memLogin.Update

ReInfo(0)="登录成功"

ReInfo(1)=""&memLogin("mem_Name")&"，欢迎你的再次光临。点击返回主页"

ReInfo(2)="MessageIcon"

ReInfo(3)=true

End IF

else

if memLogin("mem_Password")<>SHA1(Password&memLogin("mem_salt")) then

ReInfo(0)="错误信息"

ReInfo(1)="用户名与密码错误请返回重新输入"

ReInfo(2)="ErrorIcon"

logout(false)

else

memLogin("mem_LastIP")=getIP()

memLogin("mem_lastVisit")=now()

memLogin("mem_hashKey")=HashKey

Response.Cookies(CookieName)("memName")=memLogin("mem_Name")

Response.Cookies(CookieName)("memHashKey")=HashKey

if Request.Form("KeepLogin")="1" then Response.Cookies(CookieName).Expires=Date+365

memLogin.Update

ReInfo(0)="登录成功"

ReInfo(1)=""&memLogin("mem_Name")&"，欢迎你的再次光临。点击返回主页"

ReInfo(2)="MessageIcon"

ReInfo(3)=true

end if

end if

memLogin.Close

Set memLogin=Nothing

login=ReInfo

end function

修改成

[Copy to clipboard]CODE:

'进行MD5密码验证，转换旧帐户密码验证方式

dim strSalt

strSalt=randomStr(6)

memLogin("mem_salt")=strSalt

memLogin("mem_LastIP")=getIP()

memLogin("mem_lastVisit")=now()

memLogin("mem_hashKey")=HashKey

memLogin("mem_Password")=SHA1(Password&strSalt)

Response.Cookies(CookieName)("memName")=memLogin("mem_Name")

Response.Cookies(CookieName)("memHashKey")=HashKey

if Cint(Request.Form("KeepLogin"))<>0 then Response.Cookies(CookieName).Expires=Date+Cint(Request.Form("KeepLogin"))

memLogin.Update

ReInfo(0)="登陆成功"

ReInfo(1)=""&memLogin("mem_Name")&"，欢迎你的再次光临。点击返回主页"

ReInfo(2)="MessageIcon"

ReInfo(3)=true

End IF

else

if memLogin("mem_Password")<>SHA1(Password&memLogin("mem_salt")) then

ReInfo(0)="错误信息"

ReInfo(1)="用户名与密码错误请返回重新输入"

ReInfo(2)="ErrorIcon"

logout(false)

else

memLogin("mem_LastIP")=getIP()

memLogin("mem_lastVisit")=now()

memLogin("mem_hashKey")=HashKey

Response.Cookies(CookieName)("memName")=memLogin("mem_Name")

Response.Cookies(CookieName)("memHashKey")=HashKey

if Cint(Request.Form("KeepLogin"))<>0 then Response.Cookies(CookieName).Expires=Date+Cint(Request.Form("KeepLogin"))

memLogin.Update

ReInfo(0)="登陆成功"

ReInfo(1)=""&memLogin("mem_Name")&"，欢迎你的再次光临。点击返回主页"

ReInfo(2)="MessageIcon"

ReInfo(3)=true

end if

end if

memLogin.Close

Set memLogin=Nothing

login=ReInfo

end function

然后搜索

[Copy to clipboard]CODE:

memLogin("mem_LastIP")=getIP()

有三处!将其删除...

再搜索

[Copy to clipboard]CODE:

if CheckCookie("mem_LastIP")<>Guest_IP or isNull(CheckCookie("mem_LastIP")) then

logout(true)

else

memName=CheckStr(Request.Cookies(CookieName)("memName"))

memStatus=CheckCookie("mem_Status")

end if

替换为

[Copy to clipboard]CODE:

memName=CheckStr(Request.Cookies(CookieName)("memName"))

memStatus=CheckCookie("mem_Status")

2.修改login.asp:

将以下代码替换

[Copy to clipboard]CODE:

附首页显示登陆框的方法

在library.asp里查找 退出系统" 将以下代码替换原来的

[Copy to clipboard]CODE:

else

userPanel=userPanel&"

end if

end function

如果你懒得改或不会改的话请下载我打的包,覆盖原文件即可!(修改有风险,请自行备份原文件!!)

点击下载此文件