AJAX登录并增加选择COOKIES保存时限功能（9/27增加是否换IP保存登录）
作者:小戒 日期:2008-09-27
开common/checkuser.asp，找到：
注意：有两处，全部修改为：
找到：（更换IP后如果需要继续保存登录修改下面部分，否则跳过。）
替换为：
打开common/cache.asp，找到：
替换为：
打开login.asp，找到：
修改成：
下载压缩包，解压至博客根目录
点击下载此文件
复制内容到剪贴板
程序代码
程序代码 If Request.Form("KeepLogin") = "1" Then Response.Cookies(CookieName).Expires = Date+365
注意：有两处，全部修改为：
复制内容到剪贴板 程序代码
程序代码 If int(Request.Form("AJAXKeepLogin")) > 0 Then
Response.Cookies(CookieName).Expires = Date+int(Request.Form("AJAXKeepLogin"))
Response.Cookies(CookieName)("exp") = DateAdd("d", int(Request.Form("AJAXKeepLogin")), date())
End If
Response.Cookies(CookieName).Expires = Date+int(Request.Form("AJAXKeepLogin"))
Response.Cookies(CookieName)("exp") = DateAdd("d", int(Request.Form("AJAXKeepLogin")), date())
End If
找到：（更换IP后如果需要继续保存登录修改下面部分，否则跳过。）
复制内容到剪贴板 程序代码
程序代码 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
logout(True)
Else
memName = CheckStr(Request.Cookies(CookieName)("memName"))
memStatus = CheckCookie("mem_Status")
End If
替换为：
复制内容到剪贴板 程序代码
程序代码' 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
' logout(True)
' Else
memName = CheckStr(Request.Cookies(CookieName)("memName"))
memStatus = CheckCookie("mem_Status")
' End If
打开common/cache.asp，找到：
复制内容到剪贴板 程序代码
程序代码 Response.Cookies(CookieName)("memRight") = StatusCode
替换为：
复制内容到剪贴板 程序代码
程序代码 Response.Cookies(CookieName)("memRight") = StatusCode
If Request.Cookies(CookieName)("exp")<>"" Then
Response.Cookies(CookieName).Expires = Date + DateDiff("d",Date(),Request.Cookies(CookieName)("exp"))
End If
If Request.Cookies(CookieName)("exp")<>"" Then
Response.Cookies(CookieName).Expires = Date + DateDiff("d",Date(),Request.Cookies(CookieName)("exp"))
End If
打开login.asp，找到：
复制内容到剪贴板 程序代码
程序代码 <label><input name="KeepLogin" type="checkbox" value="1"/>记住我的登录信息</label><br/>
修改成：
复制内容到剪贴板 程序代码
程序代码<label>保 存：<select size="1" id="AJAXKeepLogin"><option selected="selected" value="0">不保存</option><option value="1">一天</option><option value="7">一星期</option><option value="30">一个月</option><option value="365">一年</option></select></label><br />
下载压缩包，解压至博客根目录
点击下载此文件[本日志由 小戒 于 2008-09-27 11:34 AM 编辑]
上一篇: 解决PJBLOG3的登录BUG（不能保存COOKIE）（9/27增加是否换IP保存登录）
下一篇: 批量修改文件名防止新云系统盗链
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags: ajax cookies 登录 PJBLOG 
相关日志:
评论: 10 | 引用: 0 | 查看次数: -
回复
咋你的可以类
是以前就不能登陆后台的..不是戒哥代码的问题..
解决是解决了..现在后台不能登陆了..
小戒 于 回复后台怎么不能登录？这里的修改没涉及到后台啊。
试试这个没有验证码的看看哈...
郁闷啊..不知道是不是修改太多了..
博客现在输入验证码都是提示错误...
郁闷啊..
好几天都没有更新了..
我试试戒哥的这个方法...
修改失败。。。服务器500错误。。。汗
小戒 于 回复
小戒 于 回复很多人都成功了噢。仔细对照着修改。
呵呵，
我使用了
很长时间来一直寻找好东西啊，
我的博客一直有问题：在公司固定IP的局域网上登陆没问题，在家里是ADSL的局域网上却老是明明显示登陆了，自动返回到首页又是没登陆状态，这个毛病总算解决了啊！！！！
小戒 于 回复
我使用了
很长时间来一直寻找好东西啊，
我的博客一直有问题：在公司固定IP的局域网上登陆没问题，在家里是ADSL的局域网上却老是明明显示登陆了，自动返回到首页又是没登陆状态，这个毛病总算解决了啊！！！！
小戒 于 回复呵呵。
博主 你好
能不能把验证码
再加到这个 无刷新 登录里面？
谢谢
xsleaf@126.com
小戒 于 回复
能不能把验证码
再加到这个 无刷新 登录里面？
谢谢
xsleaf@126.com
小戒 于 回复比较麻烦，这样在评论和登录时第一次都会产生验证码错误的问题。会冲突的。
压缩包里的 ajax.js 文件
需要另存一下 为utf-8 格式的 才能正常使用
否则 会出现乱码
小戒 于 回复
需要另存一下 为utf-8 格式的 才能正常使用
否则 会出现乱码
小戒 于 回复恩。是的。谢谢提醒，已经更改了。重新下载就好了。
发表评论
错误类型：
Microsoft VBScript 编译器错误 (0x800A03F6)
缺少 'End'
/common/checkUser.asp, line 92
Else
浏览器类型：
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; WPS; Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1) ; .NET CLR 2.0.50727; InfoPath.1; MAXTHON 2.0)
网页：
GET /Default.asp
时间：
11 January 2009, 21:48:52
详细信息：