getresult.asp

网上考试系统(ASP代码) 网上考试系统(ASP代码)

<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp"-->
<%
dim yijiao
'是否已经交卷了
'session("yijiao")在selectsubject.asp页面中被初始化为0'
yijiao=session("yijiao")
if yijiao=1 then
  response.write "您是否按了浏览器上的后退按钮，你已经交过了试卷，请不要再按了。"
else
  '读取当前科目考试信息
	subjectname=session("selectsubjectname")
  studentname=session("studentname")
  singlenumber=session("singlenumber")
  singleper=session("singleper")
  multinumber=session("multinumber")
  multiper=session("multiper")
  endtime=now()
  score=0
  selectstr1=request.form("hidQuestID1")
  selectstr2=request.form("hidQuestID2")
  len1=len(selectstr1)
  len2=len(selectstr2)
  str1=left(selectstr1,len1-1)
  str2=left(selectstr2,len2-1)
  dim id1,id2
  id1=split(str1,",")
  id2=split(str2,",")
	'计算单选题得分
  for i=1 to singlenumber
    result=request.form("no"&id1(i-1))
    if  not isempty(result) then
      sql="select * from question where id="& clng(id1(i-1))
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2     
      if result=rs("answer") then
        score=score+cint(singleper)
      end if
      rs.close
      set rs=nothing 
    end if
  next
	'计算多选题得分
  for i=1 to multinumber
		result=request.form("no"&id2(i-1))
		if not isempty(result) then
			sql="select * from question where id="& clng(id2(i-1))
			set rs=server.createobject("adodb.recordset")
			rs.open sql,conn,3,2     
			if result=rs("answer") then
				score=score+cint(multiper)
			end if   
			rs.close
			set rs=nothing 
		end if
  next 
  '将学生考试成绩更新到数据库中
	sql="select * from score where studentname='"&session("studentname")&"' and subjectname='"&session("selectsubjectname")&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("endtime")=endtime
  rs("score")=score
  rs.update
  rs.close
  set rs=nothing
  call endConnection()
  '将学生得分、考试总分等信息保存到Session变量中
	total=singlenumber*singleper+multinumber*multiper
  session("score")=score
  session("total")=total
  session("yijiao")=1
  '打开考试结果显示页面
	response.redirect "result.asp"
end if
%>