KesionCMS V9.5版本，官方已经加入了顶级栏目可以加入{#CurrClass}得到当前栏目自动加入样式curr

详细看：http://bbs.kesion.com/forumthread-1109123.html

之前KesionCMS V9.0x 官方也给出了顶级栏目自动加入currclass的修改方法

详细看：http://bbs.kesion.com/forumthread-1071734.html

本文中介绍的方法是对子栏目加currclass的修改方法

用途：比如做普通企业站时，产品存在子分类，可以默认让产品子分类加currclass样式

修改方法如下：

将http://bbs.kesion.com/forumthread-1071734.html 文中红色代码部分

替换为如下代码：

    Dim ArrCurrClass : ArrCurrClass = KS.C_C(Fcls.RefreshFolderID,8)
    If Instr(tempstr,"{#CurrClass}")<>0 And Instr(ArrCurrClass,",")<>0 then
       if Split(ArrCurrClass,",")(Ubound(Split(ArrCurrClass,","))-1)=KS_RS_Obj("id") or (UCase(FCls.RefreshType) = "INDEX" and N=1) then
         tempstr=replace(tempstr,"{#CurrClass}"," class=""currclass""")
       else
         tempstr=replace(tempstr,"{#CurrClass}","")
       end if
    End If

使用方法：

备注：调用KS_RS_Obj("id")的前提是在SQL标签的SQL语句中存在ID列

在sql标签的循环体里加入{#CurrClass}标签

例如：<li{#CurrClass}> 或者<a href="#"{#CurrClass}>

这样在产品栏目页和产品详情页，都可以当前栏目加载currclass样式