tre_exam.asp

教学在线系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../conndb/conn.asp"-->
<%
if(session("lesid") = "" or session("UserID") = "")then
response.Redirect("../Mainright.asp")
response.End()
end if
response.write("<form name='hid_form' method='post' action='../Result.asp'>")
dim res_single,res_more
res_single = 0              'res_single: 单选题正确题数
res_more = 0               'res_more: 多选题正确题数
getlesid = session("lesid")                 'getlesid: Tab_Lesson表中的ID号
sql_1 = "select * from Tab_questions where que_lessonid = "&getlesid&" and que_type = '单选题'"
set rs_1 = server.CreateObject("adodb.recordset")  
rs_1.open sql_1,conn,1,3
for i=1 to rs_1.recordcount          'recordcount: Recordset 中的记录数
getsingle_answer = request("single_answer["&i&"]")          'getsingle_answer: 用户单选题答案
response.write("<input type='hidden' name='single_answer["&i&"]' value='"&getsingle_answer&"'>")
if(instr(rs_1("que_answer"),getsingle_answer) > 0 and (len(getsingle_answer) = len(trim(rs_1("que_answer")))))then
'instr: 返回某字符串(前者)在另一字符串(后者)中第一次出现的位置。
res_single = res_single + 1
end if
rs_1.movenext
next
rs_1.close
set rs_1 = nothing

sql_2 = "select * from Tab_questions where que_lessonid = "&getlesid&" and que_type = '多选题'"
set rs_2 = server.CreateObject("adodb.recordset")
rs_2.open sql_2,conn,1,3
for i=1 to rs_2.recordcount
getmore_answer = request("more_answer["&i&"]")
response.write("<input type='hidden' name='more_answer["&i&"]' value='"&getmore_answer&"'>")
if((instr(rs_2("que_answer"),getmore_answer) > 0 ) and (len(getmore_answer) = len(trim(rs_2("que_answer")))))then
res_more = res_more + 1
end if
rs_2.movenext
next
rs_2.close
set rs_2 = nothing
response.write("</form>")
single_total = res_single * 2               'single_total: 单选题总得分
more_total = res_more * 5                 'more_total:  多选题总得分
if(session("UserID") <> "" and getlesid <> "")then
sql_3 = "select Name from Tab_Lesson where ID = "&getlesid
set rs_3 = conn.Execute(sql_3)
sql_4 = "insert into Tab_stuResult(stu_id,which_lesson,res_single,res_more,res_subdate) values("&session("UserID")&",'"&rs_3("Name")&"',"&single_total&","&more_total&",'"&Now()&"')"
rs_3.close
set rs_3 = nothing
conn.Execute(sql_4)
end if
response.write("<script>alert('试卷已提交');</script>")
response.write("<script>hid_form.submit();</script>")
%>