这是答题页面
<%
set rst=server.CreateObject("adodb.recordset")
sql="select top 100 * from type2"
rst.open sql,conn,1,1
i=1
do while not rst.eof
%>

<tr>
<td>&nbsp;&nbsp;&nbsp; <%=i%>、<%=rst("题干")%>
<input type=hidden name="tgxz<%=i%>" value="<%=rst("题干")%>"></td>
</tr>

<tr>
<td>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("选项1")%>&nbsp;&nbsp;
<input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("选项2")%>&nbsp;
<input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("选项3")%>&nbsp;&nbsp;
<input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("选项4")%>
<input name="r_anwser" type="hidden" value="<%=rst("正确答案")%>"> '这里为了方便在另一个页面对答案,所以先写出来
</td>
</tr>
<%i=i+1
rst.movenext
loop
%>
</table>
</center>
</div>
<br>

<br>
<input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2">
<p>
<br>

</td>
</tr>
</table>
</form>

text_over.asp:
<!--#include file="conn.asp"-->
<!--#include file="check.asp"-->
<%
sql="select * from exam_type"
set rs=conn.execute(sql)
dim score=0　　　　＇设初值为０，score为最后的统计分数
for i=1 to 100
if trim(request("sele"&i))=trim(request("r_answer"&i)) then
score=score+rs("score")
end if
next
sql2="update student set score='"&score&"' where id="&session("id")
conn.execute("sql2")
response.Write("<script>alert('交卷成功,确认后退出系统!');window.close()</script>")
%>
但不知道哪里不对，提交后没显示．

[此贴子已经被作者于2005-10-31 19:27:56编辑过]