解决方法:
打开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
注意两段加颜色的代码是修改的部分。