解决方法：


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




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