各位大虾，以下函数用于随机出题目，我这里的算法已经参照本论坛的算法了，但不知为何
调试的时候出现 错误类型：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编辑过]
