修改日志归档改行显示

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