#12003/4/17 15:58:53
1,登陆页,
2,考试页
3,评分页
登陆页:准考证文本框,姓名文本框,课程列表框(lesson)
登陆页上还加一行session("lesson")=request.form("lesson")在session("MM_username")=MM_valusername这行之下。
把考生在数据库中的成绩给session("lesson")方便后面比较。
考试页:先在开头加上
<% if recordset1(session("lesson"))<>"-1" then
response.write"这门课你已经考过了你的分数是:“&recordset1(session("lesson"))
else
%>
....
....
...
<% end if %>
目的是把登陆者在数据库中的成绩拿出来和-1比,没参加过考试的数据库内成绩项记录为-1,如果不是-1了那就说名已经考试了,就不让考了。
这页其它也没什么了,取题了。在ud下建立记录集,过滤部分用lesson = session variable lesson,就可以只显示用户所选类型的题了。
3,评分页,
在考试页操作完,按下交卷按钮,所有操作提交到评分页。
用以下代码评分
<% score=0 %>
<% user_answer=request(recordset2("question_id"))'读取考生的解答
real_answer= recordset2("q_answer")'正确解答
if user_answer=real_answer then
score=score+recordset2("points")'统计分数
end if
%>
下面再加上:
你本次考试成绩是:<% =score %>
<% recordset1(session("lesson"))=score
recordset1.update %>'将成绩更新到数据库里,小田说没见过句,我上一句已经把统计的成绩返回给session("lesson")了呀,难不成还要,recordset1(sessio("lesson").update??
好像也不对啊,我已经晕了,小田看看这个详细的问题,能不能给个更详细的回答呢?
谢谢了!!!!!!!!!!!!!!!!!!
还有在考试页开头加了<% response.expires=-1000
response.cachecontrol="no-cache" %>
目的让返回试销,不能考不好就重考啊,可是好像没用。
编辑历史:[这消息被andy04911编辑过(编辑时间2003-04-17 15:59:28)]