📄 admin_display.asp
字号:
<!--#include file="user_err.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
b1=request("b1")
if b1="" then
%>
<HTML><HEAD><TITLE>汕头育新学校 - 成绩管理系统管理员页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK
href="images/style.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.pinkstar {
COLOR: #ed5460
}
<STYLE type=text/css>BODY {
FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
INPUT {
FONT-SIZE: 12px; COLOR: #000080
}
SELECT {
FONT-SIZE: 12px; COLOR: #000080
}
TH {
FONT-SIZE: 12px; COLOR: #000080
}
TD {
FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
A:link {
FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:visited {
FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:active {
FONT-SIZE: 12px; COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
FONT-SIZE: 12px; COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<!--#include file="up.inc"-->
<!--#include file="upadmin.inc"-->
<%dim page,s_id,AllGb
a_type = Request("a_type")
s_id = Request("s_id")
page=request.querystring("page")
AllGb=Conn.Execute("select count(s_id) from student where s_del=False ")(0)
PageSize = 15
set rs=server.createobject("adodb.recordset")
rs.open "Select * from student where s_del=False order by s_id desc",conn,3,3
s_class=rs("s_class")
rs.PageSize = PageSize
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.bof and rs.eof then
response.write "本类无内容"
else
%>
<TABLE width=750 border=0>
<TBODY>
<TR>
<TD vAlign=top align=middle width=200>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=200
borderColorLight=#3a9ad3 border=1>
<TBODY>
<TR> <TD vAlign=center align=middle
bgColor=#ebf4fa>班级</TD>
<TD vAlign=center align=middle
bgColor=#ebf4fa>学号</TD>
<TD vAlign=center align=middle
bgColor=#ebf4fa>姓名</TD>
<TD vAlign=center align=middle
bgColor=#ebf4fa>性别</TD>
</TR>
<%count=0
do while not rs.eof and count<rs.pagesize%><%s_class=rs("s_class")%>
<TR>
<TD vAlign=center align=middle
bgColor=#ffffff><%=Listclass(s_class)%></TD>
<TD vAlign=center align=middle
bgColor=#ffffff><%=rs("s_no")%></TD>
<TD vAlign=center align=middle
bgColor=#ffffff><a href="admin_display.asp?s_id=<%=rs("s_id")%>"><%=rs("s_name")%></a></TD>
<TD vAlign=center align=middle
bgColor=#ffffff><%=rs("s_sex")%></TD>
</TR>
<%rs.movenext
count=count+1
loop%>
<TR>
<TD vAlign=center align=left bgColor=#ffffff colspan="6"><a style="text-decoration: none" href="admin_display.asp?page=<%=page-1%>"><font color="#000000">[上页]</font></a><a style="text-decoration: none" href="admin_display.asp?page=<%=page+1%>"><font color="#000000">[下页]</font></a>共<%=rs.pagecount%>页
（第<font color=#ff0000><%=page%></font>页）共有记录<%=AllGb%>条</TD></TR></TBODY></TABLE><BR>
<TABLE width="70%" border=0>
<TBODY>
<TR>
<TD align=right>公告消息</TD></TR>
<TR>
<TD align=right>留言 <A></A></TD></TR></TBODY></TABLE></TD>
<TD width=20> </TD>
<TD vAlign=top width=530>
<%
If s_id="" Then
sql="SELECT top 1 * FROM student order by s_id desc"
else
sql= "SELECT * from student where s_id = " & s_id
end if
set rs1 = conn.execute(Sql)
s_name = rs1("s_name")
s_no = rs1("s_no")
s_sex = rs1("s_sex")
if rs1.bof and rs1.eof then
response.write "本类无内容"
else
%>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD class=tdTit_p>汕头育新学校学生学籍资料</TD></TR>
<TR>
<TD class=tdBor_p>
<DIV align=center>
<TABLE cellSpacing=4 cellPadding=0 width=521 align=center bgColor=#fff7f7
border=0>
<TBODY>
<TR>
<TD width=521>
<DIV align=center>
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=400
borderColorLight=#3a9ad3 border=1>
<TBODY>
<TR bgColor=#ffe8e8>
<TD class=p14 colSpan=7 height=23>
<DIV align=center><STRONG>学生信息</STRONG></DIV></TD></TR>
<TR>
<TD class=p12 vAlign=top height=23> 班 级</TD>
<TD><%=Listclass(s_class)%></TD>
<TD colspan="2"> 学 号</TD>
<TD colspan="2"><%=s_no%></TD>
<TD rowspan="4">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -