随机数问题求助!

badcody 2002-05-10 05:20:30
求助!

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

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

有什么好办法吗?
...全文
9 点赞 收藏 4
写回复
4 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
zhenhao 2002-05-10
<%
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
%>
回复
wangfei2428 2002-05-10
如果您使用的是sql服务器
selec top 10 * from someTable order by NewID()
回复
zhenhao 2002-05-10
去www.asp300.com上边有个帖子讲了。
回复
ChinaOk 2002-05-10
一段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函数本身就不会有重复的。当然范围要够大
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-10 05:20
社区公告
暂无公告