📄 manager.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("user")="" then
response.write "您无此权限"
response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>天门方正电脑学生管理系统-管理中心</title>
<link rel="stylesheet" href="style.css">
</head>
<body topmargin="0">
<!--#include file="top.asp"-->
<div align="center">
<table width="738"><img border="0" src="images/top_1.jpg"></table>
</div>
<div align="center">
<table border="0" width="738" cellspacing="0" cellpadding="0">
<tr>
<td width="100%">
<img border="0" src="images/girl.jpg">
</td>
</tr>
</table>
</div>
<div align="center">
<table border="1" width="700" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="50%" valign="top" align="center">即将毕业的学生</td>
<td width="50%" valign="top" align="center">生活费快到期学生</td>
</tr>
<tr>
<td width="50%" valign="top">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from st_info where ((out_time < date()+5 ) or out_time is null) and user_state='在读' order by id desc"
rs.open sql,conn,1,1
%>
<table border="1" width="350" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="23%">学号</td>
<td width="25%">姓名</td>
<td width="25%">类型</td>
<td width="33%">毕业日期</td>
</tr>
<%
if not rs.eof then
do while not rs.eof
%>
<tr>
<td width="23%"><%=rs("user_number")%></td>
<td width="25%"><a href=xuefeiQuery.asp?id=<%=rs("id")%>&user_type=1><%=rs("user_name")%></a></td>
<td width="25%"><%=rs("user_type")%></td>
<td width="33%"><%if isnull(rs("out_time")) then%>未交费 <% else %> <%=rs("out_time")%> <%end if%></td>
</tr>
<%
rs.movenext
loop
else
%>
<tr>
<td width="50%" colspan="4"><marquee>暂无情况</marquee></td>
</tr>
<%end if%>
<tr>
<td width="23%" colspan="4" align="right"><a href="student1.asp">更多信息</a></td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</td>
<td width="50%" valign="top">
<%
set rs=server.createobject("adodb.recordset")
sql="select top 10 * from st_info where ((shenghuo < date()+5 ) or shenghuo is null) and lodging='住读' order by id desc"
rs.open sql,conn,1,1
%>
<table border="1" width="350" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="19%">ID号</td>
<td width="23%">学号</td>
<td width="25%">姓名</td>
<td width="33%">生活费时间</td>
</tr>
<%if not rs.eof then
do while not rs.eof%>
<tr>
<td width="19%"><%=rs("id")%></td>
<td width="23%"><%=rs("user_number")%></td>
<td width="25%"><a href=xuefeiQuery.asp?id=<%=rs("id")%>&user_type=2><%=rs("user_name")%></a></td>
<td width="33%"><%if isnull(rs("shenghuo")) then%>未交费 <% else %> <%=rs("shenghuo")%> <%end if%></td>
</tr>
<%
rs.movenext
loop
else%>
<tr>
<td width="50%" colspan="4"><marquee>暂无情况</marquee></td>
</tr>
<%end if%>
<tr>
<td width="23%" colspan="4" align="right"><a href="student2.asp">更多信息</a></td>
</tr>
</table>
<%
rs.close
set rs=nothing
%>
</td>
</tr>
<tr>
<td width="50%" colspan="2" align="center" valign="top" >当天盘点</td>
</tr>
<tr>
<td width="50%" valign="top" align="center">当日入学学生信息</td>
<td width="50%" valign="top" align="center">当日费用详情</td>
</tr>
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from st_info where in_time=date() order by user_number asc"
rs1.open sql1,conn,1,1
%>
<tr>
<td width="50%" valign="top">
<table border="1" width="350" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="23%">学号</td>
<td width="23%">姓名</td>
<td width="25%">类型</td>
<td width="25%">毕业时间</td>
</tr>
<%
if not rs1.eof then
do while not rs1.eof
%>
<tr>
<td width="23%"><%=rs1("user_number")%></td>
<td width="23%"><a href=xuefeiQuery.asp?id=<%=rs1("id")%>&user_type=1><%=rs1("user_name")%></a></td>
<td width="25%"><%=rs1("user_type")%></td>
<td width="25%"><%if isnull(rs1("out_time")) then%>未交费 <% else %> <%=rs1("out_time")%> <%end if%></td>
</tr>
<%
rs1.movenext
loop
else
%>
<tr>
<td width="50%" colspan="4"><marquee>暂无情况</marquee></td>
</tr>
<%end if
rs1.close
set rs1=nothing
%>
</table>
</td>
<%
set rs3=server.createobject("adodb.recordset")
sql3="select top 10 * from feiyong where user_time =date() order by id desc"
rs3.open sql3,conn,1,1
%>
<td width="50%" valign="top">
<table border="1" width="350" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
<tr>
<td width="23%">学号</td>
<td width="25%">姓名</td>
<td width="25%">类型</td>
<td width="25%">金额</td>
</tr>
<%
if not rs3.eof then
do while not rs3.eof
%>
<tr>
<td width="23%"><%=rs3("user_number")%></td>
<td width="23%"><%=rs3("user_name")%></td>
<% 'a href=xuefeiQuery.asp?id==rs3("id")%>
<td width="25%"><%=rs3("user_type")%></td>
<td width="25%"><%=rs3("money")%></td>
</tr>
<%
rs3.movenext
loop
else
%>
<tr>
<td width="50%" colspan="4"><marquee>暂无情况</marquee></td>
</tr>
<%end if
rs3.close
set rs3=nothing
set rs=server.createobject("adodb.recordset")
sql="select sum(money) as fy from feiyong where user_time =date()"
rs.open sql,conn,1,1
%>
<tr>
<td width="23%" colspan="4" align="right"><a href="student3.asp">更多信息</a></td>
</tr>
<tr>
<td width="23%" colspan="3" align="right">当天费用合计</td>
<%if not (rs.bof and rs.eof) then%>
<td width="23%" colspan="1" align="left"><%if isnull(rs("fy")) then%>0元<%else%><%=rs("fy")%>元<%end if%></td>
<%else%>
<td width="23%" colspan="1" align="left">0元</td>
<%
end if
rs.close
set rs=nothing
%>
</tr>
</table>
</td>
</tr>
</table>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -