admin.asp

来自「学生成绩管理系统」· ASP 代码 · 共 48 行

<%
if session("password")<>"" then
session("return")=request.ServerVariables("SCRIPT_NAME")
%>
<!-- #include file="inc/conn.asp" --> 
<!-- #include file="images/jav.inc" -->
<!-- #include file="inc/top.asp"-->
<!-- #include file="inc/adminmenu.asp" -->
<!-- #include file="inc/conn1.asp" -->


<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><p align="center"><font size=+2 color="#FF0000"><br>
    </font>成绩查寻系统 信息统计</p>
      <table width="40%"  border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
    <!--#include file="inc/conn1.asp"-->

<% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from bjb"
rs.open sql,conn,1,1
bj=rs.recordcount
rs.close
rs.open "select * from bbs1",conn,1,1
user=rs.recordcount
rs.close
rs.open "select * from kcb",conn,1,1
kc=rs.recordcount
rs.close%>          <td width="45%" height="30"><div align="center">班级数</div></td>
          <td width="55%"><div align="center"><%=bj%></div></td>
        </tr>
        <tr>
          <td height="30"><div align="center">学生数</div></td>
          <td height="30"><div align="center"><%=user%></div></td>
        </tr>
        <tr>
          <td height="30"><div align="center">课程数</div></td>
          <td height="30"><div align="center"><%=kc%></div></td>
        </tr>
      </table>
    <p>　</p></td>
  </tr>
</table>


<!--#include file="inc/copyright.asp"-->