在做一个在线考试时，做题目是即要随机抽取题目，有不要重复！谢谢！

以前也编过在线考试系统,
www.tcsysb.com\musclecn\test\login.asp

<% x=rs1.recordcount '数据集共有多少题目
dan=session("dan") '共要出多少题
%>
<%
dim chcqus ()
redim chcqus(x)
i=1
randomize()
strqnum=""
do while i< dan-4+1
chcnum = (rnd*150 mod x)+1
if chcqus(chcnum-1)<>true then '判断是否调用过
chcqus(chcnum-1) =true
rs1.AbsolutePosition=chcnum '指针指向此题
strqnum=strqnum &rs1("questionid")& ":"
%>

好象不行呀！请写详细些！谢谢！