软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 网络编程 > ASP教程 > ASP代码实现access随机显示不重复记录

ASP代码实现access随机显示不重复记录

烈火网(LieHuo.Net)教程 ASP实现access随机显示不重复记录:

Copy to ClipboardLiehuo.Net Codes引用的内容:[www.veryhuo.com]
<%
  '-------------------------数据库连接-----------------------
  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
  '---------------------------
  %>

 

    相关阅读
    栏目导航
    推荐软件