随机数问题求助！

[badcody]

求助！

我在帮别人做一个考试的程序，每次应答时都

需要从数据库中提取10条不同的id出来，在本次提取过程当中不允许id排序和重复。

有什么好办法吗？

[ChinaOk]

一段asp程序


str=""
iLen=256

do while iLen>0
randomize(10000)
n=int(rnd*10000+1)
if instr(str,"|"&cstr(n)&"|")<>0 then Response.Write "="
str=str & "|" &cstr(n)&"|"
Response.Write cstr(n) &"<br>"
iLen=iLen-1

loop

Response.Write str

只要iLen小于255 rnd函数本身就不会有重复的。当然范围要够大

[zhenhao]

去www.asp300.com上边有个帖子讲了。

[wangfei2428]

如果您使用的是sql服务器
selec top 10 * from someTable order by NewID()

[zhenhao]

<%
Dim myarr
For i = 0 To 100
Randomize
no = Int((1000-1+1)*Rnd+1)
For j = 0 To i
If no <> myarr(j) And no <> "" Then
j = j + 1
Else
Exit For
End If
myarr(i) = no
Next
If i = 21 Then
Exit For
End If
Next
%>