比如：我的網站有:

技術文章（Article.xqinfo.net），

下面有三個二級欄目：飼料營養（Doc_Nutrition）,飼料營養（Doc_Feeding）和疫病防治（Doc_Disease）

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

我做了一個標簽調用技術文章的熱點文章如：{%=HotNews("Article","10","26","1","","/Files/LabelPictures/back_3.gif","1","NewsTitle","20","?")%}

但是，這個標簽根本不起作用！！！

其實調用任何一個有下級欄目的欄目的熱點新聞，最新新聞，推薦新聞等，原3.0系統都不能夠實現！

兩種情況下3.0的熱點，推薦，最新新聞等能夠實現：

1. {%=HotNews("","10","26","1","","/Files/LabelPictures/back_3.gif","1","NewsTitle","20","?")%}
欄目名為空，即網站總欄目，但統統調用，不分欄目，就像我的站點，新聞動向，技術文章，圖片影視，企業治理等統統調用

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

為什么會出現這個情況？－－－－因為我們一般不可能在存在子欄目的父級欄目里發表新聞！！！

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

第一步：將該文件的代碼（熱點新聞調用代碼）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 = "

請確認欄目是否存在！"
Exit Function
end if
Set RsClassObj = Nothing

第二步：將該文件中的代碼（最新新聞調用代碼）837行