適用系統(tǒng)：3.0SP2，其它系統(tǒng)應(yīng)該類(lèi)似
實(shí)現(xiàn)思想：一個(gè)標(biāo)簽應(yīng)用于所有模版，自動(dòng)讀取所生成類(lèi)別下（包含子類(lèi)）的內(nèi)容
修改文件：Admin/Refresh/RefreshFunction.asp
實(shí)現(xiàn)方法（三行代碼解決問(wèn)題，呵呵）：
第一步、打開(kāi)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

第二步、制作標(biāo)簽方法
實(shí)例、制作一個(gè)公用_分類(lèi)頁(yè)_推薦圖片新聞
{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}
上面的藍(lán)色字Thisclass便是申明為當(dāng)前類(lèi)別及其下子類(lèi)別！其它均為風(fēng)訊默認(rèn)，不用修改

方法簡(jiǎn)單、實(shí)用！各位在使用中有任何問(wèn)題或建議請(qǐng)跟帖討論、交流，謝謝！

本教程討論區(qū): http://bbs.foosun.net/dispbbs.asp?boardID=22&ID=13116&page=1

查看更多 風(fēng)訊cms教程  風(fēng)訊cms模板