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)=”“&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 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
修改成
[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)=”“&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
然后搜索
[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:
将以下代码替换至断
[Copy to clipboard]CODE:
用户登录
附首页显示登陆框的方法
在library.asp里查找 退出系统” 将以下代码替换原来的
[Copy to clipboard]CODE:
else
userPanel=userPanel&”
“
end if
end function
如果你懒得改或不会改的话请下载我打的包,覆盖原文件即可!(修改有风险,请自行备份原文件!!)