📄 test_tj.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="../../teacher/check.asp"-->
<%
flag=0
set rs=conn.execute("select top 1 * from report order by id desc")
id=trim(request("id"))
title="第 "&id&" 期考试综合统计"
if cint(id)=cint(rs("id")) then title=title&"<font color=red>（最新一期） </font>"
set rs1=conn.execute("select count (学生id) as students from report where id="&id&" and 学生id<>0 group by 学生id" )
if rs1.eof then
flag=1
message="<font color=red>无人参加考试</font>"
else
set rs2=conn.execute("select max(分数) as zgf,min(分数) as zdf,avg(分数) as pjf from report where id="&id)
zgf=rs2("zgf")
zdf=rs2("zdf")
pjf=rs2("pjf")
set rs2=conn.execute("select count(分数) as fen90 from report where 分数>=90 and id="&id)
fen90=rs2("fen90")
set rs2=conn.execute("select count(分数) as fen80 from report where 分数>=80 and 分数<90 and id="&id)
fen80=rs2("fen80")
set rs2=conn.execute("select count(分数) as fen70 from report where 分数>=70 and 分数<80 and id="&id)
fen70=rs2("fen70")
set rs2=conn.execute("select count(分数) as fen60 from report where 分数>=60 and 分数<70 and id="&id)
fen60=rs2("fen60")
set rs2=conn.execute("select count(分数) as fen50 from report where 分数<60 and id="&id)
fen50=rs2("fen50")
end if %>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网上考试系统</title>
<link rel="stylesheet" type="text/css" href="../css.css">
</head>
<body topmargin="0" leftmargin="0">
<p>
<p align="center"><font class=test1>成绩统计管理</font></p>
<div align="center">
<center>
<table border="1" cellpadding="5" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="600">
<tr>
<td align="center" colspan="9">
<p align="center"><%=title%>往期综合统计：
<select name="cate" size="1" style="background-color: rgb(224,252,255)" onchange="javascript:self.location=this.options[this.selectedIndex].value">
<%set rs3=conn.execute("select * from report order by id desc")
while not rs3.eof %>
<option value="test_tj.asp?id=<%=rs3("id")%>" <%if cint(request("id"))=cint(rs3("id")) then response.write "selected"%>>第<%=rs3("id")%>期</option>
<%rs3.movenext
wend%>
</select></td>
</tr>
<tr>
<td align="center" bgcolor="#CBEFDC">参考人数</td>
<td align="center" bgcolor="#CBEFDC">最高分</td>
<td align="center" bgcolor="#CBEFDC">最低分</td>
<td align="center" bgcolor="#CBEFDC">平均分</td>
<td align="center" bgcolor="#CBEFDC">≥90</td>
<td align="center" bgcolor="#CBEFDC">80—89</td>
<td align="center" bgcolor="#CBEFDC">70—79</td>
<td align="center" bgcolor="#CBEFDC" width="-5">60-69</td>
<td align="center" bgcolor="#CBEFDC" width="-4">≤59</td>
</tr>
<%printcode="<html><head><title>网上考试系统</title><link rel='stylesheet' type='text/css' href='../css.css'></head>"
printcode=printcode&"<body topmargin=0 leftmargin=0><p><p align=center><font class=test1>成绩统计管理</font></p><div align=center>"
printcode=printcode&"<center><table border=1 cellpadding=5 cellspacing=0 style='border-collapse: collapse' bordercolor=#111111 width=600>"
printcode=printcode&"<tr><td align=center colspan=9><p align=center>"&title&"</td></tr>"
printcode=printcode&"<tr><td align=center bgcolor=#CBEFDC>参考人数</td><td align=center bgcolor=#CBEFDC>最高分</td>"
printcode=printcode&"<td align=center bgcolor=#CBEFDC>最低分</td><td align=center bgcolor=#CBEFDC>平均分</td>"
printcode=printcode&"<td align=center bgcolor=#CBEFDC>≥90</td><td align=center bgcolor=#CBEFDC>80—89</td><td align=center bgcolor=#CBEFDC>70—79</td><td align=center bgcolor=#CBEFDC width=-5>60-69</td><td align=center bgcolor=#CBEFDC width=-4>≤59</td></tr>"
if flag=1 then %>
<tr>
<td align="center" colspan=9><%=message%></td></tr>
<%printcode=printcode&"<tr><td align=center colspan=9>"&message&"></td></tr>"
else%>
<tr>
<td align="center"> <%=rs1("students")%> 人</td>
<td align="center"> <%=zgf%> 分</td>
<td align="center">
<%=zdf%> 分</td>
<td align="center">
<%=pjf%> 分</td>
<td align="center">
<%=fen90%> 人</td>
<td align="center">
<%=fen80%> 人</td>
<td align="center">
<%=fen70%> 人</td>
<td align="center" width="-5">
<%=fen60%> 人</td>
<td align="center" width="-4">
<%=fen50%> 人</td>
</tr><%
printcode=printcode&"<tr><td align=center> "&rs1("students")&" 人</td><td align=center> "&zgf&" 分</td><td align=center> "&zdf&" 分</td>"
printcode=printcode&"<td align=center> "&pjf&" 分</td><td align=center> "&fen90&" 人</td><td align=center> "&fen80&" 人</td>"
printcode=printcode&"<td align=center> "&fen70&" 人</td><td align=center width=-5> "&fen60&" 人</td><td align=center width=-4> "&fen50&" 人</td></tr></table></center></div></body></html>"
end if %>
<tr>
<td align="center" colspan="9">
<p align="center"><A href="printtemp/tongji.doc" target=_blank>打印此页信息</a></p>
</tr>
<form name=form2 action="student_admin.asp">
<tr>
<td colspan="9" align="center">
查找其它考生 请输入考生姓名<input type="text" name="keyword" size="20" class="line"> <input type="submit" value="查找" name="B1"></td>
</tr></form>
</table>
</center>
</div>
<%
filepath="printtemp"
fname="tongji.doc"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname))
fout.WriteLine printcode
fout.close
'response.write printcode
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -