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)="<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=ReInfoend 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)="<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 然后搜索[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:将以下代码替换<form name="checkUser" action="login.asp" method="post">至</form>断[Copy to clipboard]CODE:<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> 附首页显示登陆框的方法在library.asp里查找 退出系统</a>" 将以下代码替换原来的[Copy to clipboard]CODE:else userPanel=userPanel&"<form name=""checkUser"" action=""login.asp"" method=""post"" style=""margin:1px;""><input name=""action"" type=""hidden"" value=""login""/><label>用户：<input name=""username"" type=""text"" size=""12"" class=""userpass"" maxlength=""24""/></label><br/><label>密码：<input name=""password"" type=""password"" size=""12"" class=""userpass""/></label><br/><label>验证：<input name=""validate"" type=""text"" size=""4"" class=""userpass"" maxlength=""4""/> "&getcode()&"</label><br/><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.href='register.asp'""/></form>"end if end function如果你懒得改或不会改的话请下载我打的包,覆盖原文件即可!(修改有风险,请自行备份原文件!!) 点击下载此文件

　　推荐阅读

　　Asp实现假静态

基于很多原因，有不少朋友的空间不支持FSO， 还有就是当大量的页面生成静态页面时，占用大量的空间， 还有就是修改样式时，不方便， 所以动态页面还是有动态页面的好处， 但我们站长都希望是所有的都是静态页面 因>>>详细阅读

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

地址：http://www.17bianji.com/kaifa2/ASP/32741.html

 1/2    1