|
适用系统：3.0SP2，其它系统应该类似
实现思想：一个标签应用于所有模版，自动读取所生成类别下（包含子类）的内容
修改文件：Admin/Refresh/RefreshFunction.asp
实现方法（三行代码解决问题，呵呵）：
第一步、打开Admin/Refresh/RefreshFunction.asp文件
查找
Function ChirldClassID(ClassEnameStr)
下面约4、5行处，将
Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"') order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
替换为：
If ClassEnameStr="Thisclass" then
Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID='"&RefreshID&"' order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassID='"&RefreshID&"' order by ID desc")
Else
Set RsChirldFunObj = Conn.Execute("Select ClassID from NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"') order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
End if
第二步、制作标签方法
实例、制作一个公用_分类页_推荐图片新闻
{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}
上面的蓝色字Thisclass便是申明为当前类别及其下子类别！其它均为风讯默认，不用修改
方法简单、实用！各位在使用中有任何问题或建议请跟帖讨论、交流，谢谢！
本教程讨论区: http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=13116&page=1 | 
