[校园网/公司网/局域网IP变换不能登陆][解决PJ的Cookies保存时限!记住登录信息的方法]

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

下面是修改方法

1.首先修改common/checkUser.asp(主要是这个!!)
将以下原码

复制内容到剪贴板

代码:

'进行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)="<b>"&memLogin("mem_Name")&"</b>,欢迎你的再次光临。<br/><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)="<b>用户名与密码错误</b><br/><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
                            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)="<b>"&memLogin("mem_Name")&"</b>,欢迎你的再次光临。<br/><a href=""default.asp"">点击返回主页</a><meta http-equiv=""refresh"" content=""3;url=default.asp""/>"
                            ReInfo(2)="MessageIcon"
                    ReInfo(3)=true
                   end if
                 end if
                 memLogin.Close
                 Set memLogin=Nothing
  login=ReInfo
end function

修改成

复制内容到剪贴板

代码:

'进行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)="<b>"&memLogin("mem_Name")&"</b

>,欢迎你的再次

Leave a comment

You must be logged in to post a comment.