Question

asp access数据库随机读出一条或多条怎么写？会asp的朋友帮忙写下

Answer 1

很复杂，给我点分吧，我给你写
<%
Function GetRandomizeCode()
Randomize
Dim m_strRandArray,m_intRandlen,m_strRandomize,i
m_strRandArray = Array(1,2,3,4,5,6,7,8,9)
m_intRandlen = 1 ''定义随机码的长度,这里为了让它生成0-9的数字
for i = 1 to m_intRandlen
m_strRandomize = m_strRandomize & m_strRandArray(clng((2*Rnd)))
next
GetRandomizeCode = m_strRandomize
End Function

'上面代码是生成随机数字的函数，范围是1-9，我们将利用它来决定读取多少条数据

Function GetRandomizeCode1()
Randomize
Dim m_strRandArray1,m_intRandlen1,m_strRandomize1,i1
m_strRandArray1 = Array(1,2,3,4,5,6,7,8,9,0)
m_intRandlen1 = 2 ''定义随机码的长度,这里为了让它生成2位数
for i1 = 1 to m_intRandlen1
m_strRandomize1 = m_strRandomize1 & m_strRandArray1(clng((2*Rnd)))
next
GetRandomizeCode1 = m_strRandomize1
End Function

dim fw
fw=GetRandomizeCode1()-GetRandomizeCode() '怕你的数据库条数过少，这里做个限制，让2位数减1位数，那么结果最大是98，最小是1。

'上面代码是生成随机2位数字的函数，范围是1-98，我们将利用它来决定读取数据库ID的范围

Set Rs=Server.CreateObject("adodb.recordset")
sql="select top GetRandomizeCode() * from 表 where id>fm order by id desc" '数据库查询
Rs.open Sql,conn,1,1

'说明：select top GetRandomizeCode()【这句就是选取多少条的意思了，GetRandomizeCode()就是随机的1-9，那么结果最多读取9条，最少是1条】
'说明：where id>fm 【 这句就是让它读取符合id大于[1-90之间的数字]的数据库 】

%>
好了 上面的读取和调用的核心部分代码都完成了，也都给你做了注释，你自己在显示的时候做个循环就有可以了