displayscore.asp
来自「网络考试系统最终备份」· ASP 代码 · 共 183 行
ASP
183 行
<!--#include file="conn.inc"-->
<%
v_PaperID = Request("testid")
sql="select * from student_score where Paper_ID='"&v_PaperID&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if rs.eof then
response.write "没有查到"
response.end
end if
sql1 = "select * from paper_info p,subject_info s where p.Sub_ID = s.SubID and p.PaperID = "&v_PaperID
SET rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
v_SubName = rs1("SubName")
rs1.close
set rs1 = nothing
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<title>原创作品 -- 数据重排1.0</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta content="Microsoft FrontPage 5.0" name="GENERATOR">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style type="text/css">
.listDataTable {
FONT-SIZE: 15px
}
.listTableHead {
FONT-WEIGHT: bold; CURSOR: hand
}
.onMouseOnTr {
CURSOR: default; COLOR: #ff0000; BACKGROUND-COLOR: #efefef
}
.listTableHeadO {
FONT-WEIGHT: bold; CURSOR: s-resize; COLOR: #ffffff;BACKGROUND-COLOR: #006699
}
.listHeadClicked {
FONT-WEIGHT: bold; CURSOR: n-resize; COLOR: #ffffff; BACKGROUND-COLOR: #990033
}
.listHeadClicked0 {
FONT-WEIGHT: bold; CURSOR: s-resize; COLOR: #ffffff; BACKGROUND-COLOR: #990033
}
</style>
<script language="JavaScript" src="../js/jm_list.js"></script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body id="all" text="#000000">
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：<a href="news.asp">系统管理</a> >
<a href="searchscore.asp">查询成绩</a> > 通过审批考试成绩查询</td>
</tr>
</table>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
<tr>
<td width="100%">
<p align="center"><b><font color="#FF0000" size="4" face="黑体">网上在线考试《<%=v_SubName%>》考试成绩一览表</font></b></td>
</tr>
<tr>
<td width="100%" height="30">
<p align="center"><b>考试编号：<%=rs("Paper_ID")%></b></td>
</tr>
</table>
<table cellSpacing="0" cellPadding="0" border="0" width="100%" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td id="clearStart">
<table class="listDataTable" id="DataTable" onmouseover="" onmouseout="" cellSpacing="1" cellPadding="0" width="100%" border="1" style="border-collapse: collapse" bordercolor="#C0C0C0">
<tr id="ignore" bgColor="#eeeeee">
<td height="20" colspan="9" bgcolor="#E1E1E1" class="listTableHead" onyes="head">评分标准：平时成绩比例：
<%
sql1 = "select * from score_tand where Paper_ID = "&v_PaperID
set rs1 = server.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
response.Write(rs1("UsualScoreRate"))
%>
% 卷面成绩比例：
<%
response.Write(rs1("PaperScoreRate"))
rs1.close
set rs1= nothing
%>%</td>
</tr>
<tr id="ignore" bgColor="#eeeeee">
<td width="4%" height="20" bgcolor="#E1E1E1" class="listTableHead" onyes="head"> </td>
<td width="9%" height="20" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
帐 号</td>
<td width="8%" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
姓名</td>
<td width="13%" bgcolor="#E1E1E1" class="listTableHead" onyes="head"><div align="center">所在学校</div></td>
<td width="14%" bgcolor="#E1E1E1" class="listTableHead" onyes="head"><div align="center">所在院系</div></td>
<td width="15%" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
所在班级</td>
<td width="13%" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
平时成绩</td>
<td width="11%" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
<div align="center">考试成绩</div></td>
<td width="13%" bgcolor="#E1E1E1" class="listTableHead" onyes="head">
成绩</td>
</tr>
<%
i=1
do while not rs.eof
%>
<tr>
<td nowrap height="20" bgcolor="#E1E1E1">
<p align="center"><%=i%></td>
<td nowrap height="20"> <%
sql1 = "select * from user_info where UserID = "&rs("User_ID")
SET rs1 = SERVER.CreateObject("adodb.recordset")
rs1.open sql1,conn,3,2
response.Write(rs1("UserAccount"))
%>
</td>
<td nowrap > <%=rs1("UserRName")%></td>
<td nowrap >
<div align="center">
<%
sql2 = "select * from college_info where CollegeID ="&rs1("College_ID")
set rs2 = server.CreateObject("adodb.recordset")
rs2.open sql2,conn,3,2
response.Write(rs2("CollegeName"))
rs2.close
set rs2=nothing
%>
</div></td>
<td nowrap ><div align="center">
<%
sql2 = "select * from department_info where DepID ="&rs1("Dep_ID")
set rs2 = server.CreateObject("adodb.recordset")
rs2.open sql2,conn,3,2
response.Write(rs2("DepName"))
rs2.close
set rs2=nothing
%>
</div></td>
<td nowrap align="center"><%
sql2 = "select * from class_info where ClassID ="&rs1("Class_ID")
set rs2 = server.CreateObject("adodb.recordset")
rs2.open sql2,conn,3,2
response.Write(rs2("ClassName"))
rs2.close
set rs2=nothing
rs1.close
set rs1 = nothing
%></td>
<td nowrap align="center" ><%=rs("UsaScore")%></td>
<td nowrap align="center" ><%=rs("PaperScore")%></td>
<td nowrap align="center" ><%=rs("Score")%></td>
</tr>
<%
i=i+1
rs.movenext
loop
%>
<tr id="ignore">
<td align="right" colSpan="9"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
<%
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?