试题库

[shengy888]

我做了一个考试页面的系统：意思就是这样的，从数据库中随机抽取一定量的题目，ID号小的排在最前面，如果出现相同的ID号，则重新抽取一个号，然后把所有ID号所对应的题目输出来。帮我修改一下，或者你直接重新写给我一段代码，在此表示感谢！
<%
Sub f(x)
MyArray(i)=int(rsTest.recordcount*rnd+1) 'MyArray(i)是题号
End Sub
Redim MyArray(intSSCount)
randomize timer
for i=1 to intSSCount
call f(i)
if i>2 or i=2 then
for i=i to 2 step -1
if MyArray(i)==MyArray(i-1) then
Call f(i)
end if
next
end if
next


for i =1 to intSSCount -1 'n-1次比较
for j=i+1 to intSSCount
if MyArray(i)>MyArray(j) then
temp=MyArray(i)
MyArray(i)=MyArray(j)
MyArray(j)=temp
end if
next
next
%>

[bo3235]

从数据库中随机抽取一定量的题目,建议你用SQL实现

select * from (
  select top 20 id from [020_Product_Main] order by newid()) aa  order by aa.id asc

newid()的意思请BAIDU下

[shenzhenNBA]

感觉比较乱。。。
个人建议，f(x)改成随即生成题号，即ID号，每次生成的ID不在数组中，才保存到数组中，相同的则重新生成ID号，

[shengy888]

不行呀，我试过了。谢谢哈

[syjeffdyg]

这么小气,10分,人才啊,我可从没给少于100分的.
最好的处理是把题目全部抽出来，放到视图中
然后随机抽题,抽到了的从视图中删除,这样就不会重复了.