📄 listscore.asp
字号:
<!--
****************************************************************
*
* 『CnSohoW作品』 OnlineExam V1.1
*
* 版权所有: 『cnsohow』
*
* 程序制作: CnSohoW『firekinger』
*
* 主页地址: http://www.cnsohow.com/
* E-MAIL: firekinger@163.com
*
****************************************************************
* Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
*
* 【 版权声明 】
*
* 本系统只作为一种技术交流，不能用于商业，希望能给予合作。
*
****************************************************************
*
* 如果你在使用这个程序的过程中有什么错误、意见、建议，请及时
* 告诉我，谢谢！
*
****************************************************************
*
* 安装说明：
*
* 默认的后台数据管理员用户名和密码都是：admin
* 默认的验证密码都是：firekinger
*
****************************************************************几几点说明:
题库中的数据只作测试，不为真实，若要实施还需删除各题表，重新建表。具体过程如下：
a) 先点击题库信息浏览，删除无用题表，注意：正修改的数据题表不能删除!
b) 添加题库建表，注意：数据表名是一次性的，建了就不能修改表名
c) 在试题后台设置中，选择要修改的考试题目，点击修改否
d) 再点击添加试题数据，添加相关考试试题，注意：在判断题中，对的写“A”，错的写“B”
e) 最后浏览选择试题，检查修改您所添加的试题。
****************************************************************
* Copyright (C) 2002 cnsohow.com All Rights Reserved
****************************************************************
-->
<!--#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>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -