• 运维
  • 亚博足球app官网优化托管
  • 免费seo诊断
  • 亚博足球app官网排名提升
  • 案例
  • 机电工程
  • 商务服务
  • 加工定制
  • 产品贸易
  • 家居建材
  • 其它
  • 资讯
  • 创亿动态
  • 行业动态
  • 建站动态
  • 知识
  • 亚博足球app官网建设
  • 亚博足球app官网推广
  • 亚博足球app官网优化
  • 微信专区
  • 客服中心
  • 资料下载
  • 解决方案
  • 客户答疑
  • 联系我们
  • 亚博足球app官网|娱乐游戏

    点击次数:58194 发布时间:2017-9-30 整理录入: 贵阳亚博足球app官网建设公司

    由于需要,我站需对每一年文章随机绑定并固定相关文章链接,于是写了如下程序,分享给大家:

    一、建立随机函数


    function sjacid(cateid)
        randomize(timer())
        set rsccc=server.createobject("adodb.recordset")
      rsccc.open "select * from content where categoryid="&cateid&" order  by rnd(-(id + " & int((10000 * rnd) + 1) & "))",connect,1,1
      i=0
      do while not rsccc.eof
      if sjacid="" then
      sjacid=rsccc("id")
      else
      sjacid=sjacid&","&rsccc("id")
      end if
      if not rsccc.eof then rsccc.movenext
      i=i+1
      if rsccc.eof or i>5 then exit do
      loop
          rsccc.close
          set rsccc=nothing
       end function



    此函数用于从文章数据库得到随机文章的id与并组成数组,下面为段程序用于为每年文章分配随机文章id并存入文章补充字段。

     set rsccckk=server.createobject("adodb.recordset")
      rsccckk.open "select * from content",connect,1,3
      do while not rsccckk.eof
         rsccckk("sjacid")=sjacid(rsccckk("categoryid"))
      response.write rsccckk("id")&"</br>"
      if not rsccckk.eof then rsccckk.movenext
      if rsccckk.eof then exit do
      rsccckk.update
      loop
      response.write "成功"
          rsccckk.close
          set rsccckk=nothing
     


    理稿:贵阳亚博足球app官网建设
    >>>上一条:亚博足球app官网改版,和301不得不说的故事>>>下一条:关于百度风险提示的一些问题回复