V6.x循环栏目标签小问题的修改

科汛V6的栏目循环列表标签如果判断到是当前栏目,无论你指定的父栏目为哪个都只会调用当前栏目下的子栏目

现在我们来通过小修改,仅当在建标签时选择当前栏目通用,才调用当前栏目下的子栏目,否则调用指定栏目下的子栏目,解决方法如下

用编辑工具打开ks_cls/kesion.label.functioncls.asp

找到以下代码

Function GetCirClassList(LabelStyle)
       If Not XMLDoc.loadxml("<label><param " & LabelParamStr & " /></label>") Then
    GetCirClassList = "标签加载出错!" : Exit Function
    Else
     Set ParamNode=XMLDoc.DocumentElement.SelectSingleNode("param")
    End If
     Dim ClassParam,SQLStr,ClassXml,ClassNode,I,ClassStyle,DocStyle,ClassStr,LoopClassStyle,ID,ClassBasicInfoArr,ClassPrintType

       LabelID   = ParamNode.getAttribute("labelid")
             ClassID   = ParamNode.getAttribute("classid")
    ClassPrintType=ParamNode.getAttribute("classprinttype") : If Not IsNumeric(ClassPrintType) Then ClassPrintType=1
   
    If LabelID<>"ajax" and Cbool(ParamNode.getAttribute("ajaxout"))=true Then
     GetCirClassList="<span id=""ks" & LabelID & "_" & ParamNode.getAttribute("classid") & "_" & FCls.RefreshFolderID & "_0""></span>":Exit Function
    End If
   
    ClassParam  =" Where ClassType=1"
   
    If InStr(ClassID,",")<>0 Then
     ClassParam = ClassParam & " And ID in('" & Replace(ClassID,",","','")& "')"
    Else
     ClassParam = ClassParam & " And TN='" & FCls.RefreshFolderID & "'" 
    End If
    
    SQLStr="Select Top 50 ID From KS_Class " & ClassParam & " Order By root,folderorder"
   

我们将以上红色代码改成如下即可

 If InStr(ClassID,",")<>0 Then
     ClassParam = ClassParam & " And ID in('" & Replace(ClassID,",","','")& "')"
    ElseIf ClassID="-1" Then
     ClassParam = ClassParam & " And TN='" & FCls.RefreshFolderID & "'"
    Else
     ClassParam = ClassParam & " And TN='" & ClassID & "'"
    End If
 

这样修改后,就不会出现指定的栏目无效的情况了