·进入以前版本帮助
·官方站
·技术论坛
·演示中心
·域名主机
·智能建站系统
·商业版本购买
·关于我们
四川成都武侯区惠民街109号A座8层1-34、36
邮编:610041
电话总机:028-85098980; 028-66026180; 028-82105266
产品咨询:602, 代理合作:601
技术支持:607, 项目开发606
网站建设:609, 客服:608
市场支持:605,028-82105266
网站建设:028-85098980/605,028-82105266, 传真603
电子邮件:service@foosun.cn, office@foosun.cn, MSN:foosun0@hotmail.com | |
|
| 位置：首页>>使用技巧>>正文 |
| 3.1-终极栏目导航简单修改 |
| 属性：2005-12-19 下午 04:15:00|| |
|
本文讨论区：http://www.foosun.net/dispbbs.asp?boardID=6&ID=17355&page=1
栏目导航终极就不显示了，我改动很少部分代码让栏目导航可以在终极的时候就显示同等级的栏目导航
找到
Function ClassNavi(NaviPicStr,CompatPicStr,RowNumberStr,OpenTypeStr,CSSStyleStr,TxtNaviStr)
在Set RsClassObj = Conn.Execute(ClassSql) 下添加
'sean modify-----------------------
if RsClassObj.Eof then
Set RsClassObj = Nothing
ClassSql = "Select SaveFilePath,ClassEName,ClassCName,FileExtName,ParentID from FS_NewsClass where ClassID='" & RefreshID & "'"
Set RsClassObj = Conn.Execute(ClassSql)
If Not RsClassObj.Eof Then thisRefreshID=RsClassObj("ParentID")
Set RsClassObj = Nothing
ClassSql = "Select SaveFilePath,ClassEName,ClassCName,FileExtName from FS_NewsClass where ShowTF=1 and DelFlag=0 and ParentID='" & thisRefreshID & "' order by Orders desc"
Set RsClassObj = Conn.Execute(ClassSql)
end if
'sean modify | |
|
