问题：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

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