3.0SP2-实现公用标签，超简单-风讯CMS教程

适用系统：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