这段程序抽取出来的单项选择和多项选择为什么是重复的呢？？哪位朋友可怜我一下，帮我看看吧！
<%
rsT.close()
trySql="select * from "&Session("tryT")&" where TRY_TYPE='1'"
rsT.open trySql,Conn',3,2
'判断题
q_num=1
response.write "一. <b>判断题</b><font color=red>　注：每题1分，对的打勾、错的不要打勾</font><br>"
while not rsT.Eof
'response.write(q_num&". "&rsT("TRY_SUBJECT")&"<input name='PdCb'&q_num type='checkbox' id='PdCb' value='1'>"&"<br>")
%>
<input name="<%response.write("PdCb"&q_num)%>" type="checkbox" value="1"> <%response.write(q_num&". "&rsT("TRY_SUBJECT"))%>
<br>
<%
rsT.movenext
q_num=q_num+1
wend
PdNum=q_num-1
Session("Pd_Num")=PdNum
rsT.close
'选择题
response.write("<br>二. <b>单选择</b><font color=red>　注：每题1分，对的打勾、错的不要打勾</font><br>")
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
rsT.open trySql,Conn
q_num=1
while not rsT.Eof
response.write(q_num&". "&rsT("TRY_SUBJECT")&"<br>")
' response.write(" <input type='radio' name='DxRb'&q_num value='1'> A. "&rsT("a")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> B. "&rsT("b")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> C. "&rsT("c")&"<br>"&"<input type='radio' name='DxRb'&q_num value='1'> D. "&rsT("d")&"<br>")
%>
<input type="radio" name="<%response.write("DxRb"&q_num)%>" value="A"> A. <%=rsT("a")%>
<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="B"> B. <%=rsT("b")%>
<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="C"> C. <%=rsT("c")%>
<br><input type="radio" name="<%response.write("DxRb"&q_num)%>" value="D"> D. <%=rsT("d")%>
<br>
<%
rsT.movenext
q_num=q_num+1
wend
DxNum=q_num-1
Session("Dx_Num")=DxNum
rsT.close
response.write("<br>三. <b>多选择</b><font color=red>　注：每题1分，对的打勾、错的不要打勾</font><br>")
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
rsT.open trySql,Conn
q_num=1
while not rsT.Eof
response.write(q_num&". "&rsT("TRY_SUBJECT")&"<br>")
%>
<input name="<%response.write("DxCb"&q_num)%>" type="checkbox" value="A"> A. <%=rsT("a")%>
<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox" value="B"> B. <%=rsT("b")%>
<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox" value="C"> C. <%=rsT("c")%>
<br><input name="<%response.write("DxCb"&q_num)%>" type="checkbox" value="D"> D. <%=rsT("d")%>
<br>
<%
rsT.movenext
q_num=q_num+1
wend
DdxNum=q_num-1
Session("Ddx_Num")=DdxNum
rsT.close

%>

随机读取数据库记录的例子
<%
db="data\DKP.mdb"
CONNSTR="provider=Microsoft.jet.oledb.4.0;data source="& server.mappath(db)
set conn=server.createobject("ADODB.Connection")
conn.open CONNSTR
'-------------------------------------------------------------------------------
set rs = server.CreateObject ("adodb.recordset")
sql="select * from xt_tmb where tm_tm='111' order by rnd(tm_id)"
rs.open sql,conn,1,1
Randomize '初始化随机数
dim box()
for i = 1 to 10 ''循环次
num=Fix(Rnd*rs.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
rs.move num ''移到改随机行
Response.write rs("tm_id")&" "
Response.write rs("tm_tm")&"<p>" ''出该条记录
end if
rs.movefirst ''别忘了再把指针移到第一条
next
rs.close
set rs = nothing

%>

问题解决了，谢谢版主！