ASP随机函数

时间:2010-05-16 17:05来源: 点击:次

导读：我现在在做考试系统,现在做到最后一步,我想要每个考生的考题都不一样要怎么写?? 比如:1号考生,1,3,5,..... 2号考生,2,4,6,..... 3号考生,1,4,7,8.... ...... 像这样子怎么写呀 请高手指点一下 假如每个学生100个题，首先生成随机数，这个随机数是数据表值的I

我现在在做考试系统,现在做到最后一步,我想要每个考生的考题都不一样要怎么写??

比如:1号考生,1,3,5,.....

2号考生,2,4,6,.....

3号考生,1,4,7,8....

......

像这样子怎么写呀

请高手指点一下

tuku.lovefcwr.com

lovefcwr.com

假如每个学生100个题，首先生成随机数，这个随机数是数据表值的ID值，然后循环100次，排出显示就可以了。

<%

dim a(1 to 100)

y=o

for x=1 to 100

Randomize

a(x)=int(100*rnd+1)

next

do while not rs.eof

y=y+1

if rs("ID")=a(y) then

%>

<tr><td><%=y%></td>(题号)

<td><%=rs("题目")%></td></tr>（题目）

<%

end if

rs.movenext

loop

%>

其他的不用在说了

如果有重复题怎么办？下面程序可以解决：

<%

for i=1 to 99

for j=1 to 100-i

if a(j)=a(j+1) then

Randomize

a(j+1)=int(100*rnd+1)

end if

next

next

%>

http://www.zjjv.com/

------分隔线----------------------------

上一篇：ASP错误提示大全|MicrosoftVBScript语法错误|sql语句出错

下一篇：ASP中随机函数Randomize的使用

更多有关 asp技术 的相关资讯：