set conn=server.createobject("adodb.connection")
conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & db_path


dim rs,Aa,le
’准备读取多少记录
le = 10
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open "select * from shuju",conn,1,3
Aa = rs.recordcount-le
rs.move(randsub(Aa))
if rs.eof then response.write "wrong"
for i = 1 to le
response.write rs(1)&"<br>"
rs.movenext
next 
rs.close
conn.close
’取随机数
Function Randsub(total)
Randomize
Randsub = int((total-1+1)*rnd+1)
end Function