📄 huizong.asp
字号:
<!--#include file="conn.asp"-->
<% if session("user")="" then
response.write"<script>alert('对不起，您还没有登陆，如果您已经注册，请先登陆!');history.back(-1);</script>"
response.End()
end if %>
<html>
<head>
<title>高中学生成绩在线管理系统ASP1.0版---制作：冷剑无情</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#CCCCCC" text="#000000">
<table width="818" border="5" cellspacing="2" cellpadding="4" align="center" bordercolor="#FFFFFF" height="983">
<tr>
<td height="371">
<table width="753" border="0" cellspacing="0" cellpadding="0" height="799" align="center">
<tr>
<td height="71">
<div align="center"><b><font size="6" face="楷体_GB2312"><br>
高中学生成绩在线管理系统</font></b></div>
</td>
</tr>
<tr>
<td height="23">
<div align="center"><font face="Arial, Helvetica, sans-serif" size="2">The
Management System Of High School Students Date<br>
<br>
<br>
</font>
<table width="580" border="0" cellspacing="0" cellpadding="0" height="20">
<tr>
<td>
<div align="center"><font color="#FF0000"><b><br>
<br>
高<%=request.querystring("grade")%>年级各班综合成绩数据分类汇总<br>
<br>
</b></font></div>
</td>
</tr>
</table>
<font face="Arial, Helvetica, sans-serif" size="2"> </font></div>
</td>
</tr>
<tr>
<td height="232"> <font size="2"> </font>
<table width="746" border="1" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="30" height="25">
<div align="center"><font size="2"></font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="2">语文</font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="2">数学</font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="2">英语</font></div>
</td>
<td width="60" height="25">
<div align="center"><font size="2">物理</font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="2">化学</font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="2">生物</font></div>
</td>
<td width="59" height="25">
<div align="center"><font size="2">政治</font></div>
</td>
<td width="61" height="25">
<div align="center"><font size="2">历史</font></div>
</td>
<td width="61" height="25">
<div align="center"><font size="2">地理</font></div>
</td>
<td width="61" height="25">
<div align="center"><font size="2">总分</font></div>
</td>
<td width="73" height="25">
<div align="center"><font size="2">最高分</font></div>
</td>
</tr>
</table>
<% for i=1 to 30
grade=request.querystring("grade")
dim rs
dim sql
set rs= server.createobject("adodb.recordset")
sql= "select avg(language) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs.Open sql,conn,1
%>
<table width="745" border="1" cellspacing="0" cellpadding="0" height="19">
<tr>
<td width="31" height="25">
<div align="center"><font size="2"><%=i%></font></div>
</td>
<td width="61" height="25">
<div align="center"><font size="2"><%=rs("av")%>
<% rs.close %>
</font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="3"><font size="2">
<% dim rs2
dim sql2
set rs2= server.createobject("adodb.recordset")
sql2= "select avg(mathe) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs2.Open sql2,conn,1
%>
<%=rs2("av")%>
<% rs.close %>
</font></font></div>
</td>
<td width="64" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs3
dim sql3
set rs3= server.createobject("adodb.recordset")
sql3= "select avg(english) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs3.Open sql3,conn,1
%>
<%=rs3("av")%>
<% rs3.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="60" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs4
dim sql4
set rs4= server.createobject("adodb.recordset")
sql4= "select avg(physics) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs4.Open sql4,conn,1
%>
<%=rs4("av")%>
<% rs4.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs5
dim sql5
set rs5= server.createobject("adodb.recordset")
sql5= "select avg(chemical) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs5.Open sql5,conn,1
%>
<%=rs5("av")%>
<% rs5.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="63" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs6
dim sql6
set rs6= server.createobject("adodb.recordset")
sql6= "select avg(biological) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs6.Open sql6,conn,1
%>
<%=rs6("av")%>
<% rs6.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="60" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs7
dim sql7
set rs7= server.createobject("adodb.recordset")
sql7= "select avg(politics) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs7.Open sql7,conn,1
%>
<%=rs7("av")%>
<% rs7.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="61" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs8
dim sql8
set rs8= server.createobject("adodb.recordset")
sql8= "select avg(history) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs8.Open sql8,conn,1
%>
<%=rs8("av")%>
<% rs8.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="60" height="25">
<div align="center"><font size="3"><font size="3"><font size="2">
<% dim rs9
dim sql9
set rs9= server.createobject("adodb.recordset")
sql9= "select avg(geography) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs9.Open sql9,conn,1
%>
<%=rs2("av")%>
<% rs9.close %>
</font></font><font size="2"></font></font></div>
</td>
<td width="62" height="25">
<div align="center"><font size="3"><font size="3"><font size="3"><font size="2">
<% dim rs0
dim sql0
set rs0= server.createobject("adodb.recordset")
sql0= "select avg(language+mathe+english+physics+chemical+biological+politics+history+geography) as av from scores where grade="&grade&" and class="&i&""
on error resume next
rs0.Open sql0,conn,1
%>
</font><font size="3"><font size="3"><font size="2"><%=rs0("av")%></font></font></font></font></font><font size="3"><font size="3"><font size="2">
<% rs0.close %>
</font></font></font><font size="2"></font></font></div>
</td>
<td width="71" height="25">
<div align="center"><font size="3"><font size="3"><font size="3"><font size="3"><font size="2">
<% dim rsm
dim sqlm
set rsm= server.createobject("adodb.recordset")
sqlm= "select max(language+mathe+english+physics+chemical+biological+politics+history+geography) as max from scores where grade="&grade&" and class="&i&""
on error resume next
rsm.Open sqlm,conn,1
%>
</font><font size="3"><font size="3"><font size="3"><font size="3"><font size="3"><font size="2"><%=rsm("max")%></font></font></font></font></font></font></font></font></font><font size="3"><font size="3"><font size="3"><font size="2">
<% rsm.close %>
</font></font></font></font><font size="2"></font></font></div>
</td>
</tr>
</table>
<% next %>
</td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td>
<div align="center"><font size="2" color="#000000" face="Arial, Helvetica, sans-serif">Copyright©
问剑网ASP小组 All right Reserved QQ:349643649</font><font size="2" color="#000000">
</font></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -