解决热点新闻，最新新闻，推荐新闻大类标签不起作用的问题

bucuo123

解决热点新闻，最新新闻，推荐新闻大类标签不起作用的问题

                               
登录/注册后可看大图

以前标签中要么是总栏目，要么是最小级栏目，才起作用，假如是大类栏目，根本不起作用！比如：我的网站有:
技术文章（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","·")%}
但是，这个标签根本不起作用！！！
[color=,其实调用任何一个有下级栏目的栏目的热点新闻，最新新闻，推荐新闻等，原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","·")%}
这个栏目必须是最底级的栏目，如我的站点：营养理论（是最底级栏目，上级为饲料营养，再上级为技术文章）
[color=,为什么会出现这个情况？－－－－因为我们一般不可能在存在子栏目的父级栏目里发表新闻！！！
所以我们就提出了修改方案，主要就是修改/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行
LastNewsSql = "Select Top " & NewNumberStr & " *,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.ID Desc"
替换为
Dim ClassSql,RsClassObj,AllClassID