6.5版本utf8的万能列表的随机排序调不出来数据-领先建站CMS提供服务商我们专注于CMS建站产品的研发

3819 查看	12 回复

主题：[BUG求助]6.5版本utf8的万能列表的随机排序调不出来数据 [收藏主题]

转到：

gocc 当前离线

191 主题	8 广播	0 粉丝

级别:一年级

用户积分:1865 分
登录次数:407 次
注册时间:2008/7/15
最后登录:2023/1/26

gocc 发表于：2010/2/26 15:18:00 | 显示全部帖子查看该作者主题楼主

一分钟快速开通线上知识店铺

我新下载的6.5版本utf8的万能列表的随机排序调不出来数据,大家的可以吗?

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

gocc 当前离线

191 主题	8 广播	0 粉丝

级别:一年级

用户积分:1865 分
登录次数:407 次
注册时间:2008/7/15
最后登录:2023/1/26

gocc 发表于：2010/2/28 12:21:00 | 显示全部帖子查看该作者主题沙发

一分钟快速开通线上知识店铺

谢谢wapcr斑竹

有课程找生源就上科汛课堂街

支持(0) |

反对(0)

顶端

底部

gocc 当前离线

191 主题	8 广播	0 粉丝

级别:一年级

用户积分:1865 分
登录次数:407 次
注册时间:2008/7/15
最后登录:2023/1/26

gocc 发表于：2010/2/28 12:20:00 | 显示全部帖子查看该作者主题藤椅

做线上考试培训就选#科汛网校

以下是引用wapcr在2010-2-28 9:01:00的发言：

是代码写错了,/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