📄 admin_addach.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")
classes =Session("classes")
if classes="" then
AllGb=Conn.Execute("select count(s_id) from student where s_yesorno=False and s_del=False ")(0)
PageSize = 15
set rs=server.createobject("adodb.recordset")
rs.open "Select * from student where s_yesorno=False and s_del=False order by s_id desc",conn,3,3
else
AllGb=Conn.Execute("select count(s_id) from student where s_class='" & classes & "' and s_yesorno=False and s_del=False ")(0)
PageSize = 15
set rs=server.createobject("adodb.recordset")
rs.open "Select * from student where s_class='" & classes & "' and s_yesorno=False and s_del=False order by s_id desc",conn,3,3
end if
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 %>
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center>
<TBODY>
<TR class=h4_center>
<TD align=middle bgColor=#d2e7f4 height=30>该班没有学生，请<a href="admin_addst.asp">注册</a>学生，如果学生成绩已全部输入，点<a href="admin_addach.asp?b1=恢复&s_class=<%=Session("classes")%>">操作</a>完成输入工作，其它错误可<a href="logout.asp">退出</a>后再登陆。</TD></TR>
<TR>
<TD height=10></TD></TR></TBODY></TABLE>
<%
else
dim rs1
dim count1
set rs1 = conn.execute("select * from stat where st_del=false order by st_id asc")
%>
<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();
<%
count1 = 0
do while not rs1.eof
%>
subcat[<%=count1%>] = new Array("<%=(rs1("st_name"))%>","<%=rs1("st_class")%>","<%=rs1("st_id")%>");
<%
count1 = count1 + 1
rs1.movenext
loop
rs1.close
%>
onecount=<%=count1%>;
function changelocation(locationid)
{
document.form1.stat.length = 0;
var locationid=locationid;
var i;
for (i=0;i < onecount; i++)
{
if (subcat[i][1] == locationid)
{
document.form1.stat.options[document.form1.stat.length] = new Option(subcat[i][0], subcat[i][2]);
}
}
}
</script>
<TABLE width=700 border=0>
<TBODY>
<TR>
<TD vAlign=top width="5%"></TD>
<TD vAlign=top align=middle width="90%">
<TABLE cellSpacing=0 borderColorDark=#ffffff cellPadding=0 width=630
borderColorLight=#3a9ad3 border=1>
<TBODY>
<TR> <TD vAlign=center align=middle
bgColor=#ebf4fa><table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<form name="form1" method="post" action="admin_addach.asp?b1=确定">
<td bgcolor="#ebf4fa" align="center"> <% sql = "select y_id,y_name from years order by y_id desc"
set rs1 = conn.execute(sql)
if rs1.eof and rs1.bof then
response.write "请先添加学年！"
response.end
else
%>
<select class=txBox_p id=years maxLength=30 name=years>
<%do while not rs1.eof%>
<option value="<%=rs1(0)%>"><%=(rs1(1))%></option>
<%
rs1.movenext
loop
end if
rs1.close
set rs1 = nothing
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -