维护啦:提供专业网站维护服务,以实惠、方便、快捷著称!一次服务,终身朋友! ·付款帐号 ·联系我们
网站维护,网站维护教程,如何维护网站
网站维护热线: 网站维护咨询热线 网站维护:
网站维护
网站建设: 网站建设
首页
维护介绍
维护套餐
案例分享
维护申请
维护反馈
维护知识
行业动态
联系我们
建站服务请点这里>>
网站维护申请
当前位置:网站维护 > 维护知识 > 程序知识

ASP随机显示不重复记录解决方案

来源:网站维护 作者:www.weihula.com 人气: 2016-7-17
内容提示:ASP读取access数据,随机显示不重复记录解决方案。

ASP读取access数据,随机显示不重复记录解决方案。
<%
'-------------------------数据库连接-----------------------
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &_
"Data Source=" & Server.MapPath("data.mdb")
objConn.Open
  '-------------------------数据库连接-----------------------

'-------------------------检索数据-----------------------
strSQL = "SELECT id,DataColumn FROM DataTable"   
'Sql语句,检索数据库
Set objRS = Server.CreateObject("ADODB.Recordset")
'创建记录集
objRS.Open strSQL, objConn, 1, 1       
'执行检索
Count=objRS.RecordCount           
'得到记录总数
Item=4                                                        
'显示记录数
'-------------------------检索数据-----------------------

'-------------------------------------------------------------------------------
redim a(Item, 2),t(Count)
'定义2数组,数组a用来储存记录,数组t用来删选记录

'---------------------------------------
'初始数组数值,目的为了插入数据以后和此值做比较
for each j in t
    j=0
next
'---------------------------------------

'---------------------------------------
' 随机抽取记录号
Randomize timer        '初始化随机数生成器
for j=1 to Item
    k=int(rnd*Count+1)    '从总数里面随机取一条记录
    do while t(k)<>0                    '判断是否记录是否已经在数组中
      k=int(rnd*Item+1)
    loop
    t(k)=1            '第k条记录被选中
next
'--------------------------------------
j=1:i=1'定义下标

'--------------------------------------
' 循环选取数据集objRS中的部分记录存放到数组中
Do While Not objRS.Eof
      if t(j)=1 then
          a(i,1)=objRS("id")              '记录id
          a(i,2)=objRS("DataColumn") '记录内容
          i=i+1
     end if
j=j+1
objRS.MoveNext
Loop
'--------------------------------------
'-------------------------------------------------------------------------------

'----------------------------显示内容--------------------
for i=1 to Item
    Response.write "序号"&a(i,1)&"<br>"
    Response.write "内容"&a(i,2)&"<p>"
next
'----------------------------显示内容--------------------

'---------------------------
'释放资源
objRs.Close
set objRs=nothing
objConn.Close
set objConn=nothing
'---------------------------
%>

【声明】本文章系本站编辑转载,转载目的在于传递更多信息,并不代表本网赞同其观点和对其真实性负责。如涉及作品内容、版权和其它问题,请在30日内与本站联系,我们将在第一时间删除内容!
收藏本页到:

感谢您对维护啦的大力支持!

上一篇 上一篇:虚拟主机空间的好与坏的标准
下一篇 下一篇:ASP动态网页制作常用错误处理
返回文章目录 返回维护知识
icon-008.jpg (3733 bytes) icon-009.jpg (3728 bytes)
维护啦是做什么的,点此了解>>
维护啦的优势是什么,点此了解>>
维护啦服务有哪些,点此了解>>
维护服务申请,点这里>>
维护动态 网站维护套餐介绍 更多动态 维护动态
·入门型网站维护服务 申请>>
·标准型网站维护服务 申请>>
·经济型网站维护服务 申请>>
·商务型网站维护服务 申请>>
·豪华型网站维护服务 申请>>
·专业型网站维护服务 申请>>
·订制型网站维护服务 申请>>
维护动态 网站维护案例 更多动态 维护动态
西箔侯铝箔餐盒
铜川市重德热力运营管理有限公司
青海旅游包车
西安中联传感技术有限公司
莱德种业
维护动态 网站维护知识 更多动态 维护动态
·域名知识 ·空间知识
·网页知识 ·程序知识
·数据库知识 ·邮件知识
·安全知识 ·优化知识
·营销知识 ·其他知识
网站维护 网站维护申请 网站维护申请点此进入 网站维护意见反馈 反馈意见

网站维护电话咨询

网站维护 返回顶部
关于维护啦 | 案例分享 | 维护套餐 | 维护申请 | 意见反馈 | 维护知识 | 行业动态 | 友情链接 | 网站导航 | 联系方式
2023 © 网站维护 www.weihula.com 版权所有 ICP11006297