各位大虾，以下函数用于随机出题目，我这里的算法已经参照本论坛的算法了，但不知为何

调试的时候出现 错误类型：Response 对象, ASP 0104 (0x80070057) 不允许操作

在下请教各位了，急啊

<!--#include file="include/conn.asp"-->
<%
set rsT = server.CreateObject ("ADODB.RecordSet")
trySql="select * from "&Session("tryT")&" where TRY_TYPE='1' " '从数据库Session("tryT")在读出
'TRY_TYPE='1' 的数据

rsT.open trySql,conn,3,3
Randomize
dim box(100)
i=0

'判断题
q_num=1
response.write "一. <b>判断题</b><font color=red>　注：每题1分，对的打勾、错的不要打勾</font><br>"

do while i<=10
num=Fix(Rnd*rsT.recordcount) ''num便是随机产生的记录行数，用Fix()，使其不会大于总值。
box(i)=num
chongfu=false
for ii=0 to i-1
if num=box(ii) then chongfu=true
next

if chongfu=false then
i=i+1
rsT.move num ''移到改随机行
end if
rsT.movefirst
%>
<input name="<%response.write("PdCb"&q_num)%>" type="checkbox" value="1"> <%response.write(q_num&". "&rsT("TRY_SUBJECT"))%>
<br>
<%
q_num=q_num+1
loop
PdNum=q_num-1
rsT.close

%>

[此贴子已经被作者于2006-6-2 11:43:18编辑过]

刚刚自己调试的时候

发现 如果把这里 do while i<=10

设置为 do while i<=5

系统可以运行，但是出题数量不会少于5，而且，是重复出题了

循环体里面加Randomize

加了Randomize进循环体后也没反应，

同样出同一条题目

而且，当我设置 do while i<=2 会出8条题目


do while i<=4 会出11条题目。。。。


救命啊。。。。。。。。

<!--#include file="include/conn.asp"-->
<%
set rsT = server.CreateObject ("ADODB.RecordSet")
trySql="select * from " & Session("tryT") & " where TRY_TYPE='1' " '从数据库Session("tryT")在读出TRY_TYPE='1' 的数据
rsT.open trySql,conn,3,3
Randomize
dim box(100)
i=0
'判断题
q_num=1
response.write "一. <b>判断题</b><font color=red>　注：每题1分，对的打勾、错的不要打勾</font><br>"

do while i<=10
num=Fix(Rnd*rsT.recordcount) ''num便是随机产生的记录行数，用Fix()，使其不会大于总值。
box(i)=num
chongfu=false
for ii=0 to i-1
if num=box(ii) then chongfu=true
next

if chongfu=false then
i=i+1
rsT.move num ''移到改随机行
%>
<input name="<%response.write("PdCb"&q_num)%>" type="checkbox" value="1"> <%response.write(q_num&". "&rsT("TRY_SUBJECT"))%>
<br>
<%
q_num=q_num+1
end if
rsT.movefirst
loop
PdNum=q_num-1
rsT.close

%>
你把它改成上面的程序那样试试看看行不

之所以会出现输入出相同的数据是因为那名蓝色和红色代码的位置的问题
但是你上面说输出"response"的错误,它是怎么提示的呀?应该有说是在第几行发生的巴

[此贴子已经被作者于2006-6-2 16:55:51编辑过]

好像可以不用随机数来选提会更简单一点的,

SELECT top 10 * FROM XXX order by newid

这样出来的记录就是随机的,可以直接用循环显示出来就可以了的

order by newid()