asp 随机选择一条数据

set rs=server.createobject("adodb.recordset")
sql="select * from message order by id"
 
rs.open sql,conn,1,3
upperbound = rs.recordcount
Randomize
Qno = Int((upperbound - 2) * Rnd + 1)
rs.move(Qno)