是代码写错了,/KS_Cls/Kesion.Label.FunctionCls.asp在274行和366行的函数错了

274行

ORDER BY I.IsTop Desc,I." & GetOrderParam() 改成ORDER BY I.IsTop Desc," & GetOrderParam()

  '取排序方式
  Function GetOrderParam()
   Dim OrderStr
   OrderStr  = ParamNode.getAttribute("orderstr")  : If OrderStr="" Then OrderStr=" I.ID Desc"
   OrderStr=Lcase(OrderStr)
   If trim(OrderStr)="rnd" Then
    If DataBaseType=1 Then
     OrderStr="newid()"
    Else
     Randomize : OrderStr="Rnd(-(I.ID+"&Rnd()&"))"
    End If
    ElseIf Lcase(Left(Trim(OrderStr),2))<>"id" Then 
    OrderStr=OrderStr & ",I.ID Desc"
    End If
    GetOrderParam = OrderStr
  End Function

改成

 '取排序方式
 Function GetOrderParam()
  Dim OrderStr:OrderStr = ParamNode.getAttribute("orderstr")
  If OrderStr="" Then OrderStr=" I.ID Desc"
  OrderStr = LCase(OrderStr)
  If Trim(OrderStr)="rnd" Then
     If DataBaseType=1 Then
     OrderStr="I.NewID()"
     Else
     Randomize()
     OrderStr="Rnd(" & -1*(Int(1000*Rnd)+1) & "*I.ID)"
     End If
     ElseIf LCase(Left(Trim(OrderStr),2))<>"id" Then 
     OrderStr= "I."&OrderStr & ",I.ID Desc"
  End If
  GetOrderParam = OrderStr
 End Function