temp.asp

网络考试系统最终备份

if formatdatetime(now,2) >  formatdatetime(endtime,2) then
Response.Write("<script>alert(""考试时间已经结束，剥夺考试资格！"");location.href=""exam_online.asp"";</script>")
end if

if  formatdatetime(now,2) < formatdatetime(starttime,2)  then 
Response.Write("<script>alert(""考试时间未到，请等候！"");location.href=""exam_online.asp"";</script>")
end if
response.Write("time1:"&formatdatetime(now,2))
'response.Write("hour:"&formatdatetime(endtime-starttime,4))

if  dateDiff("h", starttime, endtime) > 0 then
testtime = dateDiff("h", starttime, endtime)
else
testtime = dateDiff("h",endtime ,starttime )
end if

response.Write("hour:"&testtime)

if  formatdatetime(now,4) < formatdatetime(starttime,4)  then
Response.Write("<script>alert(""2考试时间未到，请等候！"");location.href=""exam_online.asp"";</script>")
end if
if  formatdatetime(now,4) > formatdatetime(endtime,4)  then
Response.Write("<script>alert(""考试时间已经结束"");location.href=""exam_online.asp"";</script>")
end if


CREATERRESULT.ASP

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