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

5588 查看	5 回复

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

转到：

科汛官方当前离线

47268 主题	145 广播	405 粉丝

级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
创始人

科汛官方发表于：2012/8/16 14:21:49 | 只看该作者查看该作者主题楼主

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

问题：http://bbs.kesion.com/forumthread-778494.html

解决方法：

打开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

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

KesionCMS,,

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