<!--#include file="conn.asp"-->
<%
if session("adminlogin")="" then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.location.href='login.asp';</script>")
Response.End
End if
subject=request("科目")
singlecount=request("单选数目")
singleper=request("单选分值")
multicount=request("多选数目")
multiper=request("多选分值")
score=0
j=0
     for each element in request.form
     for i=1 to request.form(element).count
    if instr(element,"NO")<>0 then
      id=mid(element,3,1)
      result=request.form(element)(i)
      sql="select * from 题库 where id="& clng(id)
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2
      if rs("type")="单选题" then
        if result=rs("正确答案") then
          score=score+cint(singleper)
        end if
      end if
      if rs("type")="多选题" then
        if instr(rs("正确答案"),result)<>0 then
          score=score+cint(multiper)/4
          j=j+1
          answer=split(rs("正确答案"),",")
          answercount=ubound(answer)+1
          if answercount=j then
            score=score+cint(multiper)*(1-j/4)
          end if
        else
          score=score-cint(multiper)/4*(j)
        end if
      end if
         
    end if
  next
next

sql="select * from 成绩表"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("userid")=userid
rs("学号")=request.cookies("学号")
rs("姓名")=request.cookies("姓名")
rs(" & session("subject") & ")=score
rs.update
rs.close
sql="select * from 考试记录"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs("学号")=request.cookies("学号")
rs("姓名")=request.cookies("姓名")
rs(" & session("subject") & ")=1
rs.update
rs.close
%>