正常访问状态! 设为首页 | 加入收藏夹 | 浏览历史  
  http://www.guosp.com
 碧海澜涛居
  海纳百川,有容乃大。壁立千刃,无欲则刚!
 
 
关键词:
  网站首页 | 关于本站 | 技术资料 | 美文日志 | 读书收藏 | 影视收藏 | 软件收藏 | 摄影相册| 留言板 
  技术资料 >> ASP资料库 关闭(快捷键alt+C)
搜索标签: 数据库 读取 access 随机 不重复
ASP随机读取access数据库并显示不重复记录方法
[阅读次数:2483次]  [发布时间:2010年5月17日]
前段时间发表的数据库随机读取列表语句是针对sql数据库和ac数据库两种的,但是都没有排除重复数据,如果你有id自动编号还好,但是如果多次读取肯定会取到同样的值,如何可以显示随机数据并不重复数据呢,这里我们采用asp代码来实现,过程如下: 
<%    
’-------------------------数据库连接-----------------------    
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    
’---------------------------    
%> 




本页地址: [复制地址]
该页内容非本站原创 收藏自:http://www.ringlove.cn/post/40.html
返回顶部 关闭(快捷键alt+C)
评论统计(0条)| 我要评论
暂无评论内容!
我要评论 
我要评论: 带*部分需要填写
 姓名称呼: * 请填写您的姓名或呢称
联系方式: QQ,MSN,Email都可以,方便交流 (仅管理员可见)
 评论内容: * 不超过100字符,50汉字
验证码:
    
  推荐链接
  最近更新  
·Host 'XXX' is not allowed...
·Win2008或IIS7的文件上传大...
·IIS7.0上传文件限制的解决方...
·测试信息2015-03-11
·asp.net中处理图片
·ASP.NET之Web打印-终极解决...
·Asp.net下C#调用Word模版实...
·asp.net下将页面内容导入到...
·asp.net导出为pdf文件
·asp.net生成pdf文件
·FCKeditor 文本编辑器的使用...
·ASP.NET 将数据生成PDF
·asp.net2.0导出pdf文件完美...
·AspJpeg的安装与测试
·JS验证浏览器版本对IE11的支...
  热门浏览  
·IE8和IE9出现“此网页上的问...
·无线路由器密码破解,教你断...
·js替换所有回车换行符
·QQ/MSN在线交流代码
·如何取消键盘上的一些快捷键...
·win7声音小的解决方法
·IE弹出“中国工商银行防钓鱼...
·强制两端对齐的函数或者CSS...
·webdav漏洞的利用
·win7下成功安装sql server ...
·显示器分辨率调的过高导致电...
·js验证手机号码格式
·天诺时空技术技术论坛
·JS展开和收缩效果(二)
·本地计算机上的 MSSQLSERVE...
  碧海澜涛居
网站首页关于本站站长简介开发案例技术资料美文日志摄影相册读书收藏影视收藏留言板
版权所有:碧海澜涛 QQ:410436434 Email:shaopo_guo@163.com 苏ICP备15000526号
免责声明:本站为个人网站,站内所有文字、图片等各类资料均为个人兴趣爱好所收集,不用作任何商业用途,亦不保证资料的真实性,若有因浏览本站内容而导致的各类纠纷,本站也不承担任何责任。本站部分内容来自互联网,如有涉及到您的权益或隐私请联系站长解决。