栏目导航中的”同级频道导航和当前频道导航“的代码中每一项都有class=currclass。-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2890 查看	6 回复

主题：栏目导航中的”同级频道导航和当前频道导航“的代码中每一项都有class=currclass。 [收藏主题]

转到：

yanglxg2010 当前离线

562 主题	13 广播	4 粉丝

级别:五年级

用户积分:2810 分
登录次数:158 次
注册时间:2010/3/17
最后登录:2018/10/7

yanglxg2010 发表于：2012/8/15 17:08:23 | 显示全部帖子查看该作者主题楼主

做线上考试培训就选#科汛网校

栏目导航中的”同级频道导航和当前频道导航“的代码中每一项都有class="currclass"。
如何修改成像v8那样。

v9导航:

复制代码

<ul><li class="currclass"><a href="/Item/list.asp?id=690">国内</a></li> <li class="currclass"><a href="/Item/list.asp?id=689">国际</a></li> <li class="currclass"><a href="/Item/list.asp?id=688">社会</a></li> <li class="currclass"><a href="/Item/list.asp?id=684">经济</a></li> <li class="currclass"><a href="/Item/list.asp?id=683">文化</a></li> <li class="currclass"><a href="/Item/list.asp?id=682">娱乐</a></li> <li class="currclass"><a href="/Item/list.asp?id=680">教育</a></li> <li class="currclass"><a href="/Item/list.asp?id=679">健康</a></li> <li class="currclass"><a href="/Item/list.asp?id=678">生活</a></li> <li class="currclass"><a href="/Item/list.asp?id=675">视频</a></li> <li class="currclass"><a href="/Item/list.asp?id=674">房产</a></li> <li class="currclass"><a href="/Item/list.asp?id=1202">财经</a></li> <li class="currclass"><a href="/html/Special/Index.asp">专题</a></li></ul>

v8导航:

复制代码

<ul> <li class="currclass"><a href="/Item/list.asp?id=690">国内</a></li> <li><a href="/Item/list.asp?id=689">国际</a></li> <li><a href="/Item/list.asp?id=688">社会</a></li> <li ><a href="/Item/list.asp?id=684">经济</a></li> <li><a href="/Item/list.asp?id=683">文化</a></li> <li><a href="/Item/list.asp?id=682">娱乐</a></li> <li><a href="/Item/list.asp?id=680">教育</a></li> </ul>

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

yanglxg2010 当前离线

562 主题	13 广播	4 粉丝

级别:五年级

用户积分:2810 分
登录次数:158 次
注册时间:2010/3/17
最后登录:2018/10/7

yanglxg2010 发表于：2012/8/15 22:01:26 | 显示全部帖子查看该作者主题沙发

做考试题库就用#科汛在线考试系统!

复制代码

'增加第一级导航判断 ElseIf Instr(KS.C_C(Fcls.RefreshFolderID,8),",")<>0 And Instr(Node.SelectSingleNode("@ts").text,",")<>0 then if Split(Node.SelectSingleNode("@ts").text,",")(0)=Split(KS.C_C(Fcls.RefreshFolderID,8),",")(0) Then echo " <li class=""currclass"""&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" else echo " <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">" end if '===========

增加第一级导航判断出现了上述问题

增加第一级导航判断影响了二级频道导航

求解决方法

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

yanglxg2010 当前离线

562 主题	13 广播	4 粉丝

级别:五年级

用户积分:2810 分
登录次数:158 次
注册时间:2010/3/17
最后登录:2018/10/7

yanglxg2010 发表于：2012/8/16 14:46:20 | 显示全部帖子查看该作者主题藤椅

做线上考试培训就选#科汛网校

解决方法：

打开ks_cls/kesion.label.functioncls.asp

找到

2026行左右

For Each Node In XML.DocumentElement.SelectNodes("row")

         ClassID=Node.SelectSingleNode("@id").text

      If FCls.RefreshFolderID=ClassID or (UCase(FCls.RefreshType) = "INDEX" and kk=0) Then

      echo  "  <li class=""currclass"""&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      '增加第一级导航判断

      ElseIf  Instr(KS.C_C(Fcls.RefreshFolderID,8),",")<>0 And Instr(Node.SelectSingleNode("@ts").text,",")<>0 then

      if Split(Node.SelectSingleNode("@ts").text,",")(0)=Split(KS.C_C(Fcls.RefreshFolderID,8),",")(0) Then

         echo  "  <li class=""currclass"""&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      else

         echo  "  <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      end if

      '===========

      Else

      echo  "  <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      End If

      echo "<a " & KS.GetCss(T_Css) & " href=""" & KS.GetFolderPath(ClassID) & """" & O_P_T & ">" & Trim(Node.SelectSingleNode("@foldername").text) & "</a></li>"

      kk=kk+1

      Next

修改为：

For Each Node In XML.DocumentElement.SelectNodes("row")

         ClassID=Node.SelectSingleNode("@id").text

      If FCls.RefreshFolderID=ClassID or (UCase(FCls.RefreshType) = "INDEX" and kk=0) Then

      echo  "  <li class=""currclass"""&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      '增加第一级导航判断

      ElseIf  Split(KS.C_C(Fcls.RefreshFolderID,8)&",",",")(0)=classid then

         echo  "  <li class=""currclass"""&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      '===========

      Else

      echo  "  <li"&KS.GetCssID(LIID)&KS.GetCss(LICss)&">"

      End If

      echo "<a " & KS.GetCss(T_Css) & " href=""" & KS.GetFolderPath(ClassID) & """" & O_P_T & ">" & Trim(Node.SelectSingleNode("@foldername").text) & "</a></li>"

      kk=kk+1

      Next

注意两段加颜色的代码是修改的部分。

一分钟快速开通线上知识店铺

支持(0) |

反对(0)

顶端

底部

＜上一主题 | 下一主题＞

首页 1