RNumber = Int(Rnd*499) +1
　
While Not objRec.EOF

软件开发网 www.mscto.com

If objRec("ID") = RNumber THEN

... 这里是执行脚本 ...

end if 软件开发网 www.mscto.com

objRec.MoveNext

Wend 　　
这很容易理解。首先，你取出1到500范围之内的一个随机数（假设500就是数据库内记录的总数）。然后，你遍历每一记录来测试ID 的值、检查其是否匹配RNumber。满足条件的话就执行由THEN 关键字开始的那一块代码。假如你的RNumber 等于495，那么要循环一遍数据库花的时间可就长了。虽然500这个数字看起来大了些，但相比更为稳固的企业解决方案这还是个小型数据库了，后者通常在一个数据库内就包含了成千上万条记录。这时候不就死定了？ 　　
采用SQL，你就可以很快地找出准确的记录并且打开一个只包含该记录的recordset，如下所示：
Randomize

RNumber = Int(Rnd*499) + 1

　
SQL = "SELECT * FROM Customers WHERE ID = " & RNumber

　
set objRec = ObjConn.Execute(SQL) 软件开发网 www.mscto.cn

Response.WriteRNumber & " = " & objRec("ID") & " " & objRec("c_email")
　　不必写出RNumber 和ID，你只需要检查匹配情况即可。只要你对以上代码的工作满意，你自可按需操作“随机”记录。Recordset没有包含其他内容，因此你很快就能找到你需要的记录这样就大大降低了处理时间。
　　再谈随机数　　
现在你下定决心要榨干Random 函数的最后一滴油，那么你可能会一次取出多条随机记录或者想采用一定随机范围内的记录。把上面的标准Random 示例扩展一下就可以用SQL应对上面两种情况了。
　　为了取出几条随机选择的记录并存放在同一recordset内，你可以存储三个随机数，然后查询数据库获得匹配这些数字的记录：
　　SQL = "SELECT * FROM Customers WHERE ID = " & RNumber & " OR ID = " & RNumber2 & " OR ID = " & RNumber3
　　假如你想选出10条记录（也许是每次页面装载时的10条链接的列表），你可以用BETWEEN 或者数学等式选出第一条记录和适当数量的递增记录。这一操作可以通过好几种方式来完成，但是 SELECT 语句只显示一种可能（这里的ID 是自动生成的号码）：

SQL = "SELECT * FROM Customers WHERE ID BETWEEN " & RNumber & " AND " & RNumber & "+ 9"
　　注意：以上代码的执行目的不是检查数据库内是否有9条并发记录。
　　随机读取若干条记录，测试过Access语法：
SELECT top 10 * From 表名 ORDER BY Rnd(id)

Sql server:select top n * from 表名 order by newid()

mysql select * From 表名 Order By rand() Limit n　　
Access左连接语法(最近开发要用左连接,Access帮助什么都没有,网上没有Access的SQL说明,只有自己测试, 现在记下以备后查)

语法 select table1.fd1,table1,fd2,table2.fd2 From table1 left join table2 on table1.fd1,table2.fd1 where ...
　　使用SQL语句 用...代替过长的字符串显示
　　语法：
　　SQL数据库：select case when len(field)>10 then left(field,10)+'...' else field end as news_name,news_id from tablename

　　Access数据库：SELECT iif(len(field)>2,left(field,2)+'...',field) FROM tablename;
　　Conn.Execute说明　
　Execute方法　　
该方法用于执行SQL语句。根据SQL语句执行后是否返回记录集，该方法的使用格式分为以下两种：
　　1．执行SQL查询语句时，将返回查询得到的记录集。
用法为：　　Set 对象变量名=连接对象.Execute("SQL 查询语言")
　　Execute方法调用后，会自动创建记录集对象，并将查询结果存储在该记录对象中，通过Set方法，将记录集赋给指定的对象保存，以后对象变量就代表了该记录集对象。
　　2．执行SQL的操作性语言时，没有记录集的返回。
此时用法为：　　连接对象.Execute "SQL 操作性语句" [, RecordAffected][, Option]　
　·RecordAffected 为可选项，此出可放置一个变量，SQL语句执行后，所生效的记录数会自动保存到该变量中。通过访问该变量，就可知道SQL语句队多少条记录进行了操作。
　　·Option 可选项，该参数的取值通常为adCMDText，它用于告诉ADO，应该将Execute方法之后的第一个字符解释为命令文本。通过指定该参数，可使执行更高效。
　　·BeginTrans、RollbackTrans、CommitTrans方法　　这三个方法是连接对象提供的用于事务处理的方法。BeginTrans用于开始一个事物；RollbackTrans用于回滚事务；