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

查看更多 風訊cms教程  風訊cms模板