3.0SP2-顯示同級(jí)欄目修改方法_風(fēng)訊Cms教程
教程Tag:暫無(wú)Tag,歡迎添加,賺取U幣!
適用系統(tǒng):3.0SP2,其它系統(tǒng)應(yīng)該類似
實(shí)現(xiàn)思想:在最終文章列表頁(yè)顯示同級(jí)的其它分類
修改文件:/Admin/Refresh/RefreshFunction.asp
/Admin/Refresh/SelectFunction.asp
/Editer/LableEditer.asp
添加文件:/FunPages/LableClassNavi_last.asp
/Images/Lable/Navi2.gif
實(shí)現(xiàn)方法(共四步):
第一步、打開(kāi)/Admin/Refresh/RefreshFunction.asp文件
查找“Function HotNews(”,在其上面添加以下代碼:
Function ClassNavi_Last(NaviPicStr,CompatPicStr,RowNumberStr,OpenTypeStr,CSSStyleStr,TxtNaviStr)
Dim ClassSql,RsClassObj,i
if RefreshType = "Class" then
CompatPicStr = GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
ClassSql = "Select ParentID from NewsClass where ShowTF=1 and DelFlag=0 and ClassID='" & RefreshID & "' order by orders asc"
Set RsClassObj = Conn.Execute(ClassSql)
If Not RsClassObj.Eof Then ThisParentID=RsClassObj("ParentID")
Set RsClassObj = Nothing
ClassSql = "Select SaveFilePath,ClassEName,ClassCName,FileExtName from NewsClass where ShowTF=1 and DelFlag=0 and ParentID='" & ThisParentID & "' order by orders asc"
Set RsClassObj = Conn.Execute(ClassSql)
ClassNavi_Last = " " & Chr(13) & Chr(10)
do while Not RsClassObj.Eof
ClassNavi_Last = ClassNavi_Last & " " & Chr(13) & Chr(10)
for i = 1 to RowNumberStr
ClassNavi_Last = ClassNavi_Last & " " & NaviPicStr & " " & RsClassObj("ClassCName") & "" & Chr(13) & Chr(10)
RsClassObj.MoveNext
if RsClassObj.Eof then Exit For
Next
ClassNavi_Last = ClassNavi_Last & "" & Chr(13) & Chr(10)& CompatPicStr & Chr(13) & Chr(10)
loop
ClassNavi_Last = ClassNavi_Last & "" & Chr(13) & Chr(10)
Set RsClassObj = Nothing
else
ClassNavi_Last = ""
end if
End Function
'終級(jí)欄目導(dǎo)航-Kimli添加結(jié)束
第二步:打開(kāi)/Admin/Refresh/SelectFunction.asp文件
查找“Case "hotnews"”
在其上面一行添加:
Case "classnavi_last"
if UBound(ParaArray) = 6 then
GetLableContent = ClassNavi_last(ParaArray(1),ParaArray(2),ParaArray(3),ParaArray(4),ParaArray(5),ParaArray(6))
else
GetLableContent = ""
Exit Function
end if
'END 9 7 3 1
相關(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)題下的分隔線在4.0中如何設(shè)置,還有標(biāo)題的行間距
- 隨時(shí)更換模版、廣告等,無(wú)須重新生成整站,共享出來(lái)供討論
風(fēng)訊Cms教程教程Rss訂閱Cms教程搜索
風(fēng)訊Cms教程推薦
- Windows2003服務(wù)器(IIS)設(shè)置教程(針對(duì)風(fēng)訊)
- 實(shí)現(xiàn)搜索標(biāo)題高亮顯示及搜索BUG修復(fù)
- 送4.0建站超級(jí)技巧兩則
- 2.0解決幻燈片與滾動(dòng)圖片、JS的沖突
- 3.1-巧用自由標(biāo)簽做標(biāo)題導(dǎo)讀效果
- 生成的靜態(tài)頁(yè)面調(diào)用自己寫(xiě)的動(dòng)態(tài)插件的方法及一個(gè)簡(jiǎn)單示例
- Ksir試用FS4.0 sp1專用貼
- 3.1 SP2 的友情鏈接的修改。
- 風(fēng)訊內(nèi)容網(wǎng)站管理系統(tǒng)運(yùn)行環(huán)境
- 標(biāo)簽內(nèi)容限制2000字符怎么辦?
猜你也喜歡看這些
- 創(chuàng)業(yè)網(wǎng)站模板
- 一大型網(wǎng)游模版下載
- 寵物站首頁(yè)+欄目+內(nèi)容頁(yè)模板下載
- 黃山大型門戶網(wǎng)站(2006)版模板下載
- 中國(guó)能源信息網(wǎng)DIV+CSS-仿站長(zhǎng)網(wǎng)
- 高中語(yǔ)文教學(xué)網(wǎng)
- 《我創(chuàng)意》設(shè)計(jì)站模板下載 首頁(yè)+二級(jí)頁(yè)+詳細(xì)信息頁(yè)
- 一門戶類首頁(yè)模板
- 藝域設(shè)計(jì)〓〓模板資源站
- 重慶青年網(wǎng)模版首頁(yè)+9個(gè)頻道的首頁(yè) 子頁(yè) 詳細(xì)頁(yè)
- 相關(guān)鏈接:
- 教程說(shuō)明:
風(fēng)訊Cms教程-3.0SP2-顯示同級(jí)欄目修改方法
。