適用系統：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
