Randomize(Timer())

Int((数值上限 - 数值下限 + 1) * Rnd + 数值下限)

示例：

生成1到10之间的随机数值

Dim MyValue

MyValue = Int((10 * Rnd) + 1)

从数据库中取多值：

Randomize(Timer())

set rs= Server.CreateObject("ADODB.Recordset")

SQL="SELECT top 13 id,title FROM blog order by Rnd(-(id + " & Int((10000 * Rnd) + 1) & "))"

rs.Open SQL,conn,1,1

If Not rs.EOF Then

rs.MoveFirst

For I = 1 To rs.RecordCount

response.Write "<a href=view.asp?id="&rs("id")&">"

Response.Write(left(trim(rs("title")), 10))

response.write"</a>"

response.Write "<br>"

rs.MoveNext

Next

End If

rs.close

set rs=nothing