解决方法：

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

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

参考：http://bbs.kesion.com/forumthread-780306.html