📄 tongji.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
字号:
<html>
<head>
<META NAME="Robots" CONTENT="noindex">
<title>2009年春班级人数统计表</title>

<style type="text/css">
<!--
.STYLE1 {
	color: #0110FF;
	font-size: 12px;
}
-->
</style>
</head>

<body topmargin="0" leftmargin="0" marginheight="0" marginwidth="0" bgcolor="#c4d8ed" text="#000000">
<p align="center">
<br>
<%
dim conn,rs,datapath
set conn=Server.CreateObject("ADODB.Connection")
datapath="1date_wei.mdb"
dbpath=Server.MapPath(datapath)
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source="& dbpath
set rs=Server.CreateObject("ADODB.Recordset")
%>
<font SIZE="4"><b>2009年春班级人数统计表</b></p>
<table width="381" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000099" style="border-collapse: collapse">
<tr align=middle><td width="93" ><font size="2">班级</font></td><td width="67">
	<font size="2">班主任</font></td><td width="36"><font size="2">原有人数</font></td>
	<td width="37"><font size="2">转入人数</font></td>
  <td width="38"><font size="2">转出人数</font></td>
  <td width="33"><font size="2">实际人数</font></td>
  <td width="33"><font size="2">男生人数</font></td>
  <td width="35"><font size="2">女生人数</font></td></tr>
<%
Dim rs1,rs2,rs3,rs4,rs5,rs6,rs7
set rs1=conn.execute("select * from admin_name  ")
do while not rs1.eof
set rs2=conn.execute("select count(*) from user_name where 本学期转学=0 and class_1="&rs1("class"))  '本班原有人数
set rs3=conn.execute("select count(*) from user_name where 本学期转学=1 and class_1="&rs1("class")) '本班转入人数
set rs5=conn.execute("select count(*) from user_name where 在校情况=2 and class_1="&rs1("class")) '本班转出人数
set rs6=conn.execute("select count(*) from user_name where 在校情况=1 and class_1="&rs1("class")) '本班实际在坐人数（含转入学生）
set rs7=conn.execute("select count(*) from user_name where 在校情况=1 and 性别='男' and class_1="&rs1("class")) '本班实际男生人数
    rs4=rs6(0)-rs7(0)
response.Write "<tr align=middle ><td>"&rs1("class_1")&"</td><td>"&rs1("admin")&"</td><td>"&rs2(0)&"</td><td>"&rs3(0)&"</td><td>"&rs5(0)&"</td><td>"&rs6(0)&"</td><td>"&rs7(0)&"</td><td>"&rs4&"</td></tr>"
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<tr align=middle><td width="93"><font size="2">班级</font></td>
<td width="67"><font size="2">班主任</font></td>
<td width="36"><font size="2">原有人数</font></td>
<td width="37"><font size="2">转入人数</font></td>
<td width="38"><font size="2">转出人数</font></td>
<td width="33"><font size="2">实际人数</font></td>
<td width="33"><font size="2">男生人数</font></td>
<td width="35"><font size="2">女生人数</font></td>
</tr>
</table>
<div align="center"></div>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -