WenRou's Blog
pjblog登陆失败修改方法[附:文件下载]
2007-8-23 温柔哥
本文由 温柔幻刀发表于 爱你的365天 http://www.wenrouge.com/ 版权所有,未经允许,不得转载,谢谢!

在pj官方论坛里面 搜索 “登陆问题” 我们会发现有不少的朋友都有这样那样的问题,另人头痛。请大家先

看完我的整段文字再开始动手解决您的问题,


关于Blog无法登陆的问题,puterjam(也就是pjblog的创始人)给出了相应的解决办法,详细情况见

http://www.pjhome.net/article.asp?id=413

但是实际上并非所有用户都能够解决问题。我按照puterjam的方法做了,但是我并没有解决问题。甚至我开给了everyone全部权限。依旧没有成功。

而且puterjam的这种方案需要服务器权限,对于一般的用户而言,这种方法显然是不现实的。

puterjam在论坛中给了我们这样的提示:
http://bbs.pjhome.net/viewthread.php?tid=4407&extra=page%3D1

但是请不要相信西面跟帖子的jasonxyk会员的话:“需要把pjblog所在的文件夹共享,然后把那“在网络上共享文件夹”和“允许网络用户更

改我的文件”这两个选上”

这只会导致安全问题,对于问题的解决没有半点帮助!!


在pj官方论坛寻找答案的时候还见到了有的朋友提出这样的问题:就是登陆后 空白信息,见

http://bbs.pjhome.net/viewthread.php?tid=16496&highlight=%B5%C7%C2%BD%CE%CA%CC%E2

这个问题以前我也碰见过了,这个是服务器设置问题,按照http://www.pjhome.net/article.asp?id=413的方法应该可以解决,如果还不行的

话,那下面的操作也许回对您有帮助:

打开您的服务器上的的IIS管理器,选择您要操作的站点,右键》属性》主目录》配置》选项》启用父路径。

最后请参考

http://bbs.pjhome.net/viewthread.php?tid=5653&highlight=iis

尤其是最后一项,将您的站点文件夹 赋予 everyone 至少有写入权限 ,当然anan77 朋友给的是 everyone 全部权限

这个和puterjam的 http://www.pjhome.net/article.asp?id=413有异曲同工之妙,

不同的是puterjam只赋予了数据库权限,而这里赋予了整个站点文件夹权限(当然也包括站点里面的数据库也赋予权限了)

但是我想puterjam的方法可能更安全些。请大家先试用puterjam的方案,再参考anan77 给出的作者:游泳的鱼的方案。谢谢!





( 如果你在使用PJBLOG的过程中,发现明明自己刚登陆了,但跳转回首页的时候又发现自己不是登陆状态,连接试几次都这样,根本就使用

不了BLOG。同时你也会发现跑到别人的PJBLOG也是登陆了。这样的情况不是数据库权限的问题,因为别人都用得好好的,而维独你不能用。你

千万别以为自己的机器有问题,就算你重装100次系统也是这个样子。

我的PJBLOG也是一开始在本地调试很好用,可上传到空间之后就出现了上述问题。初步辨别为COOKIES验证的问题,因为我用LBS的程序也

是这样,程序在一定上存在相互学习。我为此研究了COOKIES验证程序,发现里面有一项验证COOKIES是否有效是通过验证最后登陆IP来确定的

,我想这里面里面一定有问题,因为我是校园网的,可能刚登陆记录的IP(外网连接IP?)和从COOKIES记录的IP(内网IP地址?)不一样,我

们是通过那个外网IP上网的,而COOKIES是在本地,所以就有可能取到本地的IP了,我把那一句验证IP的程序屏蔽掉后,再上传到空间就可以正

常登陆了!!! )

请注意:以上文字择录自:http://bbs.pjhome.net/viewthread.php?tid=3770&extra=&highlight=%B5%C7%C2%BD%CE%CA%CC%E2&page=1

作者winbry 给出了解决办法,但是很可惜作者的下载连接已经失效.

经过我在网络的搜索,发现了解决办法,现在将解决办法告诉大家,特别是局域网的用户,因为你的电脑本机ip和外网ip肯定不一致,所以请

参考以下解决办法。

如果还不能解决请联系QQ:29329300

或者访问我的BLOG:

https://www.wenrouge.com/

如果你懒得改或不会改的话请直接用我给的文件覆盖原文件即可!

下面是修改方法...

1.首先修改common/checkUser.asp(主要是这个!!修改了这个就已经解决了问题了,后面的login.asp修改您可以按照自己的情况谨慎修改!也可以不用修改!)


将以下原码

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

修改成


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:


用户登录







<%if blog_useCode then%>
<%end if%>



 









附:首页显示登陆框的方法(如果您喜欢的话可以修改)

在library.asp里查找 退出系统" 将以下代码替换原来的


CODE:
else
userPanel=userPanel&"




"
end if
end function








联系QQ:29329300

欢迎访问我的BLOG:

https://www.wenrouge.com/

主站:

http://www.wenrou.cn/



点击下载此文件
评论:
wenrou
2011-04-02 17:29 回复
@silktralirriz:大家都hello
silktralirriz
2011-04-02 16:28 回复
hello world
傲灵听梦
2010-07-15 22:41 回复
照你说的修改了还是不行啊……我的QQ:446988646
copyto
2008-02-22 18:18 回复
没法加你的QQ啊  我的 木瓜世界 不能登陆 要空间商帮忙改 可还是不行啊我QQ664318697 希望得到你的帮助温柔幻刀回复:已经加你的QQ,很乐意帮助你!
发表评论:
昵称

邮件地址 (选填)

个人主页 (选填)

内容