set rs5=server.CreateObject("adodb.recordset")
sql5="select * from tongyong where xiaotitle=10"

rs5.open sql5,conn,1,3'打开数据库表

i=1

dim webon5()

do while not rs5.Eof'写入数组

Redim Preserve webon5(i)

webon5(i)=rs5("id")

i=i+1

rs5.movenext

loop

randomize'随机得到记录

a=Int((rs5.recordcount*rnd)+1)'在全部记录中生成随机数

rndid5=webon5(a)

Set rs5=conn.Execute("select * from tongyong where id="&rndid5)'根据数组,再打开相关随机记录.

--------------------------------------------------

当我们的数据库中有一些固定的数据时，比如：猜谜、答题、笑话等，我们又要达到“随机抽取显示”的

效果时，我们就要用到“随机调用函数和程序”了。

上面的一段代码，就是我测试成功的，当然是符合我自己的程序的，每条代码后面都写了说明，我想大家

都能看的懂，大家可以下载后自己修改一下就可以用了。

比较实用的一个程序。