3.0SP2-顯示同級欄目修改方法

2024-08-30 19:06:09

字體：大中小

供稿：網(wǎng)友

適用系統(tǒng)：3.0SP2，其它系統(tǒng)應(yīng)該類似
實(shí)現(xiàn)思想：在最終文章列表頁顯示同級的其它分類
修改文件：/Admin/Refresh/RefreshFunction.asp
/Admin/Refresh/SelectFunction.asp
/Editer/LableEditer.asp
添加文件：/FunPages/LableClassNavi_last.asp
/Images/Lable/Navi2.gif

實(shí)現(xiàn)方法（共四步）：
第一步、打開/Admin/Refresh/RefreshFunction.asp文件
查找“Function HotNews(”，在其上面添加以下代碼：

'終級欄目導(dǎo)航-Kimli添加
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
'終級欄目導(dǎo)航-Kimli添加結(jié)束

第二步：打開/Admin/Refresh/SelectFunction.asp文件
查找“Case "hotnews"”
在其上面一行添加：

'終極分類-Kimli添加
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
'END9 7 3 1

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

下一篇：3.1-增加批量設(shè)置新聞屬性功能

發(fā)表評論 共有條評論

用戶名: 密碼:

驗(yàn)證碼: 匿名發(fā)表

學(xué)習(xí)交流

更多

練就火眼金睛十一種常見電腦

打印機(jī)共享提示“操作無法完成

如何查找有故障的配件
如何查找有故障的配件...

綠毒越獄軟件完美越獄4.21教程12-21

htcg15怎么刷機(jī)？htcg15刷機(jī)教程12-21

HTC hd7刷安卓2.2全教程12-21

mpkg軟件下載和卸載的方法12-21

網(wǎng)站后臺系統(tǒng)設(shè)置的網(wǎng)站地址格式寫法07-09

防止重復(fù)提交js按鈕變灰07-09

不同時間顯示不同的廣告代碼07-09

iframe框架調(diào)用高度自適應(yīng)方法07-09

備份數(shù)據(jù)庫出現(xiàn)問題的解決方法07-09

熱門圖片

更多

回眸一笑百魅生，六宮粉黛無顏色

歲月靜美，剪一影煙雨江南

蕪湖有個“松鼠小鎮(zhèn)”

小滿：小得盈滿，一切剛剛好！

一串串晶瑩剔透的葡萄，像一顆顆寶石掛在藤

正宗老北京脆皮烤鴨

人逢知己千杯少，喝酒搞笑圖集

搞笑試卷，學(xué)生惡搞答題

猜你喜歡的新聞

最牛同桌！我考了696分我同桌考了703分

650分！高二女生考入北大：遺憾不能上高三

男生估分600只考了397 媽媽：高考雖重要，但不

唐尚珺回應(yīng)是否會直播帶貨：有人出100萬想和

名校搶人名場面：清華、北大太拼了！

男生高考語文滿分！網(wǎng)友：第一次聽說

第16次參加高考！唐尚珺今年成績超600分

語文145分學(xué)霸筆記公開字跡清秀：多閱讀，該背

數(shù)學(xué)滿分！四川綿陽一男生高考710分理綜僅扣

阿里全球數(shù)學(xué)競賽選手：決賽專業(yè)性太強(qiáng)，6道題

猜你喜歡的關(guān)注

SupeSite默認(rèn)焦點(diǎn)輪轉(zhuǎn)圖簡單美化方法_SupeS

SupeSite7.5 讓會員中心擁有不同的title和

SupeSite7.5 benbaHTML生成方案第一版_Supe

SupeSite7.5發(fā)布評論后直接跳轉(zhuǎn)回到文章頁

SupeSite7.5 讓資訊發(fā)布日期更加個性化_Sup

SupeSite7.5 benbaHTML生成方案第一版_Supe

SupeSite7.5發(fā)布評論后直接跳轉(zhuǎn)回到文章頁

SupeSite7.5 讓資訊發(fā)布日期更加個性化_Sup

SupSite模型無權(quán)限評論修改方案_SupeSite教

SupSite模板里經(jīng)常用到以下幾個標(biāo)簽的說明_