3.0SP2-實(shí)現(xiàn)公用標(biāo)簽，超簡單

2024-08-30 19:06:09

字體：大中小

供稿：網(wǎng)友

適用系統(tǒng)：3.0SP2，其它系統(tǒng)應(yīng)該類似
實(shí)現(xiàn)思想：一個(gè)標(biāo)簽應(yīng)用于所有模版，自動讀取所生成類別下（包含子類）的內(nèi)容
修改文件：Admin/Refresh/RefreshFunction.asp
實(shí)現(xiàn)方法（三行代碼解決問題，呵呵）：
第一步、打開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è)公用_分類頁_推薦圖片新聞
{%=RecPic("Thisclass","4","1","1","30","0","4","120","80","","6")%}
上面的藍(lán)色字Thisclass便是申明為當(dāng)前類別及其下子類別！其它均為風(fēng)訊默認(rèn)，不用修改

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

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

上一篇：風(fēng)訊系統(tǒng)自建標(biāo)簽的方法和使用

下一篇：3.0SP2-顯示同級欄目修改方法