点击返回主页" ReInfo(2)="MessageIcon" ReInfo(3)=true End IF else if memLogin("mem_Password")<>SHA1(Password&memLogin("mem_salt")) then ReInfo(0)="错误信息" ReInfo(1)="用户名与密码错误
请返回重新输入" 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)=""&memLogin("mem_Name")&",欢迎你的再次光临。
点击返回主页" ReInfo(2)="MessageIcon" ReInfo(3)=true end if end if memLogin.Close Set memLogin=Nothing login=ReInfo end function 修改成 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)=""&memLogin("mem_Name")&",欢迎你的再次光临。
点击返回主页" ReInfo(2)="MessageIcon" ReInfo(3)=true End IF else if memLogin("mem_Password")<>SHA1(Password&memLogin("mem_salt")) then ReInfo(0)="错误信息" ReInfo(1)="用户名与密码错误
请返回重新输入" 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)=""&memLogin("mem_Name")&",欢迎你的再次光临。
点击返回主页" ReInfo(2)="MessageIcon" ReInfo(3)=true end if end if memLogin.Close Set memLogin=Nothing login=ReInfo end function 然后搜索 CODE: memLogin("mem_LastIP")=getIP() 有三处!将其删除... 再搜索 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 替换为 CODE: memName=CheckStr(Request.Cookies(CookieName)("memName")) memStatus=CheckCookie("mem_Status") 2.修改login.asp:(这个也可能会显示不正常,请谨慎,其实也不用修改了!!修改了common/checkUser.asp就已经解决了问题哦!) 将以下代码替换断 CODE: 附:首页显示登陆框的方法(如果您喜欢的话可以修改) 在library.asp里查找 退出系统" 将以下代码替换原来的 CODE: else userPanel=userPanel&"" end if end function 联系QQ:29329300 欢迎访问我的BLOG: https://www.wenrouge.com/ 主站: http://www.wenrou.cn/ 点击下载此文件
---
转载请注明本文标题和链接:《pjblog登陆失败修改方法[附:文件下载]》
发表评论