📄 admin_editach2.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>
<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,AllGb,years,stat,classes
page=request.querystring("page")
years=Session("years")
stat=Session("stat")
classes=Request.Form("classes")
a_id=Request.Form("a_id")
if stat="" and years="" then
sql4=""
else
sql4="and a_stat="&stat&" and a_years="&years
end if
sqls=Session("strSQL")
sql3="a_id"&",a_stat"&",a_no"&",a_name"&sqls
sql5="Select "&sql3&" from achievement where a_del=False "&sql4&" order by a_id desc"
AllGb=Conn.Execute("select count(a_id) from achievement where a_del=False ")(0)
PageSize = 15
set rs=server.createobject("adodb.recordset")
rs.open sql5,conn,3,3
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_editach.asp?b1=恢复&s_class=<%=Session("stat")%>">重新查找</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]);
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -