202405月202303月202007月201706月201602月08月201501月05月08月09月11月
201401月03月05月06月07月
09月10月11月201305月08月09月11月12月
201201月02月03月05月201101月02月03月04月05月
06月07月08月09月10月
11月12月201001月02月03月04月05月
06月07月08月09月10月
11月12月200901月02月03月04月05月
06月07月08月09月10月
11月12月200801月02月03月04月05月
06月07月08月09月10月
11月12月200701月02月03月04月05月
06月07月08月09月10月
11月12月200601月02月03月04月05月
06月07月08月09月10月
11月12月200502月04月07月08月09月
10月11月12月
修改日志归档改行显示
作者:jogocun 日期:2006-12-01 20:32
正在载入,请稍候……
具体修改方法为在common文件夹下找到cache.asp,用任意的文本或网页编辑软件打开,在249行附近找到处理日志归档的函数archive,我们的修改都在这个函数中完成。
将以下代码覆盖掉原文件中“读取日志归档缓存”后从“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
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”的数字改小。 谷歌AD正在载入,请稍候……
点此快速转到评论处,留下您的宝贵见解吧^_^ 本文如需转载,请详细注明出处,尊重版权,尊重别人的劳动成果,谢谢合作哦! |
评论列表 ↓ 点击显示/隐藏3条博友们的评论