完美解决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")&"，欢迎你的再次光临。 <a href=""default.asp"">点击返回主页</a>"
 ReInfo(2)="MessageIcon"
 ReInfo(3)=true
 End IF
 else
 if memLogin("mem_Password")<>SHA1(Password&memLogin("mem_salt")) then
 ReInfo(0)="错误信息"
 ReInfo(1)="用户名与密码错误 <a href=""javascript:history.go(-1);"">请返回重新输入</a>"
 ReInfo(2)="ErrorIcon"
 logout(false)
 else
 memLogin("mem_LastIP")=getIP()
 memLogin("mem_lastVisit")=now()
 memLogin("mem_hashKey")=HashKey
 9"y."yi!yl!amb(:fiay'9I\PNYXYJY[W\TIY\ [ XYJY[W\TJI[ YJO[S[YOPX\]Y\Y\YS[YJJY[S[YHJO[T]\XYJY[W]\O h..I\PN[S[YOPX\]Y\Y\YS[YJJY[S[YHJO[T]\XYJY[W]\O/.[[\l!." yhI[YOHX\[H[\]HII\PNI[YOHX\[H[\]H]H\[]H\XY-eI]]H\H] [YOHX[\OHY[[YOH[X[ -&] [YOH\[YH\OH^^OHN\H\\^[HX[ X[ 9] [YOH\\OH\^OHN\H\\X[ YI[IX[ {] [YOH[Y]H\OH^^OH\H\\^[HYJ IIX[ [ IX[ ca[X[YOH\[H\[\H\\[[YOHH[XYHXY*I[[[YOH"[[[YOHHm [[[YOH*:*&9/c[XX[ ] \OHZ][YOHoeH\H\]] \OH][YOH-\H\]XH][IY\\]]Ifa:ihmy/faayg*X\K\aoI" yhcI\PN[[[]\[[ [\I[YOHX\[H[\]H[OHX\\] [YOHX[\OHY[[YOH[X[ -] [YOH\[YH\OH^^OHL\H\\^[HX[ X[ {] [YOH\\OH\^OHL\H\\X[ X[ &] [YOH[Y]H\OH^^OH\H\\^[H[\]J I[\X[ X[ ca[X[YOH\[H\[\H\\[[YOHH[XYHXY*I[[[YOH"[[[YOHHm [[[YOH*:*&9/c[XX[ ] \OHZ][YOHoeH\H\]] \OH][YOH/&df9\H\]XH][YIY\\I[ [ [[i9/h9%.#y/&.y+"$yd!K:)cl9/.y"zhjK:+c9i!JOHYHYNKXY[[ LMLMK\\H[a"i9