以前標(biāo)簽中要么是總欄目,要么是最小級(jí)欄目,才起作用,假如是大類欄目,根本不起作用! 比如:我的網(wǎng)站有:
技術(shù)文章(Article.xqinfo.net),
下面有三個(gè)二級(jí)欄目:飼料營(yíng)養(yǎng)(Doc_Nutrition),飼料營(yíng)養(yǎng)(Doc_Feeding)和疫病防治(Doc_Disease)
二級(jí)欄目下還有子欄目,就不再多說(shuō)了,我在http://Article.xqinfo.net的首頁(yè)想調(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è)有下級(jí)欄目的欄目的熱點(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è)欄目必須是最底級(jí)的欄目,如我的站點(diǎn):營(yíng)養(yǎng)理論(是最底級(jí)欄目,上級(jí)為飼料營(yíng)養(yǎng),再上級(jí)為技術(shù)文章)
為什么會(huì)出現(xiàn)這個(gè)情況?----因?yàn)槲覀円话悴豢赡茉诖嬖谧訖谀康母讣?jí)欄目里發(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 = "請(qǐng)確認(rèn)欄目是否存在! "
Exit Function
end if
Set RsClassObj = Nothing
第二步:將該文件中的代碼(最新新聞?wù){(diào)用代碼)837行
|
新聞熱點(diǎn)
疑難解答