打开ks_cls/kesion.administratorcls.asp

找到

 Dim RS:Set  RS=Conn.Execute("select ID,FolderName from KS_Class Where ChannelID=" & ChannelID & " AND tj=1 " & Param &"  Order BY FolderOrder ASC")

改成

 Dim RS:Set  RS=Conn.Execute("select ID,FolderName from KS_Class Where ClassType=1 and ChannelID=" & ChannelID & " AND tj=1 " & Param &"  Order BY FolderOrder ASC")

最后更新缓存即可