张学友歌坛地位:怎样随机读取数据库的几条记录

取5次随机数

<%
on error resume next
set conn=server.createobject("adodb.connection")
conn.open "provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("data/qq.mdb")
if err then
err.clear
response.write "数据库连接出错，请与管理员联系"
end if
sql="select * form Article_Info"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
DIM Appeared
Call DisRndRecord(5,rs.recordCount)

Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
If rsBound < DisNum Then DisNum = rsBound
For i = 0 To DisNum - 1
ThisRnd = GetRnd(rsBound)
rs.Move(ThisRnd)
if rs.eof and rs.bof then
response.Write "无记录!"
else
response.Write rs("news_title")+"<br>"
end if
rs.Move(-ThisRnd)
Next
End Sub

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
rs.close
set rs=nothing
%>

改一下数据库名和response输出字段就可以用了