asp，在线考试试题及答案保存，以及自动评分

<%
set rs_tk=server.createobject("adodb.recordset")
sql_tk="select top 10 * from tiku where bigclassname='"语文"' and smallclassname='"单选题"' order by id"
rs_tk.open sql_tk,conn,1,1  
j=1 '根据题型的题量决定循环的次数
do while not rs_tk.eof%>
  <tr>
                <td align="center"><%=j%></td>
                <td><%if rs_tk("smallclassname")="单选题" then%>
<table width="85%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10" rowspan="2">&nbsp;</td>
    <td height="30" bgcolor="#CCCCCC"><br /><%=rs_tk("title")%>(&nbsp;)<input type="hidden" name="DXtigan<%=j%>" value="单选第<%=j%>题、<%=rs_tk("title")%>,标准答案：<%=rs_tk("daan")%>"><br />&nbsp;</td>
  </tr>
  <tr>
    <td><br />
&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="danxuan<%=j%>" value="A" />&nbsp;&nbsp;A:<%=rs_tk("title1")%><br /><br />
&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="danxuan<%=j%>" value="B" />&nbsp;&nbsp;B:<%=rs_tk("title2")%><br /><br />
&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="danxuan<%=j%>" value="C" />&nbsp;&nbsp;C:<%=rs_tk("title3")%><br /><br />
&nbsp;&nbsp;&nbsp;&nbsp;<input type="radio" name="danxuan<%=j%>" value="D" />&nbsp;&nbsp;D:<%=rs_tk("title4")%><br />&nbsp;&nbsp;</td>
  </tr>
</table>
<%end if %>
<%rs_tk.movenext
j=j+1
loop
rs_tk.close %>

参考答案：<%=rs_tk("daan")%>

单选题学生答案：danxuan<%=j%>

我想把 所有选择题的每一道题的题干、参考答案、学生答案统一保存到数据库试卷表的 "单选题"字段里，并且把学生答案和参考答案对比 给分，保存到"单选题得分"字段里。请写出保存的完整代码，谢谢！