使用PJblog这么长时间以来一直小改不断,大改也时而发生。今天换皮的时候突然想到,要是PJblog更换新版本,也许布局也会有调整,那么皮肤自然也要重新调整才能用列。而之前改动的一些代码自然升级覆盖之后无法保留,更谈不上正常使用列,于是乎觉得还是暂且把自己修改好的地方做点笔录,对日后更新版本再做修改做好准备。 修改内容如下: 1.日志归档代码修改涉及页面:common/cache.asp将如下代码红色字及中间内容 程序代码 '—————–读取日志归档缓存——————– if action<>2 then Dim archive_item_Len,Month_array if ubound(blog_archive,1)=0 then archive="":exit function Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月") archive_item_Len=ubound(blog_archive,2) For i=0 to archive_item_Len archive=archive&"<a class=""sideA"" href=""default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&""" title=""查看当前日期的日志"">"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</a>" Next end ifend function'=====================End Function======================== 替换为: 程序代码 if action<>2 thenDim archive_item_Len,Month_array,TempYear,MonthCounterif ubound(blog_archive,1)=0 then archive="":exit functionMonth_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=0For i=0 to archive_item_LenIF 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 Thenarchive=archive&"<a style=""margin-right:3px;"" 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+1IF MonthCounter=5 Then MonthCounter=0:archive=archive&"<br/>"ElseMonthCounter=1archive=archive&"<a class=""sideA"" style=""margin:6px [...]