📄 3.asp

📁 学籍管理功能,能实现调班注销学籍等,中小学通用

💻 ASP

字号:

<html>
<head>
<META NAME="Robots" CONTENT="noindex">
<title>图书管理系统</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">
<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")
%>
<table width="459" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#000099" style="border-collapse: collapse">
<tr align=middle><td width="73" >班级</td><td width="79">班主任</td><td width="46">原有人数</td></tr>
<%
Dim rs1,rs2
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='101'")  '本班原有人数
set rs2=conn.execute("select count(*) from user_name where 本学期转学=0 and class_1="&rs1("class"))  '本班原有人数
'set rs2=conn.execute("select count(*) from user_name where 本学期转学=0 and class="&rs1("class"))  '本班原有人数

response.Write "<tr align=middle ><td >"&rs1("class_1")&"</td><td>"&rs1("admin")&"</td><td>"&rs2(0)&"</td></tr>"
rs1.movenext
loop
rs1.close
set rs1=nothing
%>
<tr align=middle><td width="73">班级</td>
<td width="79">班主任</td>
<td width="46">原有人数</td>

</tr>
</table>
<div align="center"></div>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -