暂时解决方法：

找到ks_cls/ks_labelcls.asp.并找到约2480行

 Dim ASort: If Lcase(Left(Trim(S_Str),2))<>"id" Then  ASort=S_Str & ",ID Desc" Else ASort=S_Str
      SqlStr = "SELECT  ID FROM " & KS.C_S(ChannelID,2) &" Where " & Param & " Verific=1 AND DelTF=0 order by IsTop Desc,ID Desc," & Asort

改成

 Dim ASort: If Lcase(Left(Trim(S_Str),2))<>"id" Then  ASort=S_Str & ",ID Desc" Else ASort=S_Str
      SqlStr = "SELECT  ID FROM " & KS.C_S(ChannelID,2) &" Where " & Param & " Verific=1 AND DelTF=0 order by IsTop Desc," & Asort