'设定zbzxad_recordcount后可将下行参数删除zbzxad_recordcount=5set rs=server.CreateObject("adodb.recordset") sql="select * from money_url" rs.open sql,conn,1,1'打开数据库表 For i=1 To 5randomize'随机得到记录 p=Int((rs.recordcount*rnd)+1)'在全部记录中生成随机数 rndid=p set rs2=server.CreateObject("adodb.recordset") sql2="select * from money_url