让JS像调用“最新新闻”一样调用“最新下载”

第一步：添加“栏目JS”中的“最新下载”选项

需要修改的文件（修改相同，每个文件有两处）：

   /Admin/Js/SysJsAdd.asp
   /Admin/Js/SysJsModify.asp

查找：          <option value="ProclaimNews" <%if Request("NewsType") = "ProclaimNews" then Response.Write("selected")%>>公告新闻</option>

在下边添加：          <option value="Newdown" <%if Request("NewsType") = "NewDown" then Response.Write("selected")%>>最新下载</option>

成为：

          <option value="ProclaimNews" <%if Request("NewsType") = "ProclaimNews" then Response.Write("selected")%>>公告新闻</option>
          <option value="Newdown" <%if Request("NewsType") = "NewDown" then Response.Write("selected")%>>最新下载</option>

第二步 添加生成代码：

修改文件：/admin/Inc/Cls_RefreshJs.asp

在里面找到Js生成部分也就是这个代码：

   End If
   Case Else
    if RsSysJsObj("FileType")=1 then
     RsCreateSql = "Select top "&NewsNum&" * From News where ClassID in ('"&ClassIDStr&"') and DelTF=0 and AuditTF=1 order by AddDate desc" '最新新闻

在Case Else上边 End If 的下边添加：

'=================================蚂蚁阿德添加最新下载开始
   Case "Newdown"
    if RsSysJsObj("FileType")=1 then
     RsCreateSql = "Select top "&NewsNum&" * From Download where ClassID in ('"&ClassIDStr&"') and  AuditTF=1 order by AddTime desc" '最新下载
    else
     RsCreateSql = "Select top "&NewsNum&" * From Download where  AuditTF=1 order by AddTime desc" '最新下载
    end if
    Set RsCreateObj = Conn.Execute(RsCreateSql)
    If Not RsCreateObj.eof then
     JSCodeStr = "document.write('<table width=""100%"" border=""0"" cellpadding=""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>"