见到很多朋友想知道怎么将日志归档改成下拉列表，本来早想写出来的，可惜这几天一直没时间，呵呵
0s7M8b%L mGK:q1演示看我的网站吧～www.x-force.cn创意公社- ideaerT4\-\F3i
创意公社- ideaer8H|0VyM
首先打开common/cache.asp，找到这一段代码www.x-force.cn
3t&U|0iV8Pa1    '-----------------读取日志归档缓存--------------------创意公社- ideaerRqn\!I9E
    if action<>2 then创意公社- ideaer@q cZ/L V]^^,mZ5A
            Dim archive_item_Len,Month_array创意公社- ideaer4\`#Gnu!i;e-z/ki3O
            if ubound(blog_archive,1)=0 then archive="":exit function创意公社- ideaereGmWdp&}9o&}J
            Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")
bf7Ef9xN
B1            archive_item_Len=ubound(blog_archive,2)创意公社- ideaert!r^*wBqb
            For i=0 to archive_item_Len创意公社- ideaer`w$cb$B i`md
                archive=archive&""&blog_archive(1,i)&"年"&Month_array(blog_archive(2,i)-1)&" ["&blog_archive(0,i)&"]"创意公社- ideaer/O1i-?)i[/rsFE
            Next创意公社- ideaer{R/U8Q,OP N!s
    end if
:U`NJTk5E7{1end function创意公社- ideaerb$PzFJ)E*U9i
把他们修改成：www.x-force.cn创意公社- ideaerds3P)W(]{Kx
    '-----------------读取日志归档缓存--------------------创意公社- ideaerD'o5iT5z"vZ
    if action<>2 then创意公社- ideaer_Y n)x|2p(O0s.I
            Dim archive_item_Len,Month_array
,RJbA,S,f1            if ubound(blog_archive,1)=0 then archive="":exit function创意公社- ideaerT4PZn7g2EQ^
            Month_array=Array("一月","二月","三月","四月","五月","六月","七月","八月","九月","十月","十一月","十二月")创意公社- ideaerK^f$i*sF
Cj-P
            archive_item_Len=ubound(blog_archive,2)创意公社- ideaer*G0L,PA*fV
'==========X-Force修改的日志归档下拉列表==========
{z p6cc)t0E#X,~b1            archive="