自定义标签Flash幻灯新闻

内容提要：1．点击:自由标签-新建-设置新闻表,大致如下 ２．生成SQL语句 Select Top 10 ID,NewsID,Title,Path,PicPath,FilterNews from FS_News where FilterNews=1 Order by ID Desc ４．添加代码 table width='100%' borde ……

ing=""0"" cellspacing="""&RowSpace&"""><tr>"
     for i=1 to NewsNum
       If RsCreateObj.eof then Exit For
       Set TempClassObj = Conn.Execute("Select ClassEName,ClassCName,SaveFilePath from NewsClass where ClassID=''"&RsCreateObj("ClassID")&"''")
       If DateTF = true then
      If ShowClassTF = true then
       If RightDate = true then
          JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&GetOneDownLoadLinkURL(RsCreateObj("DownloadID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Name")),TitleNum)&"</a></td><td><div align=Right><Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</div></td>"