📄 1.asp

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

💻 ASP

字号:

<html>
<head>
<META NAME="Robots" CONTENT="noindex">
<title>图书管理系统</title>

</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")
%>
<%
Dim rs1,rs2,rs3
set rs1=conn.execute("select * from admin_name  ")
do while not rs1.eof
set rs2=conn.execute("select count(*) from user_name where class="&rs1("class"))
set rs3=conn.execute("select count(*) from user_name where 性别=1 and class="&rs1("class"))

  response.Write( "<tr><td> <a>"&rs1("class_1")&"</a></td><td>["&rs2(0)&"人]</td><td>["&rs3(0)&"]</td></tr>")

<table width="200" border="1" cellspacing="0" cellpadding="0">
  <tr>
     <td>"&rs1("class_1")&"</td>
	 <td>"&rs2(0)&"</td>   
    <td>"&rs3(0)&"</td>    
  </tr>
rs1.movenext
loop
rs1.close
set rs1=nothing
%>  
</table>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -