[使用分享] 完美解决PJBlog的Cookies保存时限问题!让PJ记住登录信息的修改方法 [复制链接]

dreamfly8223

PJFans LV1

Rank: 1

PJ币: 29 元
积分: 317
帖子: 16
注册时间: 2008-3-6
在线时间: 30 小时

发表于 2008-3-11 15:57:30 |显示全部楼层

PJBlog3 v3.2.9.518已发布，欢迎下载使用(2011/11/01)

声明：这哥方法是在DIYMAN的BLOG里找到的，洁哥's Blog 照这样改了，抽了两袋烟也没有出现掉线的问题。因为洁哥's Blog 这样的问题有时好有时坏，所以我也不缺定它是否真的有用，由于这个问题让我郁闷的要疯，所以找到这个方法就急切的贴在这里了。达人们可以看看，是不是可行或者解释一下原理。
我在改的时候完全按照这上面的源代码，结果没办法执行，我删掉了点东西。由于我对APS实在是不怎么通，所以下面贴的是原网站的代码，我在我删除了地方标红。
下面是修改方法...

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>，欢迎你的再次光临。<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 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>，欢迎你的再次光临。<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

然后搜索

程序代码
memLogin("mem_LastIP")=getIP()
有三处!将其删除...

再搜索

程序代码

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
替换为

程序代码
   memName=CheckStr(Request.Cookies(CookieName)("memName"))
   memStatus=CheckCookie("mem_Status")
2.修改login.asp:
将以下代码替换<form name="checkUser" action="login.asp" method="post">至</form>断

程序代码
<form name="checkUser" action="login.asp" method="post">
<div id="MsgContent">
<div id="MsgHead">用户登录</div>
<div id="MsgBody">
  <input name="action" type="hidden" value="login"/>
  <label>用户名：<input name="username" type="text" size="18" class="userpass" maxlength="24"/></label><br/>
  <label>密　码：<input name="password" type="password" size="18" class="userpass"/></label><br/>
  <%if blog_useCode then%><label>验证码：<input name="validate" type="text" size="4" class="userpass" maxlength="4"/> <%=getcode()%></label><br/><%end if%>
  <label>记住登陆: <select name="KeepLogin" id="KeepLogin" class="userpass">
  <option value="1" selected="selected">一天</option>
  <option value="30" >一個月</option>
  <option value="365">一年</option>
  <option value="0">不用記住</option>
  </select>
  </label>
  <br/>
  <input type="submit" value="登　录" class="userbutton"/>　<input type="button" value="用户注册" class="userbutton" onclick="location='register.asp'"/>
  </div>
</div>
</form>

论坛统一签名

亲，我们的论坛签名是需要消费PJ币哦！！点击购买签名

温馨提示：博客地址敬请放在签名档，方便协助解决问题！

币币很多，花不完？来吧，购买他人签名，挂上你的链接！

使用道具举报