随机取记录,怎么取的都一样?

[xtzhaobo]

<!--#include file="conn.asp"-->
<%
set rs=cn.execute("select top 5 * from xinxibiao order by rnd(id)")
do while not rs.eof
response.write rs("title")&"<br>"
rs.movenext
loop
%>
每次刷新都是一样5条记录.

[changechange]

<!--#include file="conn.asp"-->
<%
set rs=cn.execute("select top 5 * from xinxibiao order by rnd(1)")
do while not rs.eof
response.write rs("title")&"<br>"
rs.movenext
loop
%>

[dingzhaofeng]

RND()

[changechange]

Visual Basic Scripting Edition 语言参考

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

Randomize 语句
初始化随机数生成器。

Randomize [number]

number 参数可以是任何有效的数值表达式。

说明
Randomize 使用 number 参数初始化 Rnd 函数的随机数生成器，赋给它新的种子值。如果省略 number，则使用系统计时器返回的值作为新的种子值。

如果不使用 Randomize，则第一次调用 Rnd 函数（无参数）时，它将使用相同的数字作为种子值，随后使用最后生成的数值作为种子值。

注意 要重复随机数的序列，请在使用数值参数调用 Randomize 之前，立即用负值参数调用 Rnd。使用相同的 number 值的 Randomize 不能重复先前的随机数序列。

下面例子举例说明如何使用 Randomize 语句:

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1)' 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ("Roll again? ", vbYesNo)
Loop
要求
版本 1

请参阅
Rnd 函数 | Timer 函数


--------------------------------------------------------------------------------
© 2000 Microsoft Corporation 版权所有。保留所有权利。使用规定。