如何实现asp从access数据库中随机抽取记录 在电脑中没有真正的随机的说法.因为电脑那个是伪随机，不信你可以随机生成十组随机数.你会发现每组随机数都是一样的，所以我们在产生随机数的时候一定要有种子.那个种子一定要用不一样的数字.这样才能生成出不一样的随机数来
asp随机抽取数据库数据 随机提取10条记录的例子：Sql server：select top 10*from 表 order by newid()Access：Select top 10*FROM 表 orDER BY Rnd(id)Rnd(id)其中的id是自动编号字段，可以利用。
asp+access 怎样才能随机抽数据库中的记录？ 简单高效：不重复随机读取数据库记录Set rs=Server.CreateObject(\"Adodb.RecordSet\")rs.open sql，conn，1，1DIM AppearedCall DisRndRecord(10，rs.recordCount)'调用函数该位置显示记录'#SUBS#'#DisRndRecord(DisNum，rsBound)'#参数DisNum：显示数量'#参数rsBound：随机数产生范围Sub DisRndRecord(DisNum，rsBound)DIM i，ThisRndIf rsBound记录总数小于要抽取记录条数的情况For i=0 To DisNum-1ThisRnd=GetRnd(rsBound)'取得一个不重复的随机数rs.Move(ThisRnd)'游标移动到随机数位置数读取Response.Write(\"(\"&rs(\"id\")&\")\"&rs(\"Title\"))rs.Move(-ThisRnd)NextEnd Sub'#函数GetRnd(bound)返回一个不重复的随机数字'#参数bound：随机范围Function GetRnd(bound)DIM ranNumRandomize()ranNum=int(bound*rnd)If Instr(Appeared，\"[\"&ranNum&\"]\")Then'产生的随机数是否出现过ranNum=getRnd(bound)End IfAppeared=Appeared&\"[\"&ranNum&\"]\"'记录已出现的随机数GetRnd=ranNumEnd Function
asp随机抽取数据库数据 随机提取10条记录的例子：Sql server：select top 10*from 表 order by newid()Access：Select top 10*FROM 表 orDER BY Rnd(id)Rnd(id)其中的id是自动编号字段，可以利用其他任何数值来完成比如用姓名字段(UserName)Select top 10*FROM 表 orDER BY Rnd(len(UserName))MySql：Select*From 表 order By rand()Limit 10然后你可以用数组来接收，在登陆的时候和数据判断一下就可以了啊！想登陆一次也很简单啊，给一个FLAG标识就可以了
ASP如何把从库中查询到的多条符合条件的记录中随机抽取一条 set rs=server.CreateObject(\"ADODB.Recordset\")rs.open sql，conn，1，1randomzierndNum=int((rs.recordCount)*rnd)rs.move(rndNum)response.write(rs(\"字段\"))
ASP从数据库的表中随机抽取几条信息显示到页面怎么做 如果是知mssql数据库的话，道查询的时候可内以用容select top 6*from content where s_id=1 order by newid()如果是accessORDER BY rnd(id)
请问asp.net中怎么随机抽取数据库记录？
asp 从记录集中随机取出一条记录 asp从access数据库中随机5261抽取记录'随机抽取选择题Set rs=Server.CreateObject(\"ADODB.Recordset\")rs.open\"SELECT id from[shiti]where type=1 order by Rnd(id)\"，conn，1，1Count=rs.RecordCountredim a(xzcount)，t(Count)for each j in tj=0next' 随机抽取记录号Randomize timer '初始化随4102机数生成器for j=1 to xzcountk=int(rnd*Count+1)'从总1653数里面随机取一条记录do while t(k)<；>；0 '判断是否记录是否已经在数组中k=int(rnd*xzcount+1)loopt(k)=1 '第k条记录被选中nextj=1：i=1'定义下标' 循环选取数据集rs中的部分记录存放到数组中do while not rs.Eofif t(j)=1 thena(i)=rs(\"id\")'记录idi=i+1end ifj=j+1rs.MoveNextLooprs.closefor i=1 to xzcountrs.open\"select*from[shiti]where id=\"&a(i)&\"\"，conn，1，1rnd(id)可以改变记录的顺序
