Set rsyear=Server.Createobject("Adodb.Recordset")
sql="select year(addtime) as y from BlogArticle group by year(addtime) order by year(addtime) desc "
rsyear.open sql,conn,1,1
do while not rsyear.eof
        Set rsmonth=Server.Createobject("Adodb.Recordset")
        sql="select count(*),month(addtime) from BlogArticle where year(addtime)="&rsyear(0)&" group by month(addtime)  order by month(addtime) desc "
        rsmonth.open sql,conn,1,1
        do while not rsmonth.eof
                content_temp=content
                content_temp=replace(content_temp,"$yearmonth$",rsyear(0) & rsmonth(1))
                content_temp=replace(content_temp,"$yearmonth2$",rsyear(0) & "年" & rsmonth(1) &"月")
                content_temp=replace(content_temp,"$yearno$",rsmonth(0))
                content_all=content_all & content_temp
        rsmonth.movenext
        loop
rsyear.movenext
loop