内容提要：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 …… |
第一步：添加“栏目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"" cellpadd