增加随机效果SQL数据库的解决方案-领先建站CMS提供服务商我们专注于CMS建站产品的研发

58665 查看	90 回复

主题：增加随机效果SQL数据库的解决方案 [收藏主题]

转到：

htb618 当前离线

84 主题	0 广播	0 粉丝

级别:学前班

用户积分:1023 分
登录次数:75 次
注册时间:2006/3/29
最后登录:2012/3/16

htb618 发表于：2009/3/10 16:11:00 | 只看该作者查看该作者主题 61楼

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

应该修改

GetPictureList.asp

以及

GetArticleList.asp文件吧？

科汛商学院助您快速入门

支持(0) |

反对(0)

顶端

底部

qinggege 当前离线

22 主题	0 广播	0 粉丝

级别:学前班

用户积分:384 分
登录次数:24 次
注册时间:2008/5/23
最后登录:2015/6/29

qinggege 发表于：2009/5/10 21:06:00 | 只看该作者查看该作者主题 62楼

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

改文件不便于日后升级呀

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

支持(0) |

反对(0)

顶端

底部

fqzcp 当前离线

162 主题	2 广播	0 粉丝

级别:一年级

用户积分:2757 分
登录次数:195 次
注册时间:2007/10/28
最后登录:2015/5/31

fqzcp 发表于：2009/3/21 11:21:00 | 只看该作者查看该作者主题 63楼

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

我也看下

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

支持(0) |

反对(0)

顶端

底部

一生有你当前离线

10439 主题	0 广播	18 粉丝

级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
创始人

一生有你发表于：2009/3/10 16:02:00 | 只看该作者查看该作者主题 64楼

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

不错,谢谢分享

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

支持(0) |

反对(0)

顶端

底部

htb618 当前离线

84 主题	0 广播	0 粉丝

级别:学前班

用户积分:1023 分
登录次数:75 次
注册时间:2006/3/29
最后登录:2012/3/16

htb618 发表于：2009/3/10 15:24:00 | 只看该作者查看该作者主题 65楼

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

不行啊。

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

支持(0) |

反对(0)

顶端

底部

htb618 当前离线

84 主题	0 广播	0 粉丝

级别:学前班

用户积分:1023 分
登录次数:75 次
注册时间:2006/3/29
最后登录:2012/3/16

htb618 发表于：2009/3/10 14:47:00 | 只看该作者查看该作者主题 66楼

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

根据您提供的修改方法，修改后没有你说的这个效果啊；

我用的是SQL数据库。

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

支持(0) |

反对(0)

顶端

底部

htb618 当前离线

84 主题	0 广播	0 粉丝

级别:学前班

用户积分:1023 分
登录次数:75 次
注册时间:2006/3/29
最后登录:2012/3/16

htb618 发表于：2009/3/10 14:18:00 | 只看该作者查看该作者主题 67楼

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

555555555555555555555555555

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

支持(0) |

反对(0)

顶端

底部

sunsons 当前离线

429 主题	0 广播	2 粉丝

级别:四年级

用户积分:3563 分
登录次数:673 次
注册时间:2009/1/22
最后登录:2017/6/6

sunsons 发表于：2009/3/10 13:53:00 | 只看该作者查看该作者主题 68楼

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

此主题相关图片如下：随机3.jpg

修改：

Admin\Include\Label\GetPicArticleList.asp

[replyview]

查找“头条”，在后面添加

  .Write "                <input name=""ArticleProperty"" title=""可以利用这个属性制作 "热门图片" 栏目""type=""radio"" id=""ArticleProperty"" value=""3"""
  If ArticleProperty = 3 Then .Write (" Checked")
  .Write ">头条"

'----这里开始加入下面的内容-----

  .Write "                <input name=""ArticleProperty"" title=""可以利用这个属性制作 "随机图片" 栏目""type=""radio"" id=""ArticleProperty"" value=""4"""
  If ArticleProperty = 3 Then .Write (" Checked")
  .Write ">随机"

[/replyview]

修改：

KS_Cls\Kesion.Label.FunctionCls.asp

[replyview]

查找“取得图片文章列表函数”，看到这些代码：

   Select Case A_P
       Case "1":A_PStr = " And Recommend=1"
       Case "2":A_PStr = " And Popular=1"
       Case "3":A_PStr = " And Strip=1"

      '这里开始添加下面代码
      Case "4":
       'update: 2009-03-10 by jiangsili
        Randomize
       Select Case DataBaseType
           Case 0:
             'for access
             S_Str="rnd(-(id+" & rnd(Ks.MakeRandom(5)) & "))"
          Case Else:
            'for sql
           S_Str="newid()"
        End select
   End Select