createresult.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 336 行

<!--#include file="conn.inc"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%

' ???
uid=request.Cookies("userid")
vQueID=request("Que_ID")
vQueID=split(vQueID,",")

i=ubound(vQueID)
pid=session("test")

for k=0 to i
v_Qid=vQueID(k)
v_key=request("NO"&trim(v_Qid))
if v_key= "" then
v_key= "xxxxx"
end if
sql="select * from student_answer_info where User_ID="&uid&" and Paper_ID ="&pid&" and Que_ID = "&v_Qid&" "

set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("Que_Type")=0
rs("User_ID")=uid
rs("Que_ID")=v_Qid
rs("Stu_Answer")=v_key
rs("Paper_ID")=session("test")
rs.update
else
rs("Stu_Answer")=v_key
rs.update
end if
next





'???
uid = request.Cookies("userid")
vQueID = request("Que_ID2")
vQueID = split(vQueID,",")
i=ubound(vQueID)

for k=0 to i
v_Qid = vQueID(k)
v_key = request("NO"&trim(v_Qid))
if v_key = "" then
v_key = "xxxxx"
end if
sql="select * from student_answer_info where User_ID="&uid&" and Paper_ID = "&pid&" and Que_ID = "&v_Qid&" "
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("Que_Type")=1
rs("User_ID")=uid
rs("Que_ID") =v_Qid
rs("Stu_Answer")= v_key
rs("Paper_ID")=session("test")
rs.update
else
rs("Stu_Answer")= v_key
rs.update
end if
next




'???
uid = request.Cookies("userid")
vQueID = request("Que_ID3")
vQueID = split(vQueID,",")
i=ubound(vQueID)

for k=0 to i
v_Qid = vQueID(k)
v_key = request("NO"&trim(v_Qid))
if v_key = "" then
v_key = "xxxxx"
end if
sql="select * from student_answer_info where User_ID="&uid&" and Paper_ID = "&pid&" and Que_ID = "&v_Qid&" "
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("Que_Type")=2
rs("User_ID")=uid
rs("Que_ID") =v_Qid
rs("Stu_Answer")= v_key
rs("Paper_ID")=session("test")
rs.update
else
rs("Stu_Answer")= v_key
rs.update
end if
next





vpid = session("test")
singlecount=request("singlecount")
singleper=request("singleper")
multicount=request("multicount")
multiper=request("multiper")
judgecount=request("judgecount")
judgeper=request("judgeper")
userid=request.cookies("userid")
starttime=request("stu_sta_time")

endtime=now()
score=0
score1=0
score2=0
j=0
bz=1
'??????
'???,
 


sql = "select * from question_database q,student_answer_info s where q.QueID = s.Que_ID AND q.Que_Type = 0 and s.User_ID = "&uid&" AND Paper_ID ="&vpid&" "
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof
vpaID = rs("Paper_ID")
vEQID =  rs("Que_ID")
if ucase(trim(rs("StandKey"))) = ucase(trim(rs("Stu_Answer"))) then
 score= score + cint(singleper)
 sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
 set rse = server.CreateObject("adodb.recordset")
 rse.open sqle,conn,3,2
 if  not rse.eof then
 rse.delete
 rse.update
 rse.close
 set rse = nothing
 end if
else
score = score
'??????,??????????

 sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
 set rse = server.CreateObject("adodb.recordset")
 rse.open sqle,conn,3,2
 if rse.eof then
 rse.addnew
 rse("Paper_ID") = rs("Paper_ID")
 rse("User_ID") = uid
 rse("Err_Que_ID") = rs("Que_ID")
 rse.update
 end if
 rse.close
 set rse = nothing
end if
rs.movenext
loop
rs.close
set rs = nothing


'??????
'???,
 


sql = "select * from question_database q,student_answer_info s where q.QueID = s.Que_ID AND q.Que_Type = 1 and s.User_ID = "&uid&" AND Paper_ID ="&vpid&" "
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
scoreM =0
i = 0
do while not rs.eof
  vpaID = rs("Paper_ID")
  vEQID =  rs("Que_ID")
  i = i + 1
 tandkey = rs("StandKey")
 tandkey = split(tandkey,",")
 standkeycount=ubound(tandkey)+1 '?????????????
 stukey = rs("Stu_Answer")
   scoreM = 0



   tstukey = split(stukey,",")
  
  stukeycount=ubound(tstukey)+1 '?????????????

  if stukeycount >standkeycount then
                bz=0
		
  else
     for  j = 0 to stukeycount-1	
	      stkey = tstukey(j)
		  stkey = ucase(trim(stkey))

           if instr(rs("Stu_Answer"),stkey)<>0 then
             tmp = cint(multiper)/stukeycount
			 scoreM = scoreM +tmp

             
			 bz = bz + 1    
           end if
		   j=j+1  
	 next
	 
  end if

score1 = score1  + scoreM



 if bz < standkeycount  then
  '??????,??????????

   sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
   set rse = server.CreateObject("adodb.recordset")
   rse.open sqle,conn,3,2
   if rse.eof then
   rse.addnew
   rse("Paper_ID") = rs("Paper_ID")
   rse("User_ID") = uid
   rse("Err_Que_ID") = rs("Que_ID")
   rse.update
   end if
   rse.close
   set rse = nothing
end if
if bz = standkeycount then
 
 sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
 set rse = server.CreateObject("adodb.recordset")
 rse.open sqle,conn,3,2
 if  not rse.eof then
  rse.delete
  rse.update
  rse.close
  set rse = nothing
 end if
end if

rs.movenext
loop
rs.close
set rs = nothing

'???
sql = "select * from question_database q,student_answer_info s where q.QueID = s.Que_ID AND q.Que_Type = 2 and s.User_ID = "&uid&" AND Paper_ID ="&vpid&" "
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
do while not rs.eof


vpaID = rs("Paper_ID")
vEQID =  rs("Que_ID")


if ucase(trim(rs("StandKey"))) = ucase(trim(rs("Stu_Answer"))) then
score2= score2 + cint(judgeper)


sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
set rse = server.CreateObject("adodb.recordset")
rse.open sqle,conn,3,2
if  not rse.eof then
rse.delete
rse.update
rse.close
set rse = nothing
end if

else
'??????,??????????

sqle = "select * from stu_error_question where Paper_ID = "&vpaID&" and Err_Que_ID = "&vEQID&" and User_ID="&uid&"  "
set rse = server.CreateObject("adodb.recordset")
rse.open sqle,conn,3,2
if rse.eof then
rse.addnew
rse("Paper_ID") = rs("Paper_ID")
rse("User_ID") = uid
rse("Err_Que_ID") = rs("Que_ID")
rse.update
end if
rse.close
set rse = nothing
end if
rs.movenext
loop
rs.close
set rs = nothing

total = 0
total = score+score1+score2


'????
sql="select * from student_score where User_ID="&uid&" and  Paper_ID = "&pid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
rs.addnew
rs("User_ID") = uid
rs("Paper_ID") = vpid
rs("PaperScore") = total
rs("Stu_Start_time") = starttime
rs("Stu_End_time")= endtime
else
rs("User_ID") = uid
rs("Paper_ID") = vpid
rs("PaperScore") = total
rs("Stu_Start_time") = starttime
rs("Stu_End_time")= endtime
end if
rs.update
rs.close
set rs = nothing

sql="select * from test_user where Paper_ID="& vpid & " and User_ID=" & uid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs("isTest")=1
rs.update
rs.close
conn.close
set conn = nothing
response.redirect "displayresult.asp?userid=" & uid & "&testid=" & vpid




%>