首页 » Blog » 博客相关 ✿ weblog » 浏览内容
将日志归档改为下拉列表框
日志归档PJBlog是以完全显示在侧边栏上，
可是随着时间过去，你的归档也会变得强大也占用侧边栏
美观度也影响不少。改成下拉列表框，
不但可以节省不少的侧边栏位置，视觉上也感觉简单一些。
打开common/cache.asp，在第275行找到这一段代码
复制内容到剪贴板
程序代码
程序代码'—————–读取日志归档缓存——————–
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=5 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
end function
'=====================End Function========================
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=5 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
end function
'=====================End Function========================
将它们替换成以下代码：
复制内容到剪贴板 程序代码
程序代码'—————–读取日志归档缓存——————–
if action<>2 then
Dim archive_item_Len,Month_array
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)
'==========修改的日志归档下拉列表==========
archive="<div style='OVERFLOW: hidden; HEIGHT:0px'> </div><select onChange='window.location.href=this.options[this.selectedIndex].value'>"
archive=archive&"<option selected value='http://www.minisix.cn/blog'>::回忆过去||昨天记忆::</option>"
For i=0 to archive_item_Len
archive=archive&"<option value='default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&"'>"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</option>"
'==========修改的日志归档下拉列表===========
Next
archive=archive&"</select>"
end if
end function
'=====================End Function========================
if action<>2 then
Dim archive_item_Len,Month_array
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)
'==========修改的日志归档下拉列表==========
archive="<div style='OVERFLOW: hidden; HEIGHT:0px'> </div><select onChange='window.location.href=this.options[this.selectedIndex].value'>"
archive=archive&"<option selected value='http://www.minisix.cn/blog'>::回忆过去||昨天记忆::</option>"
For i=0 to archive_item_Len
archive=archive&"<option value='default.asp?log_Year="&blog_archive(1,i)&"&log_Month="&blog_archive(2,i)&"'>"&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]</option>"
'==========修改的日志归档下拉列表===========
Next
archive=archive&"</select>"
end if
end function
'=====================End Function========================
其中红色部分改成你的地址链接和你想要显示在下拉列表框的文字，就可以了！
评论 共0条 (RSS 2.0) 发表评论