让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>"

Else
          JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&GetOneDownLoadLinkURL(RsCreateObj("DownloadID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Name")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
       End If
      Else
       If RightDate = true then
          JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<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>"
       Else
          JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneDownLoadLinkURL(RsCreateObj("DownloadID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Name")),TitleNum)&"</a>&nbsp;<Span class="""&DateCSS&""">"&DateFormat(RsCreateObj("AddTime"),""&DateType&"")&"</Span>"&ListSpaceStrs&"</td>"
       End If
      End IF
       Else
      If ShowClassTF = true then
         JSCodeStr = JSCodeStr &"<td>"& NaviPic &"["&TempClassObj("ClassCName")&"]"&"<a class="""&TitleCSS&""" href="""&GetOneDownLoadLinkURL(RsCreateObj("DownloadID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Name")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&"</td>"
      Else
         JSCodeStr = JSCodeStr &"<td>"& NaviPic &"<a class="""&TitleCSS&""" href="""&GetOneDownLoadLinkURL(RsCreateObj("DownloadID"))&""""&OpenMode&">"&GotTopic(LoseHtml(RsCreateObj("Name")),TitleNum)&"</a>&nbsp;"&ListSpaceStrs&"</td>"
      End If
       End If
       RsCreateObj.MoveNext
       if i mod Cint(RowNum) = 0 or RsCreateObj.eof then

if RightDate = true then
        JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum*2&""" height=""1"" background=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
      else
        JSCodeStr = JSCodeStr &"</tr><tr><td colspan="""&RowNum&""" height=""1"" background=""" & AvailableDoMain & RsSysJsObj("RowBetween")&"""></td></tr><tr>"
      end if
       end if
     next
     If RsSysJsObj("FileType")=1 then
     Set RsTempClassObjs = Conn.Execute("Select SaveFilePath,ClassEName,FileExtName from NewsClass where ClassID='"&ClassID&"'")
      If RsTempClassObjs.eof then
       CreateSysJS = "刷新栏目已经不存在"
       Exit Function
      End If
     End If
     If RightDate = true then
      if RsSysJsObj("FileType")=1 and MoreContentTF=True then
       JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" align=Right><a class="""&LinkCSS&""" href="""&GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
      else
       JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum*2&""" height="&RowSpace&"></td></tr>"
      end if
     Else
      if RsSysJsObj("FileType")=1 and MoreContentTF=True then
       JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" align=Right><a class="""&LinkCSS&""" href=""" & GetOneClassLinkURL(RsTempClassObjs("ClassEName"),RsTempClassObjs("SaveFilePath"),RsTempClassObjs("FileExtName")) & """>"& MoreContentStr&"</a>"&ListSpaceStrs&"</td></tr>"
      else
       JSCodeStr = JSCodeStr &"<tr><td colspan="""&RowNum&""" height="&RowSpace&"></td></tr>"
      end if
     End If
     JSCodeStr = JSCodeStr & "</table>');"
     WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
     Conn.Execute("Update SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")

CreateSysJS = true
     RsCreateObj.Close
     Set RsCreateObj = Nothing
    Else
     JSCodeStr = "document.write('未查询到符合条件的下载')"
     WriteFile SaveFilePath,FileNameStr,JSCodeStr '写文件
     Conn.Execute("Update SysJs Set AddTime='"&Now()&"' where FileName='"&FileName&"'")
     CreateSysJS = "文件添加或修改成功\n\n但未找到符合条件的下载,建议您稍后再试"
    End If
'===============================蚂蚁阿德添加最新下载结束

第三步

打开 /admin/Refresh/RefreshAllJa.asp文件。

找到：

    Case "NewNews" TempNewsType = "最新新闻"
    Case "MarqueeNews" TempNewsType = "滚动新闻"

在中间插一行    Case "Newdown" TempNewsType = "最新下载"

使它变成：

    Case "NewNews" TempNewsType = "最新新闻"
    Case "Newdown" TempNewsType = "最新下载"
    Case "MarqueeNews" TempNewsType = "滚动新闻"

好了。

新建一个栏目JS，JS类型里就多出了“最新下载”一项。会按照“最新新闻”的模式显示下载名称，修改时间。

生成代码里最重要的一句话就是：

    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

想要改成其他下载调用的话（比如：最热门下载）只需要改变这个数据库调用方式就可以了。