新微赢技术网

标题: 考试系统如何评分 [打印本页]

作者: 欠你一滴泪 时间: 2010-1-13 07:13
标题: 考试系统如何评分
假如有１００道选择题，如果一口气提交，让系统自动判断，自动统计分数！！

作者: ぷぷ 时间: 2010-1-13 07:13
跟你的标准答案对照就行了

作者: 成熟之惑 时间: 2010-1-13 07:13
主要是一口气让系统对１００道题．

作者: 绝不放弃 时间: 2010-1-13 07:13
不知道
应该是循环吧
就是把RADIO的NAME做成数字
然后循环判断并+相应的分数
这样可以吗?

作者: 賤xs騷 时间: 2010-1-13 07:13
用数组就行了

作者: 边走边看 时间: 2010-1-13 07:13
你先把你的想法发上来我给你改

作者: 劳资ぶ龍哥 时间: 2010-1-13 07:13
我的想法是这样子的:
从数据库里面选出１００道题,然后交卷后,系统能根据我原来录制的答案,一个一个的比较,自动评出总分,只要得到最终的分数就可以了.

作者: √碧水寒潭 时间: 2010-1-13 07:13
有数据库可以不用数组

你把题号和答案（考生）分别用t1、t2、……、t100 d1、d2、……、d100来命名表单元件

再评分的页面
sql="select 题号,答案 from 题库 ……"'顺序与出题的顺序保持一致
rs.open sql,conn,1,1
for i=1 to 100
if rs(1)=request.form("t"&i) then
response.write "第"&rs(0)&"题 √"
else
response.write "第"&rs(0)&"题 ×"
end if
rs.movenext
next
rs.close

作者: 江边人家 时间: 2010-1-13 07:13
<%
set rst=server.CreateObject("adodb.recordset")
sql="select top100 * from type2"
rst.open sql,conn,1,1
i=1
do while not rst.eof
%>

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

<tr>
<td>
     
<input type="radio" value="A" name="sele<%=i%>"> A.<%=rst("选项1")%>  
<input type=hidden name="xzxx1<%=i%>" value="<%=rst("选项1")%>" >

<input type="radio" value="B" name="sele<%=i%>"> B.<%=rst("选项2")%> 
<input type=hidden name="xzxx2<%=i%>" value="<%=rst("选项2")%>" >

<input type="radio" value="C" name="sele<%=i%>"> C.<%=rst("选项3")%>  
<input type=hidden name="xzxx3<%=i%>" value="<%=rst("选项3")%>" >

<input type="radio" value="D" name="sele<%=i%>"> D.<%=rst("选项4")%>
<input type=hidden name="xzxx4<%=i%>" value="<%=rst("选项4")%>" >

<input type=hidden name="xzda<%=i%>" value="<%=rst("正确答案")%>" >
</td>
</tr>
<%i=i+1
loop
%>
</table>
</center>
</div>
<br>

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

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

开始考试（100 道选择题，总分 200 分

考生姓名：sunny 性别：男年龄：5 编号：14

一、选择题（共100道，每题 2 分）
Microsoft JET Database Engine 错误 '80040e14'
语法错误 (操作符丢失) 在查询表达式 'top100 *' 中。
/text/test.asp，行 37

作者: 五龙 时间: 2010-1-13 07:13
这是什么原因

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)