createresult.asp

在线考试系统

<!--#include file="conn.inc"-->
<%


sql="select * from jlcx1"
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("testid")=session("test")
rs("starttime")=request("kstime")
rs.update

sql="select * from jlcx"
set rs=createobject("adodb.recordset")
rs.open sql,conn,3,2
for k=1 to request("singlecount")
rs.addnew
 rs("type")="单选题"

rs("userid")=session("test")
rs("starttime")=request("kstime")

dan=request("dxtda" & k)
rs("answer")=request("NO" & dan)
rs("testid")=request("testid")
rs("subject")=request("subject")
rs("question")=request("dxt" & k)
rs("text1")=request("dxta" & k)
rs("text2")=request("dxtb" & k)
rs("text3")=request("dxtc" & k)
rs("text4")=request("dxtd" & k)
rs("text5")=request("dxte" & k)
rs("text6")=request("dxtf" & k)
rs.update
next

for n=1 to request("multicount")
rs.addnew
rs("type")="多选题"

rs("starttime")=request("kstime")


rs("userid")=session("test")
dan1=request("duoxtda" & n)
rs("answer")=request("NO" & dan1)
rs("testid")=request("testid")
rs("subject")=request("subject")
rs("question")=request("duoxt" & n)
rs("text1")=request("duoxta" & n)
rs("text2")=request("duoxtb" & n)
rs("text3")=request("duoxtc" & n)
rs("text4")=request("duoxtd" & n)
rs("text5")=request("duoxte" & n)
rs("text6")=request("duoxtf" & n)
rs.update
next


for p=1 to request("judgecount")
rs.addnew
dan2=request("pdtda" & p)
rs("yn")=request("NO" & dan2)
rs("type")="判断题"

rs("starttime")=request("kstime")

rs("userid")=session("test")
rs("testid")=request("testid")
rs("subject")=request("subject")
rs("question")=request("pdt" & p)
rs.update
next
rs.close









'读入试卷信息
subject=request("subject")
testid=request("testid")
singlecount=request("singlecount")
singleper=request("singleper")
multicount=request("multicount")
multiper=request("multiper")
judgecount=request("judgecount")
judgeper=request("judgeper")
userid=request.cookies("userid")
starttime=request("mystarttime")
endtime=time()
score=0
score1=0
score2=0
j=0
bz=1
'循环累加求和
for each element in request.form
  for i=1 to request.form(element).count
    if instr(element,"NO")<>0 then
      id=mid(element,3,3)
      result=request.form(element)(i)
      sql="select * from exam_database where id="& clng(id)
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if rs("type")="单选题" then
        if result=rs("answer") then
          score=score+cint(singleper)
        end if
      end if
     
     
   if rs("type")="多选题" then
      answer=split(rs("answer"),",")
      answercount=ubound(answer)+1
   if request.form(element).count>answercount then
                bz=0
   end if  
          
       if bz=1 then 
           if instr(rs("answer"),result)<>0 then
               score1=score1+cint(multiper)/4
                 j=j+1     
                 if answercount=j then
                      score1=score1+cint(multiper)*(1-j/4)               
                       j=0
                 end if 
            end if 
       end if 
end if
        

   
      if rs("type")="判断题" then
        if rs("answer")=result then
          score2=score2+cint(judgeper)
        end if
      end if      
    end if
  next
next
'储存分数
sql="select * from exam_score"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("testtime")=request("kstime")
rs("userid")=userid
rs("username")=request.cookies("username")
rs("department")=request.cookies("department")
rs("office")=request.cookies("office")
rs("duties")=request.cookies("duties")
rs("subject")=subject
rs("testid")=testid
rs("starttime")=starttime
rs("endtime")=endtime
rs("score")=score2+score1+score
rs.update
rs.close
sql="select * from exam_testuser where testid="& testid & " and userid=" & userid
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs("havetest")=1
rs.update
rs.close
response.redirect "displayresult.asp?userid=" & userid & "&testid=" & testid
%>