本文討論區(qū):http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=6687&page=1 以前標(biāo)簽中要么是總欄目，要么是最小級欄目，才起作用，假如是大類欄目，根本不起作用！

比如：我的網(wǎng)站有:

　

技術(shù)文章（Article.xqinfo.net），

下面有三個(gè)二級欄目：飼料營養(yǎng)（Doc_Nutrition）,飼料營養(yǎng)（Doc_Feeding）和疫病防治（Doc_Disease）

二級欄目下還有子欄目，就不再多說了，我在http://Article.xqinfo.net的首頁想調(diào)用熱點(diǎn)新聞，

我做了一個(gè)標(biāo)簽調(diào)用技術(shù)文章的熱點(diǎn)文章如：{%=HotNews("Article","10","26","1","","/Files/LabelPictures/back_3.gif","1","NewsTitle","20","·")%}

但是，這個(gè)標(biāo)簽根本不起作用�。�！

其實(shí)調(diào)用任何一個(gè)有下級欄目的欄目的熱點(diǎn)新聞，最新新聞，推薦新聞等，原3.0系統(tǒng)都不能夠?qū)崿F(xiàn)！

兩種情況下3.0的熱點(diǎn)，推薦，最新新聞等能夠?qū)崿F(xiàn)：

1. {%=HotNews("","10","26","1","","/Files/LabelPictures/back_3.gif","1","NewsTitle","20","·")%}
欄目名為空，即網(wǎng)站總欄目，但統(tǒng)統(tǒng)調(diào)用，不分欄目，就像我的站點(diǎn)，新聞動(dòng)向，技術(shù)文章，圖片影視，企業(yè)治理等統(tǒng)統(tǒng)調(diào)用

2. {%=HotNews("英文欄目名稱","10","26","1","","/Files/LabelPictures/back_3.gif","1","NewsTitle","20","·")%}
這個(gè)欄目必須是最底級的欄目，如我的站點(diǎn)：營養(yǎng)理論（是最底級欄目，上級為飼料營養(yǎng)，再上級為技術(shù)文章）

為什么會出現(xiàn)這個(gè)情況？－－－－因?yàn)槲覀円话悴豢赡茉诖嬖谧訖谀康母讣墮谀坷锇l(fā)表新聞�。�！

　

所以我們就提出了修改方案，主要就是修改/Admin/Refresh/RefreshFunction.asp文件

　

第一步：將該文件的代碼（熱點(diǎn)新聞?wù){(diào)用代碼）807行

HotNewsSql = "Select *,NewsClass.FileExtName as ClassFileExtName,News.FileExtName as NewsFileExtName from News,NewsClass where News.ClassID=NewsClass.ClassID and DelTF=0 and News.AuditTF=1 and NewsClass.ClassEName='" & ClassEName & "' order by News.ClickNum Desc"

替換為：

Dim ClassSql,RsClassObj,AllClassID

ClassSql = "Select ClassID from NewsClass where ClassEName='" & ClassEName & "'"
Set RsClassObj = Conn.Execute(ClassSql)
if Not RsClassObj.Eof then
AllClassID = "'" & RsClassObj("ClassID") & "'" & ChildClassIDList(RsClassObj("ClassID"))
HotNewsSql = "Select *,NewsClass.FileExtName as ClassFileExtName,News.FileExtName as NewsFileExtName from News,NewsClass where News.ClassID=NewsClass.ClassID and News.ClassID in (" & AllClassID & ") and DelTF=0 and News.AuditTF=1 order by News.ClickNum Desc"
else
HotNews = "

請確認(rèn)欄目是否存在！"
Exit Function
end if
Set RsClassObj = Nothing

第二步：將該文件中的代碼（最新新聞?wù){(diào)用代碼）837行

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板