主题：文章标题列表+导读内容 修改

'================================================
 '函数名：LoadArticleList
 '作  用：装载文章列表
 '参  数：ClassID   ----分类ID
 '        ChannelID   ----频道ID
 '        SpecialID  ----专题ID
 '        sType   ----调用文章类型,0=所有最新文章，1=推荐文章，2=热门文章，3=图文文章，4=分类最新文章
 '        TopNum   ----显示文章列表数
 '        strlen   ----显示标题长度
 '        ShowClass   ----是否显示分类
 '        ShowPic   ----是否显示图文标题
 '        ShowDate   ----是否显示日期
 '        DateMode   ----显示日期模式
 '        newindow   ----新窗口打开
 '        WithIntroduce    -------是否加上导读内容 1=加上 0=不加
 '================================================
 Public Function LoadArticleList(ByVal ChannelID, ByVal ClassID, ByVal SpecialID, _
  ByVal stype, ByVal TopNum, ByVal strLen, _
  ByVal showclass, ByVal showpic, ByVal showdate, _
  ByVal DateMode, ByVal newindow, ByVal styles, ByVal WithIntroduce)
  
  Dim Rs, SQL, i, strContent, foundstr
  Dim sTitle, sTopic, ChildStr, ListStyle, BestCode, BestString
  Dim ArticleTopic, ClassName, HtmlFileUrl, WriteTime, LinkTarget, HtmlFileName
  Dim sContent

  
  ChannelID = Newasp.ChkNumeric(ChannelID)  
  If ClassID = "no" Then
     LoadArticleList = "该分类下暂时没有相关文章"
     Exit Function
  End If
  
  ClassID = Newasp.ChkNumeric(ClassID)
  SpecialID = Newasp.ChkNumeric(SpecialID)
  stype = Newasp.ChkNumeric(stype)  
  On Error Resume Next
  Newasp.LoadChannel(ChannelID)