📄 my_report.asp
字号:
<!--#include file ="conn.asp"-->
<!--#include file="check.asp"-->
<%
session.timeout=125
sql="select student.* from student where student.id="&request("id")
set rs=conn.execute(sql)
set rs1=conn.execute("select * from report order by id desc")
set rs2=conn.execute("select * from report where 学生id="&request("id"))
if not rs2.eof then
sql3="select count(学生id) as ci, max(分数) as fs ,max(补考成绩) as hbf,min(分数) as lf,min(补考成绩) as lbf from report where 学生id="&request("id")&" group by 学生id"
'response.write sql3
'response.end
set rs3=conn.execute(sql3)
ci=rs3("ci")
if rs3("fs")>rs3("hbf") then
fs=rs3("fs")
else
fs=rs3("hbf")
end if
if rs3("lf")<rs3("lbf") then
lf=rs3("lf")
else
lf=rs3("lbf")
end if
sql4="select count (*) as bjg from report where 学生id="&request("id")&" and 分数<60 or 补考成绩<60 group by 学生id"
'response.write sql4
'response.end
set rs4=conn.execute(sql4)
bjg=rs4("bjg")
else
ci=0
fs=0
lf=0
bjg=0
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<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="400">
<tr>
<td align="center" colspan="3"><font color=red><%=rs("姓名")%></font>各期考试统计<p>学生基本资料==> 性别：<%=rs("性别")%> 班号：<%=rs("班号")%>
学号：<%=rs("学号")%></p>
<p>（参加过<font color=red> <%=ci%> </font>期考试，最高 <font color=red> <%=fs%> </font> 分，最低 <font color=red> <%=lf%> </font> 分， <font color=red> <%=bjg%> </font> 次不及格）</td>
</tr>
<tr>
<td align="center" bgcolor="#CBEFDC">期数</td>
<td align="center" bgcolor="#CBEFDC">分数</td>
<td align="center" bgcolor="#CBEFDC">补考成绩</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>"
printcode=printcode&"<div align=center><center><table border=1 cellpadding=5 cellspacing=0 style='border-collapse:collapse' bordercolor=#111111 width=400>"
printcode=printcode&"<tr><td align=center colspan=3><font color=red>"&rs("姓名")&"</font>各期考试统计</p>学生基本资料==> 性别："&rs("性别")&" 班号："&rs("班号")&" 学号："&rs("学号")&"</p>"
printcode=printcode&"<p>（参加过 "&ci&" 期考试： "
printcode=printcode&" 最低 "&lf&" 分：最高 "&fs&" 分，"&bjg&" 次不及格）</td>"
printcode=printcode&"</tr><tr><td align=center bgcolor=#CBEFDC>期数</td><td align=center bgcolor=#CBEFDC>分数</td><td align=center bgcolor=#CBEFDC>补考成绩</td></tr>"
while not rs1.eof
sqls="select * from report where 学生id="&request("id")&" and id="&rs1("id")
set rss=conn.execute(sqls)
if rss.eof then
fen="未参加"
bfen="未参加"
else
if rss("分数")>=60 then
fen="<font color=#008000>"&rss("分数")&"分</font>"
else
fen="<font color=red>"&rss("分数")&"分</font>"
end if
if rss("是否补考")=true then
if isnull(trim(rss("补考成绩"))) or trim(rss("补考成绩"))="" then
bfen="无"
else
if rss("补考成绩")>=60 then
bfen="<font color=#008000>"&rss("补考成绩")&"分</font>"
else
bfen="<font color=red>"&rss("补考成绩")&"分</font>"
end if
end if
else
bfen="未参加"
end if
end if
%>
<tr>
<td align="center"><a href="test.asp">第 <%=rs1("id")%> 期</a></td>
<td align="center"> <%=fen%></td>
<td align="center">
<%=bfen%></td>
</tr>
<% printcode=printcode&"<tr><td align=center>第 "&rs1("id")&" 期</td><td align=center> "&fen&"</td><td align=center> "&bfen&"</td></tr>"
rs1.movenext
wend
printcode=printcode&"<tr><td colspan=3 align=center> </td></tr></table></center></div></body></html>"
%>
<tr>
<td colspan="3" align="center">
<p align="center"><A href="printtemp/my_print.doc" target=_blank>打印此页信息</a></p>
<p align=center><a href=index.asp>返回考场</a></td>
</tr>
</table>
</center>
</div>
</body>
</html>
<%
filepath="printtemp"
fname="my_print.doc"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(server.mappath(filePath& "\" & fname))
fout.WriteLine printcode
fout.close
'response.write printcode
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -