【个人收藏】修改pjblog2日志归档改行显示

2006年12月1日 11:22 | by 猢狲

　具体修改方法为在common文件夹下找到cache.asp，用任意的文本或网页编辑软件打开，在249行附近找到处理日志归档的函数archive，我们的修改都在这个函数中完成。

参考：
海枫博客 http://blog.haifol.com/article.asp?id=424
Jinn's Blog http://www.jinnlife.com/article.asp?id=162

　　将以下代码覆盖掉原文件中“读取日志归档缓存”后从“if action<>2 then”到“end if”之间的所有代码

if action<>2 then
Dim archive_item_Len,Month_array,TempYear,MonthCounter
if ubound(blog_archive,1)=0 then archive="":exit function
Month_array=Array("01月","02月","03月","04月","05月","06月","07月","08月","09月","10月","11月","12月")
archive_item_Len=ubound(blog_archive,2)
TempYear=blog_archive(1,0)
MonthCounter=0
For i=0 to archive_item_Len
IF i=0 Then archive="<a class=""sideA"" style=""margin:0px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"</a>"
IF blog_archive(1,i)=TempYear Then
archive=archive&"<a style=""margin-right:5px;"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title="""&blog_archive(1,i)&"年"&blog_archive(2,i)&"月有"&blog_archive(0,i)&"篇日志"">"&Month_array(blog_archive(2,i)-1)&"</a>"
MonthCounter=MonthCounter+1
IF MonthCounter=6 Then MonthCounter=0:archive=archive&"<br/>"
Else
MonthCounter=1
archive=archive&"<a class=""sideA"" style=""margin:6px 0px 0px -2px;"" href=""default.asp?log_Year="&blog_archive(1,i)&""" title=""查看"&blog_archive(1,i)&"年的日志"">"&blog_archive(1,i)&"</a>"
archive=archive&"<a style=""margin-right:5px;"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title="""&blog_archive(1,i)&"年"&blog_archive(2,i)&"月有"&blog_archive(0,i)&"篇日志"">"&Month_array(blog_archive(2,i)-1)&"</a>"
TempYear=blog_archive(1,i)
End IF
Next
end if

　　此外为了使月份能够按顺序输出还需要将该函数前面的“写入日志归档缓存”中的“Month([log_PostTime]) Desc”改为“Month([log_PostTime]) ASC”。　　
　　OK，最后再到后台管理中重建数据缓存就一切搞定了。
　　PS：某些皮肤的侧边较窄，如果发生撑破侧边栏的话，可将代码中的“MonthCounter=6”的数字改小。

版权所有。转载时必须以链接形式注明作者和原始出处及本声明！
如果你有其他要求，可用这个邮箱联系我：