pjblog352修改加密日志不在首页列表显示

个人日志写的太多,不想让搜索引擎给抓走,就给加密了。但是这样后首页全是加密的东西,就有点难看了,不想让加密的日志在首页显示出来,于是折腾了下,做些下小修改:加密过的日志,只是对于普通访问者不会在首页显示,分类页会正常显示。修改很简单,但寻找修改位置和测试等还是花费了不少的时间。这里做一下记录,也可供有同需求者参考。

1、打开文件class/cls_logaction.asp,查找代码:
LoadIntro id, aCpart, aCname, aCtype, aisshow, aRight, outType

替换为如下代码:

'start 修改首页不显示加密日志 20110506
If loadType = "A" or loadType = "G" then
If stat_Admin or aisshow Then
LoadIntro id, aCpart, aCname, aCtype, aisshow, aRight, outType
Else
pageSize = pageSize + 1
End If
Else
LoadIntro id, aCpart, aCname, aCtype, aisshow, aRight, outType
End If
'end 修改首页不显示加密日志 20110506

2、打开文件class/cls_default.asp,查找如下代码:
OutNomal webLogArr, PageCount, getCate, CanRead
替换为如下代码:

'start 修改首页不显示加密日志 20110506
If IsInteger(cateID) = False Then
If stat_Admin or CanRead = True Then
OutNomal webLogArr, PageCount, getCate, CanRead
Else
blogPerPage = blogPerPage + 1
End If
Else
OutNomal webLogArr, PageCount, getCate, CanRead
End If
'end 修改首页不显示加密日志 20110506