天行博客

Function Export
        
                Add ZC_BLOG_HOST,Empty,"daily",Empty,ZC_BLOG_HOST&"?mod=wap"
                '输出博客地址
                
                Dim i,URL,objRS
        
                Dim objArticle
                Dim C
                Call SiteMap_Initialize
                C=SiteMapC.Read("c")
                If c="" Then c=0
                c=CInt(c)
                '读取配置
                Set objRS=objConn.Execute("SELECT [log_ID],[log_Tag],[log_CateID],[log_Level],[log_AuthorID],[log_PostTime],[log_Istop],[log_Url],[log_Type] FROM [blog_Article] WHERE ([log_ID]>0) AND ([log_Level]>2) AND ([log_Type]="&ZC_POST_TYPE_ARTICLE&") ORDER BY [log_PostTime] DESC")
                '读取数据库


                Do Until objRs.Eof        
                        
                        If i=C And c>0 then Exit Do
                        Set objArticle=New TArticle


                        If objArticle.LoadInfoByArray(Array(objRs(0),objRs(1),objRs(2),"","","",objRs(3),objRs(4),objRs(5),0,0,0,objRs(7),objRs(6),"","",objRs(8),"")) Then
                                AddobjArticle.Url,objArticle.PostTime,"monthly",IIf(objArticle.IsTop=True,"1.0",Empty),Replace(objArticle.WapUrl,"wap.asp?","?mod=wap&")
                                '添加数据