📄 zhuanxuetongji.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<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">
<!--#include file="Top.asp"-->
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <TD vAlign=top width=46 background=images/p_left_2.gif></TD>
    <TD><div align="center">
      <%
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></b><b>2009年春转学生已编班人数统计表</b></font><br>
    </div>
      <table width="277" 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="37"><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 rs3=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=rs3(0)-rs7(0)
response.Write "<tr align=middle ><td>"&rs1("class_1")&"</td><td>"&rs1("admin")&"</td><td>"&rs3(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="37"><font size="2">转入人数</font></td>
    <td width="33"><font size="2">男生人数</font></td>
    <td width="35"><font size="2">女生人数</font></td>
  </tr>
</table>
            <p align="center"><br>
            </p>            </TD>
    <TD vAlign=top width=46 background=images/p_left_3.gif></TD>
  </tr>
</table>
<!--#include file="CopyRight.asp"-->
</BODY>
</HTML>
⌨️ 快捷键说明

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