Question

高分求 ASP 随机读取 数据库 内容的完整代码

以随机读取并显示ACCESS数据库中的10条内容为例！
新手，看不懂麻烦楼上楼下的解释得祥细一点！ 先谢谢了！

Answer 1

SQL = "SELECT TOP 10 ID FROM table1 ORDER BY Rnd(-(ID + " & Int((10000 * Rnd) + 1) & "))"

Answer 2

先定义个随机数
Randomize()
intRandomNumber=Int(1000*Rnd)+1

select top 10 * from 表 ORDER BY Rnd("&-1*(intRandomNumber)&"*随即的字段)

Answer 3

太简单了，大家搞这么复杂干嘛？
一条命令

Select TOP 10 * FROM [您的表] Order By Rnd(id)

Answer 4

<%
set rss=server.createobject("adodb.recordset")
sql="select gongsmc,UserID from TW_User where flag=false order by UserID desc"
rss.open sql,conn,1,1

DIM Appeared
'Call DisRndRecord(20,rs.recordCount)'调用函数该位置显示记录

'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#参数DisNum：显示数量
'#参数rsBound：随机数产生范围
Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
response.Write "<table width=100% height=0 border=0 align=center cellpadding=0 cellspacing=0 class=atext2><tr>"
If rsBound < DisNum Then DisNum = rsBound'记录总数小于要抽取记录条数的情况
For i = 1 To DisNum
ThisRnd = GetRnd(rsBound)'取得一个不重复的随机数
rss.Move(ThisRnd)'游标移动到随机数位置数读取
Response.Write("<td align=left height=18><a href=index_show.asp?id="&rss("UserID")&" target=_blank style=font-size:12px;line-height:20px;color:#34437A title="&rss("gongsmc")&">  "&left(rss("gongsmc"),15)&"</a></td>")
if (i mod 4)=0 then
response.Write "</tr>"
end if
rss.Move(-ThisRnd)
Next
response.Write "</table>"
End Sub
'# 函数GetRnd(bound)返回一个不重复的随机数字
'#参数bound：随机范围
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then'产生的随机数是否出现过
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]"'记录已出现的随机数
GetRnd = ranNum
End Function

%>