www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_manager.asp
<!-- #include file="inc.asp" -->
<!-- #include file="../config.asp" -->
<!-- #include file="../conn.asp" -->
<%
'====================================================================
'25175成绩查询管理系统
'powered by 25175
'=-------------------------------------------------------------------
'= 文件名称：admin.asp
'= 摘 要：后台管理首页
cj_webtit="后台管理首页"
cj_webmap="<a href=admin.asp class=""class"">后台管理</a> - 类别管理"
'= 最后日期：2006-3.1
'====================================================================
Call admin_log
ljbj_id=Checkstr(request("ljbj_id"))
ljb_id =Checkstr(request("ljb_id"))
lj =Checkstr(request("lj"))
bj =Checkstr(request("bj"))
xq =Checkstr(request("xq"))
xq_id =Checkstr(request("xq_id"))
kc =Checkstr(request("kc"))
kcb_id =Checkstr(request("kcb_id"))
kinds=Checkstr(request.querystring("kind"))
%>
<!-- #include file="admin_top.asp"-->
<%
'－－－－－－－－－－－－－年级列表页开始－－－－－－－－－－－－－－－－
If kinds="lj" Then
%>
<table width="160" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5' align="center">
<td width="40">ID</td>
<td width="80">年级</td>
<td width="40">操作</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from ljb order by lj"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<tr align="center" onmouseover="bgColor='#f4f5f5'" onmouseout="bgColor='#ffffff'">
<td><%=rs("id")%></td>
<td><a href="?kind=bj&ljb_id=<%=rs("id")%>&lj=<%=rs("lj")%>" title=查看<%=rs("lj")%>年级下所有班级><%=rs("lj")%></a></td>
<td><a href="updata.asp?kind=lj&id=<%=rs("id")%>">修改</a></td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%>
</table>
<%End If
'－－－－－－－－－－－－－年级列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－班级列表页开始－－－－－－－－－－－－－－－－
If kinds="bj" Then
set rs=server.createobject("adodb.recordset")
sql="select * from bjb where ljb_id="&ljb_id
rs.Open sql,conn,1,1
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5'>
<td>·<a href=admin_manager.asp?kind=lj>年级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from ljb order by lj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("lj")=lj Then
response.write "<a href=#><font color=#FF0000>·"&lj&"</font></a>"
Else
ljlj=rs1("lj")
idid=rs1("id")
response.write "·<a href='?kind=bj&ljb_id="&idid&"&lj="&ljlj&"' title='查看"&ljlj&"年级下所有班级'>"
response.write ljlj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
</table>
<br>
<br>
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5' align="center">
<td width="40">ID</td>
<td width="120">班级</td>
<td width="240" colspan="2">管理员</td>
<td width="250">操作</td>
</tr>
<%do while not rs.eof
ljbj_id=rs("id")
%>
<tr valign="middle" onmouseover="bgColor='#f4f5f5'" onmouseout="bgColor='#ffffff'">
<td align="center"><%=ljbj_id%></td>
<td><a href="?kind=xqb&ljbj_id=<%=ljbj_id%>&ljb_id=<%=ljb_id%>&lj=<%=lj%>&bj=<%=rs("bj")%>" title=查看<%=lj%>年级<%=rs("bj")%>班级下学期><%=rs("bj")%></a></td>
<form action="admin_del.asp?type=admin_user" method="post" name="del<%=ljbj_id%>">
<td width="120">
<select name="admin_user" style="width:80px">
<%
If rs("admin_id")<>"" Then
admin_user = Split(replace(rs("admin_id"),",",""),"|" )
For i = 0 to UBound(admin_user)
response.write "<option>"&admin_user(i)&"</option>"
Next
Else
response.write "<option>无管理员</option>"
End If
%>
</select><input type="submit" name="del<%=ljbj_id%>" value="删除" class="bottom">
<input type="hidden" name="bb" value="bjb">
<input type="hidden" name="iidd" value="<%=ljbj_id%>">
</td>
</form>
<form action="addu.asp" method="post" name="add<%=ljbj_id%>">
<td>
<input type="hidden" name="kind" value="8">
<input type="hidden" name="bb" value="bjb">
<input type="hidden" name="iidd" value="<%=ljbj_id%>">
<input name="admin_user" type="text" value="" size="12" maxlength="20">
<input type="submit" name="add<%=ljbj_id%>" value="增加" class="bottom">
</td>
</form>
<td>
<a href="updata.asp?kind=bj&id=<%=rs("id")%>">修改设置</a> | 设置班级管理员 | 分数统计
</td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs=nothing
set conn=nothing
%>
</table>
<%
End If
'－－－－－－－－－－－－－班级列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－学期课程列表页开始－－－－－－－－－－－－－－－－
If kinds="xqb" Then
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5'>
<td>·<a href=?kind=lj>年级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from ljb order by lj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("lj")=lj Then
response.write "<a href='?kind=bj&ljb_id="&ljb_id&"&lj="&lj&"'><font color=#FF0000>·"&lj&"</font></a>"
Else
ljlj=rs1("lj")
idid=rs1("id")
response.write "·<a href='?kind=bj&ljb_id="&idid&"&lj="&ljlj&"' title='查看"&ljlj&"年级下所有班级'>"
response.write ljlj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=bj&ljb_id=<%=ljb_id%>&lj=<%=lj%>">班级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from bjb where ljb_id="&ljb_id&" order by bj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("bj")=bj Then
response.write "<a href=#><font color=#FF0000>·"&bj&"</font></a>"
admin_id_bj=rs1("admin_id")
admin_user=Replace(Replace(admin_id_bj,",",""),"|",",")
Else
bjbj=rs1("bj")
ljbjljbjid=rs1("id")
response.write "·<a href='?kind=xqb&ljbj_id="&ljbjljbjid&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bjbj&"&xq="&xq&"&xq_id="&xq_id&"' title='查看"&bjbj&"该班级学期列表'>"
response.write bjbj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>
当前班级信息：<%=lj%> － <%=bj%>
<br>班级管理员：<%=admin_user%>
<br>管理菜单：[添加新学期]
</td>
</tr>
</table>
<br>
<br>
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td colspan=3>学期列表</td>
</tr>
<tr align="center">
<td width=30>ID</td>
<td width=120>学期</td>
<td>操作</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from xqb order by id"
rs.Open sql,conn,1,1
do while not rs.eof
xq=rs("xq")
xq_id=rs("id")
%>
<tr>
<td align="center"><%=rs("id")%></td>
<td align="center"><a href=?kind=kcb&lj=<%=lj%>&bj=<%=bj%>&ljbj_id=<%=ljbj_id%>&ljb_id=<%=ljb_id%>&xq_id=<%=xq_id%>&xq=<%=xq%>><%=xq%></a></td>
<td>
[<a href="updata.asp?kind=xq&id=<%=xq_id%>">修改</a>]
[<a href=?kind=zpb&lj=<%=lj%>&ljbj_id=<%=ljbj_id%>&xq_id=<%=xq_id%>>总评</a>]
[总分/平均分 统计更新]
[总分名次更新]
</td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs=Nothing
%>
</table>
<%
'－－－－－－－－－－－－－学期列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－课程列表页开始－－－－－－－－－－－－－－－－
ElseIf kinds="kcb" Then
%>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5'>
<td>·<a href=?kind=lj>年级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from ljb order by lj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("lj")=lj Then
response.write "<a href='?kind=bj&ljb_id="&ljb_id&"&lj="&lj&"'><font color=#FF0000>·"&lj&"</font></a>"
Else
ljlj=rs1("lj")
idid=rs1("id")
response.write "·<a href='?kind=bj&ljb_id="&idid&"&lj="&ljlj&"' title='查看"&ljlj&"年级下所有班级'>"
response.write ljlj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=bj&ljb_id=<%=ljb_id%>&lj=<%=lj%>">班级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from bjb where ljb_id="&ljb_id&" order by bj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("bj")=bj Then
response.write "<a href=#><font color=#FF0000>·"&bj&"</font></a>"
admin_user=Replace(Replace(rs1("admin_id"),",",""),"|",",")
Else
ljbjljbjid=rs1("id")
bjbj=rs1("bj")
response.write "·<a href='?kind=xqb&ljbj_id="&ljbjljbjid&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bjbj&"&xq="&xq&"&xq_id="&xq_id&"' title='查看"&bjbj&"该班级学期列表'>"
response.write bjbj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=xqb&ljb_id=<%=ljb_id%>&lj=<%=lj%>&ljbj_id=<%=ljbj_id%>&bj=<%=bj%>">学期管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from xqb"
rs1.Open sql1,conn,1,1
do while not rs1.eof
'response.write xq_id
'response.End
If rs1("xq")=xq Then
response.write "<a href=#><font color=#FF0000>·"&xq&"</font></a>"
Else
xqxq=rs1("xq")
xqxq_id=rs1("id")
response.write "·<a href='?kind=kcb&ljbj_id="&ljbj_id&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bj&"&xq="&xqxq&"&xq_id="&xqxq_id&"' title='查看"&bj&"班级"&xqxq&"学期课程列表'>"
response.write xqxq&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>
当前班级信息：<%=lj%> － <%=bj%>
<br>班级管理员：<%=admin_user%>
<br>管理菜单：
<%
response.write "[添加课程] "
response.write "[总分/平均分 统计更新] [总分名次更新] "
%>
</td>
</tr>
</table>
<div id="myinfo_alexa_01" style="display: none;">
<SCRIPT type='text/javascript' language='javascript' src='http://xslt.alexa.com/site_stats/js/t/a?url=25175.com'></SCRIPT>
</div>
<DIV style="DISPLAY: none">
<SCRIPT language=JavaScript src="http://s120.cnzz.com/stat.php?id=646555&web_id=646555" charset=gb2312></SCRIPT>
</DIV>
<table border="1" align="center" cellpadding="0" cellspacing="0">
<tr align="center">
<td colspan="5">课程列表</td>
</tr>
<tr align="center">
<td width=30>ID</td>
<td width=120>课程</td>
<td colspan="2">管理员</td>
<td>操作</td>
</tr>
<%
set rs0=server.createobject("adodb.recordset")
sql0="select * from kcb where xq_id="&xq_id&" and ljbj_id="&ljbj_id&" order by id"
rs0.Open sql0,conn,1,1
do while not rs0.eof
kcb_id=rs0("id")
%>
<tr onmouseover="bgColor='#f4f5f5'" onmouseout="bgColor='#ffffff'">
<td align="left" width=30><%=kcb_id%></td>
<td width="100"><a href="?kind=cjb&ljbj_id=<%=ljbj_id%>&ljb_id=<%=ljb_id%>&lj=<%=lj%>&bj=<%=bj%>&kcb_id=<%=kcb_id%>&xq=<%=xq%>&kc=<%=rs0("kc")%>&xq_id=<%=xq_id%>" title=查看<%=rs0("kc")%>课程下的成绩列表><%=rs0("kc")%></a>
</td>
<form action="admin_del.asp?type=admin_user" method="post" name="del<%=kcb_id%>">
<td width="120">
<select name="admin_user" style="width:80px">
<%
If rs0("admin_id")<>"" Then
admin_user = Split(replace(rs0("admin_id"),",",""),"|" )
For i = 0 to UBound(admin_user)
response.write "<option>"&admin_user(i)&"</option>"
Next
Else
response.write "<option>无管理员</option>"
End If
%>
</select><input type="submit" name="del<%=kcb_id%>" value="删除" class="bottom">
<input type="hidden" name="bb" value="kcb">
<input type="hidden" name="iidd" value="<%=kcb_id%>">
</td>
</form>
<form action="addu.asp" method="post" name="add<%=kcb_id%>">
<td>
<input type="hidden" name="kind" value="8">
<input type="hidden" name="bb" value="kcb">
<input type="hidden" name="iidd" value="<%=kcb_id%>">
<input name="admin_user" type="text" value="" size="12" maxlength="20">
<input type="submit" name="add<%=kcb_id%>" value="增加" class="bottom">
</td>
</form>
<td align="center"><a href="updata.asp?kind=kc&id=<%=kcb_id%>">修改</a>
</tr>
<tr>
<td> </td>
</tr>
<%
rs0.movenext
loop
rs0.Close
set rs0=Nothing
response.write "</table>"
End If
'－－－－－－－－－－－－－成绩列表页开始－－－－－－－－－－－－－－－－
If kinds="cjb" Then
%>
<script>
function del() //用于判断记录有没有选中的函数
{
var flag=true;
var temp="";
var tmp;
lj=document.form1.lj.value
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;i<document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp=="")
{
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert( "对不起，你还没有选择！")}
else
{ name=document.form1.name.value
//alert(name)
if (confirm("确实要删除？")){
window.location="del.asp?lj=" + lj + "&id=" + temp;
}
}
return !flag;
}
</script>
<table width="100%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr bgColor='#f4f5f5'>
<td>·<a href=?kind=lj>年级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from ljb order by lj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("lj")=lj Then
response.write "<a href=?kind=bj&ljb_id="&ljb_id&"&lj="&lj&"><font color=#FF0000>·"&lj&"</font></a>"
Else
ljlj=rs1("lj")
idid=rs1("id")
response.write "·<a href='?kind=bj&ljb_id="&idid&"&lj="&ljlj&"' title='查看"&ljlj&"年级下所有班级'>"
response.write ljlj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=bj&ljb_id=<%=ljb_id%>&lj=<%=lj%>">班级管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from bjb where ljb_id="&ljb_id&" order by bj"
rs1.Open sql1,conn,1,1
do while not rs1.eof
If rs1("bj")=bj Then
response.write "<a href='?kind=xqb&ljbj_id="&ljbj_id&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bj&"'><font color=#FF0000>·"&bj&"</font></a>"
admin_user_bj=Replace(Replace(rs1("admin_id"),",",""),"|",",")
If admin_user_bj="" Then admin_user_bj="无管理员"
Else
bjbj=rs1("bj")
ljbjljbjid=rs1("id")
response.write "·<a href='?kind=xqb&ljbj_id="&ljbjljbjid&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bjbj&"' title='查看"&bjbj&"班级下下所有课程'>"
response.write bjbj&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=xqb&ljb_id=<%=ljb_id%>&lj=<%=lj%>&ljbj_id=<%=ljbj_id%>&bj=<%=bj%>">学期管理</a> -
<%
set rs1=server.createobject("adodb.recordset")
sql1="select * from xqb"
rs1.Open sql1,conn,1,1
do while not rs1.eof
'response.write xq_id
'response.End
If rs1("xq")=xq Then
response.write "<a href='?kind=kcb&ljbj_id="&ljbj_id&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bj&"&xq="&xq&"&xq_id="&xq_id&"'><font color=#FF0000>·"&xq&"</font></a>"
Else
xqxq=rs1("xq")
xqxq_id=rs1("id")
response.write "·<a href='?kind=kcb&ljbj_id="&ljbj_id&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bj&"&xq="&xqxq&"&xq_id="&xqxq_id&"' title='查看"&bj&"班级"&xqxq&"学期课程列表'>"
response.write xqxq&"</a>"
End If
rs1.movenext
loop
rs1.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>·<a href="?kind=kcb&ljb_id=<%=ljb_id%>&lj=<%=lj%>&ljbj_id=<%=ljbj_id%>&bj=<%=bj%>&xq=<%=xq%>&xq_id=<%=xq_id%>">课程管理</a> -
<%
set rs0=server.createobject("adodb.recordset")
sql0="select * from kcb where xq_id="&xq_id&" and ljbj_id="&ljbj_id&" order by id"
rs0.Open sql0,conn,1,1
do while not rs0.eof
If rs0("kc")=kc Then
response.write "<font color=#FF0000>·"&kc&"</font>"
admin_user_kc=Replace(Replace(rs0("admin_id"),",",""),"|",",")
If admin_user_kc="" Then admin_user_kc="无管理员"
Else
kckc=rs0("kc")
kcid=rs0("id")
response.write "·<a href='?kind=cjb&ljbj_id="&ljbj_id&"&ljb_id="&ljb_id&"&lj="&lj&"&bj="&bj&"&kcb_id="&kcid&"&xq="&xq&"&kc="&kckc&"&xq_id="&xq_id&"' title=查看"&kckc&"的成绩列表>"
response.write kckc&"</a>"
End If
rs0.movenext
loop
rs0.Close
%>
</td>
</tr>
<tr bgColor='#f4f5f5'>
<td>
当前科目信息：<%=lj%> － <%=bj%> － <%=kc%>
<br>班级管理员：<%=admin_user_bj%>
<br>科目管理员：<%=admin_user_kc%>
<br>管理菜单：[单科名次更新] <a href="admin_add.asp?kind=new&lj=<%=lj%>&bj=<%=bj%>&xq=<%=xq%>&kc=<%=kc%>">[成绩录入]</a>
</td>
</tr>
</table>
<a href=admin_mc.asp?kind=zf>更新总分\平均分</a>
<a href=admin_mc.asp?kind=mc>更新名次</a>
<a href=admin_mc.asp?kind=zfmc>更新总分名次</a>
<br>
<br>
<form method="post" id=form1 name=form1>
<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0">
<tr align="center" bgColor='#f4f5f5'>
<td width="100" height="20" align=center>名次</td>
<td width="100" height="20" align=center>学号</td>
<td width="90" height="20" align=center>姓名</td>
<td width="100" height="20" align=center>成绩</td>
<td width="120" height="20" align=center>操作</td>
</tr>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from cj_"&lj&" where kcb_id="&kcb_id &" order by cj desc"
rs.Open sql,conn,1,1
do while not rs.eof
mc=rs("mc")
cj=rs("cj")
lx=rs("lx")
%>
<tr align="center" bgColor='#f4f5f5'>
<td>
<%If mc=-1 Then
response.write "--"
Else
response.write mc
End If %></td>
<td><%=rs("xh")%></td>
<td><%=rs("user")%></td>
<td>
<%
If cj<>-1 Then
response.write cj
End If
If lx<>"" Then
response.write "("
response.write lx
response.write ")"
End If
%>
</td>
<td><a href="updata.asp?kind=date&lj=<%=lj%>&id=<%=rs("id")%>&bj=<%=bj%>&xq=<%=xq%>&kc=<%=kc%>">修改</a> | <input type="checkbox" name="answer" value="<%=rs("id")%>" id="Checkbox1"></td>
</tr>
<%
rs.movenext
loop
rs.Close
set rs=Nothing
%>
<tr>
<td height="20" colspan="9"> <input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2"><input type="hidden" name="lj" value="<%=lj%>">
选中所有的显示成绩 <input type="button" name="btnDelete" value="删除" style='font-family: 宋体; font-size: 9pt;' onClick="del()" id="Button1"> <input type="reset" name="b" value="重置" style='font-family: 宋体; font-size: 9pt;' id="Button1">
</td>
</tr>
</table>
</form>
<%
'－－－－－－－－－－－－－成绩列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－成绩总评列表页开始－－－－－－－－－－－－－－－－
ElseIf kinds="zpb" Then
%>
<br>
<div id="manager_main_top" class="manager_menu">
<li>管理菜单：
<a href="admin_mc.asp?kind=dbzf&lj=<%=Server.URLEncode(lj)%>&ljbj_id=<%=ljbj_id%>&xq_id=<%=xq_id%>&go=back">总分\平均分更新</a>
<a href="admin_mc.asp?kind=dbzfmc&ljbj_id=<%=ljbj_id%>&xq_id=<%=xq_id%>&go=back">总分名次更新</a>
<a href="#" onClick=window.print()><b>打印此表</b></a></li>
</div>
<SCRIPT src="sorttable.js" type="text/javascript"></SCRIPT>
<div STYLE="padding-bottom: 3px;"><center><strong><%=lj&"级-"&bj&"班-"&xq%>成绩总评列表</strong></center></div>
<table border='0' width="98%" align='center' id="mytable" cellpadding='0' cellspacing='0' class='border sortable hideWhenPrint'>
<tbody>
<tr align="center" class='title'>
<td width="10%" style="CURSOR: Default">学号</td>
<td width="8%" style="CURSOR: Default">姓名</td>
<%
ssrow=1
set rskc=server.createobject("adodb.recordset")
sqlkc="select kc,kcb.id from kcb where ljbj_id="&ljbj_id&" and xq_id="&xq_id&" order by kcb.id desc"
rskc.Open sqlkc,conn,1,1
Do While Not rskc.eof
ssrow=ssrow+1
kc=rskc(0)
kcb_id=rskc(1)
%>
<td id=<%=ssrow%>_0 style="CURSOR: Default" ondblclick="showIntro('<%=ssrow%>')"><%=kc%></td>
<td id=<%=ssrow%>_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('<%=ssrow%>')" class='hideWhenPrint1'>>></td>
<%
rskc.movenext
Loop
rskc.Close
%>
<td width="5%" id=<%=ssrow+1%>_0 style="CURSOR: Default" ondblclick="showIntro('<%=ssrow+1%>')">总分</td>
<td id=<%=ssrow+1%>_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('<%=ssrow+1%>')" class='hideWhenPrint1'>>></td>
<td width="6%" id=<%=ssrow+2%>_0 style="DISPLAY: none;CURSOR: Default" ondblclick="showIntro('<%=ssrow+2%>')">总分名次</td>
<td id=<%=ssrow+2%>_0_0 width="5" style="CURSOR: Default;" ondblclick="showIntro('<%=ssrow+2%>')" class='hideWhenPrint1'>>></td>
<td width="5%" id=<%=ssrow+3%>_0 style="CURSOR: Default" ondblclick="showIntro('<%=ssrow+3%>')">平均分</td>
<td id=<%=ssrow+3%>_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('<%=ssrow+3%>')" class='hideWhenPrint1'>>></td>
</tr>
<%
Dim ssline,bgcolor,xm,rsxm,xh,zf,zfmc,pjf,sqlmc
Dim ssrow,kcb_id,kcb_mc,sqlcj,sqlkc,rscj,cj,lx,mc
ssline=0
set rsmc=server.createobject("adodb.recordset")
sqlmc="Select * from cj_mc where xq_id="&xq_id&" and ljbj_id="&ljbj_id&""
rsmc.Open sqlmc,conn,1,1
Do While Not rsmc.eof
ssline=ssline+1
xh=rsmc("xh")
zf=rsmc("zf")
zfmc=rsmc("zfmc")
pjf=rsmc("pjf")
set rsxm=server.createobject("adodb.recordset")
rsxm.open "select * from cj_"&lj&" where xh='"&xh&"'",conn,1,1
xm=rsxm("user")
rsxm.close
bgcolor ="#f7f7f7"
If ssline mod 2 =0 Then bgcolor="#ffffff"
%>
<tr bgcolor="<%=bgcolor%>" align="center">
<td style="CURSOR: Default"><%=xh%></td>
<td style="CURSOR: Default"><%=xm%></td>
<%
ssrow=1
set rskc=server.createobject("adodb.recordset")
sqlkc="select id,kc from kcb where ljbj_id="&ljbj_id&" and xq_id="&xq_id&" order by id desc"
rskc.Open sqlkc,conn,1,1
Do While Not rskc.eof
ssrow=ssrow+1
kcb_id=rskc(0)
kcb_mc=rskc(1)
set rscj=server.createobject("adodb.recordset")
sqlcj="select cj,lx,mc from cj_"&lj&" where kcb_id="&kcb_id&" and xh='"&xh&"' order by kcb_id desc"
rscj.Open sqlcj,conn,1,1
response.write "<td id="&ssrow&"_"&ssline&" style=""CURSOR: Default"" ondblclick=""showIntro('"&ssrow&"')"">"
If Not rscj.eof Or rscj.bof Then
cj=rscj(0)
lx=rscj(1)
mc=rscj(2)
If cj="" or mc<0 Then
If lx<>"" Then
response.write lx
Else
response.write "--"
End If
ElseIf cj>-1 Then
response.write "<SPAN TITLE=""姓名："&xm&" 学号："&xh&" 课程："&kcb_mc&" 名次："&mc&""" style=""CURSOR: hand"">"&cj&"</span>"
End If
rscj.Close
Else
response.write "--"
If xh="0640220131" Then response.end
End If
response.write "</td>"& vbcrlf
response.write "<td id="&ssrow&"_"&ssline&"_0 style=""DISPLAY: none;CURSOR: Default;"" ondblclick=""showIntro('"&ssrow&"')"" class='hideWhenPrint1'></td>"& vbcrlf
rskc.movenext
Loop
rskc.Close
%>
<td id=<%=ssrow+1%>_<%=ssline%> style="CURSOR: Default" ondblclick="showIntro('<%=ssrow+1%>')"><%=zf%></td>
<td id=<%=ssrow+1%>_<%=ssline%>_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('<%=ssrow+1%>')"> </td>
<td id=<%=ssrow+2%>_<%=ssline%> style="DISPLAY: none;CURSOR: Default" ondblclick="showIntro('<%=ssrow+2%>')"><%=zfmc%></td>
<td id=<%=ssrow+2%>_<%=ssline%>_0 width="5" style="CURSOR: Default;" ondblclick="showIntro('<%=ssrow+2%>')"> </td>
<td id=<%=ssrow+3%>_<%=ssline%> style="CURSOR: Default" ondblclick="showIntro('<%=ssrow+3%>')"><%=pjf%></td>
<td id=<%=ssrow+3%>_<%=ssline%>_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('<%=ssrow+3%>')"> </td>
</tr>
<%
'End If
rsmc.movenext
'response.end
Loop
rsmc.close
response.write "</tbody></table>"
%>
<SCRIPT LANGUAGE="JavaScript">
<!--
function showIntro(objID)
{
for(var i = 0; i < <%=ssline+1%>; i++)
{
//divs[i].style.display = "none";
//none隐藏，block显示
if (document.getElementById(objID+'_'+i).style.display == "none") {
document.getElementById(objID+'_'+i).style.display = "";
}else{
document.getElementById(objID+'_'+i).style.display = "none";
}
if (document.getElementById(objID+'_'+i+'_0').style.display == "none") {
document.getElementById(objID+'_'+i+'_0').style.display = "";
}else{
document.getElementById(objID+'_'+i+'_0').style.display = "none";
}
}
}
//-->
</SCRIPT>
<%End If
'－－－－－－－－－－－－－成绩总评列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－管理员列表页开始－－－－－－－－－－－－－－－－
If kinds="admin" Then
Call admin_yz(4)
judge=request("judge")
judge2=request("judge2")
judge3=0
set rsadmin=server.createobject("adodb.recordset")
sqladmin="select * from admin order by id desc"
rsadmin.Open sqladmin,conn,1,1
%>
<!-- #include file="../images/jav.inc" -->
<table width=742 border='0' align='center' cellpadding='2' cellspacing='1' class='mytable'>
<tr align=center class='topbg'>
<td>
<b>管理员信息管理
<input type="button" onclick="javascript:window.location.href = 'admin_add.asp?kind=admin'" name="Submit2" value="添加新管理员">
</td>
</tr>
</table>
<%
if not rsadmin.EOF Then
response.write "<table width=742 border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"& vbCrLf
response.write "<form method=post id=form1 name=form1>"& vbCrLf
response.write "<tr align=center class='title'>"& vbCrLf
response.write "<td><b>CHK</td>"& vbCrLf
response.write "<td width=20><b>ID</td>"& vbCrLf
response.write "<td><b>管理员</td>"& vbCrLf
response.write "<td><b>权 限</td>"& vbCrLf
response.write "<td><b>最后登录IP</td>"& vbCrLf
response.write "<td><b>最后登录时间</td>"& vbCrLf
response.write "<td><b>登录次数</td>"& vbCrLf
response.write "<td><b>操 作</td>"& vbCrLf
response.write "</tr>"& vbCrLf
page = CLng(request("page"))
rsadmin.MoveFirst
rsadmin.PageSize = 12 '每页显示的条数
If page < 1 Then page = 1
If page > rsadmin.PageCount Then page = rsadmin.PageCount
rsadmin.AbsolutePage = page
For i = 1 To rsadmin.PageSize
id=rsadmin("id")
user=rsadmin("username")
qx=rsadmin("qx")
If qx="5" Then sqx="<font color=red>超级管理员</font>"
If qx="4" Then sqx="系统管理员"
If qx="3" Then sqx="班主任"
If qx="2" Then sqx="任课教师"
If qx="1" Then sqx="普通管理员"
admin_ip=rsadmin("admin_ip")
admin_data=rsadmin("admin_data")
admin_cs=rsadmin("admin_cs")
response.write "<tr align=center class='tdbg' onmouseout=""this.style.backgroundColor=''"" onmouseover=""this.style.backgroundColor='#BFDFFF'"">"& vbCrLf
response.write "<td><input type=checkbox name=answer value="&id&" id=Checkbox1></td>"& vbCrLf
response.write "<td>"&id&"</td>"& vbCrLf
response.write "<td>"&user&"</td>"& vbCrLf
response.write "<td>"&sqx&"</td>"& vbCrLf
response.write "<td> "&admin_ip&"</td>"& vbCrLf
response.write "<td> "&admin_data&"</td>"& vbCrLf
response.write "<td> "&admin_cs&"</td>"& vbCrLf
If session("qx")>qx Then
response.write "<td><a href=updata.asp?kind=admin&id="&id&">修改</a></td>"& vbCrLf
else
response.write "<td>----</td>"
End If
response.write "</tr>"& vbCrLf
rsadmin.movenext
If rsadmin.EOF Then Exit For
Next
End If
response.write "<tr class='tdbg'><td height=20 colspan=8> "& vbCrLf
response.write "<input type=checkbox name=chkall value=on onClick=checkall(this) id=Checkbox2>"& vbCrLf
response.write "选中所有的显示成绩 "& vbCrLf
response.write "<input type=button name=btnDelete value=删除 style='font-family: 宋体; font-size: 9pt;' onClick=del() id=Button1> "& vbCrLf
response.write "<input type=reset name=b value=重置 style='font-family: 宋体; font-size: 9pt;' id=Button1>"& vbCrLf
response.write "</td></tr>"& vbCrLf
response.write "</form>"& vbCrLf
response.write "</table>"& vbCrLf
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" width="724">
<tr align="center">
<td>
共有：<%=rsadmin.recordCount%>名管理员
<%
If page = 1 Then
Response.Write "<font class='white'>首页 上一页</font>"
End If
If page <> 1 Then
Response.Write "<a href=admin_manager.asp?kind=admin&page=1 class='yellow'>首页</a>"
Response.Write " <a href=admin_manager.asp?kind=admin&page=" & (page - 1) & " class='yellow'>上一页</a>"
End If
If page <> RSadmin.PageCount Then
Response.Write " <a href=admin_manager.asp?kind=admin&page=" & (page + 1) & " class='yellow'>下一页</a>"
Response.Write " <a href=admin_manager.asp?kind=admin&page=" & RSadmin.PageCount & " class='yellow'>尾页</a>"
End If
If page = RSadmin.PageCount Then
Response.Write " <font class='white'>下一页 尾页</font>"
End If
%>页次:<strong><font color=red><%=page%></font>/<%=rsadmin.PageCount%></strong> 跳转：<select onchange="location=this.options[this.selectedIndex].value">
<% For pags=1 To rsadmin.PageCount
%>
<option value='admin_manager.asp?kind=admin&page=<%=pags%>'
<%If pags=page Then response.write " selected"
%>><%=pags%></option>
<%
Next
%>
</select></td>
</tr>
</table>
<%End If
'－－－－－－－－－－－－－管理员列表页结束－－－－－－－－－－－－－－－－
'－－－－－－－－－－－－－底部代码开始－－－－－－－－－－－－－－－－
%>
<!--#include file="../inc/copyright.asp"-->