getresult.asp

考试系统,主要完成在线考试,并且应用SQLSERVER,这样可以保证数据库的安全和稳定

<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp"-->
<%
dim yijiao
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")

judgementnumber=session("judgementnumber")
judgement=session("judgement")

blanktnumber=session("blanktnumber")
blankt=session("blankt")


endtime=now()
score=0
count=0


selectstr1=request.form("hidQuestID1")
selectstr2=request.form("hidQuestID2")
selectstr3=request.form("hidQuestID3")
selectstr4=request.form("hidQuestID4")


len1=len(selectstr1)
len2=len(selectstr2)
len3=len(selectstr3)
len4=len(selectstr4)

str1=left(selectstr1,len1-1)
str2=left(selectstr2,len2-1)
str3=left(selectstr3,len3-1)
str4=left(selectstr4,len4-1)

dim id1,id2,id3,id4
id1=split(str1,",")
id2=split(str2,",")
id3=split(str3,",")
id4=split(str4,",")

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 
  else
  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 
else
 end if
next 
for i=1 to judgementnumber
 result=request.form("no"&id3(i-1))
 if  not isempty(result) then
      sql="select * from question where id="& clng(id3(i-1))
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2     
        if result=rs("answer") then
          score=score+cint(judgement)
        end if
        rs.close
        set rs=nothing 
  else
  end if
next

for i=1 to blanktnumber
 result=request.form("no"&id4(i-1))
 if  not isempty(result) then
      sql="select * from question where id="& clng(id4(i-1))
      set rs=server.createobject("adodb.recordset")
      rs.open sql,conn,3,2     
        if result=rs("answer") then
          score=score+cint(blankt)*cint(rs("A"))
		  count=count+cint(rs("A"))
        end if
        rs.close
        set rs=nothing 
  else
  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()
total=singlenumber*singleper+multinumber*multiper+judgementnumber*judgement+count*blankt
'total=singlenumber*singleper
session("score")=score
session("total")=total
session("yijiao")=1
response.redirect "result.asp"
'response.write("<center>"&studentname&"你好！你的考试成绩为："&score&"分，总分为"&total&"分</center><br>")
end if
%>