国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 網(wǎng)站 > 建站經(jīng)驗 > 正文

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

2024-08-30 19:06:09
字體：大 中 小
來源：轉載
供稿：網(wǎng)友

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

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

'終級欄目導航-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
'終級欄目導航-Kimli添加結束

第二步：打開/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
共2頁上一頁12下一頁

發(fā)表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發(fā)表
主站蜘蛛池模板： 嵩明县| 根河市| 新郑市| 藁城市| 张家川| 宁强县| 蒙自县| 龙游县| 安顺市| 芜湖县| 科尔| 浦东新区| 齐河县| 丰宁| 盈江县| 九寨沟县| 隆林| 泗阳县| 昌宁县| 宁都县| 六枝特区| 安吉县| 奉新县| 新平| 顺平县| 沙坪坝区| 米林县| 广东省| 东平县| 平度市| 长治县| 嘉定区| 桃园市| 宜丰县| 临桂县| 鲁甸县| 游戏| 疏附县| 曲阜市| 康乐县| 宁国市|