修改日志归档为下拉列表的方法

首先打开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 if
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("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
            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.weike365.cn'>威客365</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_archi