相关文章
中国个人站长的出路:英文网站
从文章小事·看调查网站·评同行公司 ..
网站制作深入理解css中的position定位和z-index属性
北京网站制作Dreamweaver经典问题大搜罗(三)
网页设计第五节 html源文件操作
北京网站制作CSS滤镜:Mask属性
北京网站设计FLASH MX 2004视频教程:《火影忍者》片头制作(一)
北京网站建设Flash8滤镜与混合模式(3):混合模式初探
网页设计Flash8滤镜与混合模式(1):滤镜效果概览
北京网页设计一个优秀的超链接鼠标悬停提示CSS＋js
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置：首页 >> 网站制作 >> 网页设计网页设计3.0SP2-显示同级栏目修改方法
网页设计网页设计3.0SP2-显示同级栏目修改方法
适用系统：3.0SP2，其它系统应该类似 网站制作网页设计
网页设计实现思想：在最终文章列表页显示同级的其它分类企通互联
修改文件：/Admin/Refresh/RefreshFunction.asp北京网站建设
/Admin/Refresh/SelectFunction.asp北京网站建设
/Editer/LableEditer.asp网站建设
添加文件：/FunPages/LableClassNavi_last.asp网页设计
/Images/Lable/Navi2.gif网站建设
北京网站设计
实现方法（共四步）：企通互联
第一步、打开/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 = "
| " & NaviPicStr & " " & RsClassObj("ClassCName") & " | " & Chr(13) & Chr(10)网站制作
Set RsClassObj = Nothing网站制作
else网站建设 www.qitongnet.com
ClassNavi_Last = ""北京网页设计
end if北京网站制作
End Function北京网站设计
'终级栏目导航-Kimli添加结束北京网站制作
第二步：打开/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