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

kesion

<<返回列表上一个主题下一个主题打印本帖复制本帖地址

3825 查看	12 回复

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

转到：

gocc 当前离线

191 主题	8 广播	0 粉丝

添加关注

级别:一年级

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

当前不在线

gocc 发表于：2010/2/26 15:18:00 | 只看该作者查看该作者主题楼主

科汛在线考试系统(NET)

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

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

做考试题库就用#科汛在线考试系统!

反对(0)

回到顶部

回到底部

底部

gocc 当前离线

191 主题	8 广播	0 粉丝

添加关注

级别:一年级

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

当前不在线

gocc 发表于：2010/2/28 12:21:00 | 只看该作者查看该作者主题沙发

科汛在线网校系统

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

谢谢wapcr斑竹

做官网就用科汛智能建站系统!

反对(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

很好.非常不错...问题解决了

科汛商学院助您快速入门

反对(0)

回到顶部

回到底部

底部

qq262347446 当前离线

39 主题	0 广播	0 粉丝

添加关注

级别:学前班

用户积分:509 分
登录次数:28 次
注册时间:2008/2/19
最后登录:2012/9/7

当前不在线

qq262347446 发表于：2010/2/28 11:02:00 | 只看该作者查看该作者主题板凳

科汛在线网校系统

做官网就用科汛智能建站系统!

楼上说的办法很有用！！试过了。。已经恢复了。。太感谢了！

做新职业技能培训平台就选#科汛网校

反对(0)

回到顶部

回到底部

底部

wapcr 当前离线

38 主题	0 广播	0 粉丝

添加关注

级别:版主

用户积分:570 分
登录次数:41 次
注册时间:2007/7/11
最后登录:2014/1/25

当前不在线

wapcr 发表于：2010/2/28 9:03:00 | 只看该作者查看该作者主题报纸

科汛在线网校系统

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

官方的随机不怎么样用 OrderStr="Rnd(" & -1*(Int(1000*Rnd)+1) & "*I.ID)" 不错

做官网就用科汛智能建站系统!

反对(0)

回到顶部

回到底部

底部

wapcr 当前离线

38 主题	0 广播	0 粉丝

添加关注

级别:版主

用户积分:570 分
登录次数:41 次
注册时间:2007/7/11
最后登录:2014/1/25

当前不在线

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

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

反对(0)

回到顶部

回到底部

底部

代码小子当前离线

93 主题	0 广播	0 粉丝

添加关注

级别:学前班

用户积分:655 分
登录次数:49 次
注册时间:2009/6/28
最后登录:2013/3/17

当前不在线

代码小子发表于：2010/2/28 1:22:00 | 只看该作者查看该作者主题 7楼

科汛在线考试系统(NET)

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

GBK的模式也无法显示随机信息。等待官方解决。

做新职业技能培训平台就选#科汛网校

反对(0)

回到顶部

回到底部

底部

qq262347446 当前离线

39 主题	0 广播	0 粉丝

添加关注

级别:学前班

用户积分:509 分
登录次数:28 次
注册时间:2008/2/19
最后登录:2012/9/7

当前不在线

qq262347446 发表于：2010/2/27 16:02:00 | 只看该作者查看该作者主题 8楼

做在线知识付费选科汛云开店

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

我的也是如此我的是gbk的。。期待官方早日解决！！！

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

反对(0)

回到顶部

回到底部

底部

fengqihong 当前离线

34 主题	0 广播	0 粉丝

添加关注

级别:学前班

用户积分:551 分
登录次数:15 次
注册时间:2009/6/25
最后登录:2010/5/12

当前不在线

fengqihong 发表于：2010/2/27 13:43:00 | 只看该作者查看该作者主题 9楼

做考试题库就用#科汛在线考试系统!

http://www.516tour.com

科汛商学院助您快速入门

反对(0)

回到顶部

回到底部

底部

gocc 当前离线

191 主题	8 广播	0 粉丝

添加关注

级别:一年级

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

当前不在线

gocc 发表于：2010/2/27 11:25:00 | 只看该作者查看该作者主题 10楼

做在线知识付费选科汛云开店

做官网就用科汛智能建站系统!

顶上去...我不懂程序啊

科汛商学院助您快速入门

反对(0)

回到顶部

回到底部

底部

＜上一主题 | 下一主题＞

<< 返回列表

首页 1 2 下一页

Powered By KesionCMS Version X1

厦门科汛软件有限公司 © 2006-2016 页面执行0.18750秒 powered by KesionCMS 9.0