打开ks_cls/kesion.staticcls.asp

找到133行，增加以下红色代码：

Param = " Where I.Verific=1 And I.DelTF=0"
      If CBool(IncludeSubClass) = True Then
      Param= Param & " And I.Tid In (" & KS.GetFolderTid(RSObj("ID")) & ")"
      Else
      Param= Param & " And I.Tid='" & RSObj("ID") & "'"
      End If
      
      Dim SQLParam:SQLParam=ParamNode.getAttribute("sqlparam")
      If Not KS.IsNul(SQLParam) Then
       Param=Param & " " & SQLParam
       End If
      
      
      Set KMRFObj= New RefreshFunction
      Set KMRFObj.ParamNode=ParamNode
         Call KMRFObj.LoadField(ChannelID,PrintType,PicStyle,ShowPicFlag,FieldStr,TableName,Param)