问题如标题

解决方法：

打开 ks_cls/kesion.label.functioncls.asp

找到并增加以下红色的代码即可

Function GetEnterpriseNewsList(LabelStyle)

       If Not XMLDoc.loadxml("<label><param " & LabelParamStr & " /></label>") Then

     GetEnterpriseNewsList="标签加载出错" : Exit Function

    Else

     Set ParamNode=XMLDoc.DocumentElement.SelectSingleNode("param")

    End If

    Dim SmallClassID,DateRule,OrderStr

       LabelID   = ParamNode.getAttribute("labelid")

    ClassID   = ParamNode.getAttribute("bigclassid") : If Not IsNumeric(ClassID) Then ClassID=0

    SmallClassID   = ParamNode.getAttribute("smallclassid") : If Not IsNumeric(SmallClassID) Then SmallClassID=0

    AjaxOut   = ParamNode.getAttribute("ajaxout")

    DateRule  = ParamNode.getAttribute("daterule")

    Num       = ParamNode.getAttribute("num")

    OrderStr  =ParamNode.getAttribute("orderstr") : If OrderStr="" Then OrderStr="id desc"

     Param="Where status=1"

    If ClassID<>0 Then Param=Param & " And BigClassID=" & ClassID

    If SmallClassID<>0 Then Param=Param & " And SmallClassID=" & SmallClassID

     If ParamNode.getAttribute("callbyspace")="true" And Not KS.IsNul(Session("SpaceUserName")) Then Param=Param & " And username='" & Session("SpaceUserName") & "'"

    If Instr(lcase(orderStr),"hits")<>0 Then Param=Param & " order by " & OrderStr & ",id desc" Else Param=Param &" order by " & OrderStr

    If LabelID<>"ajax" and Cbool(ParamNode.getAttribute("ajaxout"))=true Then

     GetEnterpriseNewsList="<span id=""ks" & LabelID & "_0_0_0_0""></span>":Exit Function

    End If

    Dim SqlStr:SqlStr="Select TOP " & num & " * From KS_EnterPriseNews " & Param

   Dim RS:Set RS=Conn.Execute(SqlStr)

   If Not RS.Eof Then Set XMLSql=KS.RsToXml(RS,"row","root") Else XMLSql=Empty

   RS.Close:Set RS=Nothing

   If IsObject(XMLSql) Then

    Set DocNode=XMLSql.DocumentElement.SelectNodes("row")

    GetEnterpriseNewsList=ExplainDiyStyle(LabelStyle,DocNode.length)

   End If

   Set Node=Nothing

  End Function

谢谢分享！

有方法实现分页吗？