3.1-超簡(jiǎn)單實(shí)現(xiàn)公用標(biāo)簽_風(fēng)訊Cms教程
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!
適用系統(tǒng):3.1
實(shí)現(xiàn)思想:一個(gè)標(biāo)簽應(yīng)用于所有模版,自動(dòng)讀取所生成類(lèi)別下(包含子類(lèi))的內(nèi)容
修改文件:Admin/Refresh/RefreshFunction.asp
實(shí)現(xiàn)方法(較3.0SP2版本多了第二步):
第一步、打開(kāi)Admin/Refresh/RefreshFunction.asp文件
查找 Function ChirldClassID(ClassEnameStr)
Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
第二步:最新新聞、熱點(diǎn)新聞、推薦新聞處另外修改(假如還有其它項(xiàng)目請(qǐng)回帖)
查找
dim TemppID,TemppSql,EndClassIDList
If ClassEName<>"" then
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
Else
EndClassIDList=""
end if 替換為:
'kimli修改_公用標(biāo)簽
dim TemppID,TemppSql,EndClassIDList
If ClassEName="" then
EndClassIDList=""
Elseif ClassEName="Thisclass" then
EndClassIDList= "'" &RefreshID& "'" & AllChildClassIDStrList(RefreshID)
Else
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
End if
'kimli修改_公用標(biāo)簽結(jié)束
實(shí)現(xiàn)思想:一個(gè)標(biāo)簽應(yīng)用于所有模版,自動(dòng)讀取所生成類(lèi)別下(包含子類(lèi))的內(nèi)容
修改文件:Admin/Refresh/RefreshFunction.asp
實(shí)現(xiàn)方法(較3.0SP2版本多了第二步):
第一步、打開(kāi)Admin/Refresh/RefreshFunction.asp文件
查找 Function ChirldClassID(ClassEnameStr)
下面約4、5行處,將
Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID=(Select ClassID from FS_NewsClass where ClassEName='"&ClassEnameStr&"') order by AddTime,id desc")Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
替換為:
If ClassEnameStr="Thisclass" then
Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID='"&RefreshID&"' order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassID='"&RefreshID&"' order by ID desc")
Else
Set RsChirldFunObj = Conn.Execute("Select ClassID from FS_NewsClass where ParentID=(Select ClassID from NewsClass where ClassEName='"&ClassEnameStr&"') order by AddTime,id desc")
Set ChirldClassObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassEName='"&ClassEnameStr&"' order by ID desc")
End if
第二步:最新新聞、熱點(diǎn)新聞、推薦新聞處另外修改(假如還有其它項(xiàng)目請(qǐng)回帖)
查找
dim TemppID,TemppSql,EndClassIDList
If ClassEName<>"" then
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
Else
EndClassIDList=""
end if 替換為:
'kimli修改_公用標(biāo)簽
dim TemppID,TemppSql,EndClassIDList
If ClassEName="" then
EndClassIDList=""
Elseif ClassEName="Thisclass" then
EndClassIDList= "'" &RefreshID& "'" & AllChildClassIDStrList(RefreshID)
Else
If SoonClassStr="1" then
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList= "'" & TemppID(0) & "'" & AllChildClassIDStrList(TemppID(0))
Else
TemppSql="select ClassID from FS_NewsClass where ClassEName='" & ClassEName & "'"
Set TemppID=conn.execute(TemppSql)
EndClassIDList="'" & TemppID(0) & "'"
End if
End if
'kimli修改_公用標(biāo)簽結(jié)束
第三步、制作標(biāo)簽方法
實(shí)例、制作一個(gè)公用_分類(lèi)頁(yè)_推薦圖片新聞
相關(guān)風(fēng)訊Cms教程:
- 最簡(jiǎn)單的欄目切換方法(樣式系列之欄目切換篇2)
- 我也放個(gè)欄目切換代碼,簡(jiǎn)簡(jiǎn)單單的。
- 搜狐女性頻道幻燈效果(幻燈系列之flash特效篇)
- 有效控制新聞內(nèi)容的圖片的尺寸
- 現(xiàn)提供增加<目錄生成規(guī)則>的方法!
- 風(fēng)訊里面上下篇標(biāo)簽DIV模式下浮動(dòng)的解決方法!
- 風(fēng)訊目錄路徑自由選擇的實(shí)現(xiàn)方法
- 新聞列表讀取內(nèi)容時(shí)去掉html代碼
- 添加文字廣告的解決方案!
- 發(fā)些滾動(dòng)的代碼
- 標(biāo)題下的分隔線(xiàn)在4.0中如何設(shè)置,還有標(biāo)題的行間距
- 隨時(shí)更換模版、廣告等,無(wú)須重新生成整站,共享出來(lái)供討論
風(fēng)訊Cms教程教程Rss訂閱Cms教程搜索
風(fēng)訊Cms教程推薦
- 發(fā)表評(píng)論后自動(dòng)返回新聞瀏覽頁(yè)
- 風(fēng)訊系統(tǒng)文章、下載模塊共有的功能
- 風(fēng)訊里面上下篇標(biāo)簽DIV模式下浮動(dòng)的解決方法!
- 添加下載列表內(nèi)容簡(jiǎn)介字?jǐn)?shù)控制
- 風(fēng)訊后臺(tái)配置
- 3.1-下載自動(dòng)套用欄目設(shè)定模板的修改方法
- 3.0SP1如果沒(méi)有修改下載,下載修改時(shí)間顯示的是00.00.0.,修改成添加時(shí)間
- 什么是CMS系統(tǒng)?
- 我的風(fēng)汛學(xué)習(xí)方法---新手請(qǐng)進(jìn),高手請(qǐng)多多指點(diǎn)。
- 關(guān)于子欄目列表導(dǎo)航圖片問(wèn)題的修正方法 [供參考]
- 相關(guān)鏈接:
- 教程說(shuō)明:
風(fēng)訊Cms教程-3.1-超簡(jiǎn)單實(shí)現(xiàn)公用標(biāo)簽
。