set conn=server.createobject("adodb.connection") conn.Open "provider=Microsoft.Jet.OLEDB.4.0;data source=" & db_pathdim 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&……