|
第一步：添加“栏目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>" | 
