!--#include file="include/conn.asp"-->
<!--#include file="safe.asp" -->
<html>
<head>
<title>::::欢迎光临校园在线考试系统:::::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META content=CnSohoW设计 name=description>
<META content="firekinger@163.com" name=author>
<%
set rsT=server.CreateObject("ADODB.RecordSet")
uSubmitSql="update verification set STU_SUBMIT=""1"" where STU_NUM='"& Session("NumT_Stu")&"'"
set rsT=Conn.Execute(uSubmitSql)
%>
<link href="css/Style.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="500" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="49" height="35" background="images/HOME_BG3.GIF"> </td>
<td height="35" background="images/HOME_BG9.GIF"> <div align="center"><span class="Xsmall"><font color="#FF0000">恭喜你完成本次考试任务</font></span></div></td>
<td width="13" height="1"><img src="images/home_bg8.gif" width="13" height="35"></td>
</tr>
<tr>
<td width="49" background="images/HOME_BG1.GIF"> <br> </td>
<td background="images/home_bg10.gif">
<blockquote class="Xsmall">
<p>
<%
'判断----------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='1'"
rsT.open trySql,Conn
'判断题学生分数
PdSum=0
'判断题做对个数
PdRightNum=0
PdNum=Session("Pd_Num")
for i=1 to PdNum
'判断题学生TRY_KEY
PdStuTT=request.form("PdCb"&i)
select case PdStuTT
case 1
PdStuT="1"
case else
PdStuT="0"
end select
'试卷TRY_KEY
PdRsTT=Trim(rsT("TRY_KEY"))
'判断题TRY_CENT
PdRsCentT=rsT("TRY_CENT")
select case PdStuT
case PdRsTT
PdRightNum=PdRightNum+1
PdSum=PdSum+PdRsCentT
end select
rsT.movenext
next
rsT.close
'单选---------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='2'"
rsT.open trySql,Conn
'单选TRY_SUBJECT做对数目
DxRightNum=0
'单选总分
DxSum=0
DxNum=Session("Dx_Num")
for i=1 to DxNum
'学生TRY_KEY
DxStuT=request.form("DxRb"&i)
'试卷TRY_KEY
DxRsTT=Trim(RsT("TRY_KEY"))
'本单选题TRY_CENT
DxRsCentT=(RsT("TRY_CENT"))
select case DxStuT
case DxRsTT
DxRightNum=DxRightNum+1
DxSum=DxSum+DxRsCentT
end select
rsT.movenext
next
rsT.close
'多选---------------------------------------->
trySql="select * from "&Session("tryT")&" where TRY＿TYPE='3'"
rsT.open trySql,Conn
'多选TRY_SUBJECT做对数目
DdxRightNum=0
'多选总分
DdxSum=0
DdxNum=Session("Ddx_Num")
for i=1 to DdxNum
'学生TRY_KEY
DdxStuTT=request.form("DxCb"&i)
DdxStuT=replace(replace(DdxStuTT,",","")," ","")
'试卷TRY_KEY
DdxRsTT=Trim(RsT("TRY_KEY"))
'本单选题TRY_CENT
DdxRsCentT=(RsT("TRY_CENT"))
select case DdxStuT
case DdxRsTT
DdxRightNum=DdxRightNum+1
DdxSum=DdxSum+DdxRsCentT
end select
rsT.movenext
next
rsT.close
TrySum=PdSum+DxSum+DdxSum
%>
<%
ListFlag=request("ListFlagCb")
select case ListFlag
case 1
response.write(Session("NameT_Stu")&"同学，你的成绩为： "&TrySum)
response.write("<br>判断做对个数： "&PdRightNum)
response.write("<br>单选做对个数： "&DxRightNum)
response.write("<br>多选做对个数： "&DdxRightNum)
case else
response.write("<br><center>若想要成绩请于你的老师联系！</center>")
end select
TryDate=Date()
TryTime=Time()
MaxIdSql="select max(ID) as MaxID from score"
set rsT=Conn.Execute(MaxIdSql)
MaxID=rsT("MaxID")
if isNull(MaxID) then
MaxID=0
end if
MaxID=MaxID+1
insertScoreSql="insert into score values("&MaxID&",'"&Session("NumT_Stu")&"','"&Session("tryT")&"',"&TryDate&",'"&TryTime&"',"&TrySum&")"
'uScoreSql="update verification set STU_SCORE="&TrySum&" where STU_NUM='"& Stu_NameT&"'"
'response.Write(insertScoreSql)
'response.End()
set rsT=Conn.Execute(insertScoreSql)
%>
</p>
</blockquote></td>
<td width="13" background="images/home_bg7.gif"> </td>
</tr>
<tr>
<td width="49" height="42" background="images/HOME_BG2.GIF"> </td>
<td height="22" background="images/home_bg10.gif" bgcolor="#FFFFFF" class="Xsmall"><div align="center"><a href="javascript:window.close()">[关闭窗口]</a></div></td>
<td width="13" height="22" background="images/HOME_BG7.GIF"> </td>
</tr>
<tr>
<td height="12" background="images/HOME_BG4.GIF"> </td>
<td background="images/HOME_BG5.gif"> </td>
<td background="images/HOME_BG6.GIF"> </td>
</tr>
</table>
</body>
</html>
