www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/manage_results.asp
<!-- #include file="../config.asp" --> <!-- #include file="../conn.asp" --> <% '==================================================================== '25175成绩查询管理系统 'powered by 25175 '=------------------------------------------------------------------- '= 文件名称:admin_cj.asp '= 摘 要:成绩列表文件 cj_webtit="后台管理首页 - 成绩列表" cj_webmap="<a href=admin.asp class=Class>后台管理首页</a> - 成绩列表" '= 最后日期:2006-3.1 '==================================================================== Call admin_log cj_select="yes" lj=replace(Checkstr(request("lj")),"-请选择年级-","") bj=replace(Checkstr(request("bj")),"-请选择班级-","") xq=replace(Checkstr(request("xq")),"-请选择学期-","") kc=replace(Checkstr(request("kc")),"-请选择课程-","") %> <!-- #include file="admin_top.asp"--> <!-- #include file="inc.asp" --> <br> <%Dim top_info_select If kc<>"" Then top_info_select=lj&"级-"&bj&"班-"&xq&"-"&kc&" 成绩列表" Else top_info_select="成绩条件搜索" End If Call cj_top_info(top_info_select,"y","manage_results.asp",4) if Checkstr(request.Querystring("action"))="goto" Then Call search(0,"99%") elseif Checkstr(request.Querystring("action"))="" Then Sub results(results_kinds) If results_kinds="err" Then results_kinds="shows_id('errors_id');" ElseIf results_kinds="add" Then results_kinds="shows_id('body_table');" End If%> <table id="adds" width="98%" style="DISPLAY: none;" border='0' align='center' cellpadding='0' cellspacing='0' class='border'> <tr class="topbg"> <td colspan="2"> <b>·学生成绩添加</b>(<%=top_info_select%>)</td></tr> <form name="form_add" action="" method="post"> <tr> <td width="50%"> <b>学号:</b> <br> 学生的学号,以学号为成绩索引; <BR> 每科课程下的成绩项目,学号不可重复;不可为空!</td> <td width="50%"><input name="xh" type="text" value="<%=xhf%>" style="ime-mode:disabled" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <tr class="tdbg"> <td> <b>姓名:</b> <BR> 学生姓名项目。如果为空,则默认以前记录; <BR> 如果不为空,则更新学生数据表中以该学号为索引的姓名。</td> <td><input name="user" type="text" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <tr> <td> <b>成绩:</b><BR> 当需要添加的成绩项目不为数字时,<BR> 系统将会自动转移该项目信息并入该条成绩的备注项目中。</td> <td><input type="text" name="cj" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <tr class="tdbg"> <td> <b>备注:</b><BR> 学生该科成绩备注,如:缺考,舞弊...等;<BR> 可为空。</td> <td><input type="text" name="lx" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <input type="hidden" name="kind" value="add"> <tr> <td> <b>操作:</b><BR> 点击“添加”则添加数据并回到当前班级成绩列表;<BR> 否则点击“返回”,回到当前班级成绩列表。</td> <td> <div id="manager_main_top" class="manager_menu"> <a href="javascript:this.document.form_add.submit();"> 添 加 </a> <a href="javascript:shows_id('adds');<%=results_kinds%>"> 返 回 </a> </div> </td> </tr> </form> </table> <%End Sub Sub results_edit()%> <table id="edits" width="98%" style="DISPLAY: none;" border='0' align='center' cellpadding='0' cellspacing='0' class='border'> <tr class="topbg"> <td colspan="2"> <b>·学生成绩修改</b>(<%=top_info_select%>)</td></tr> <form name="form_edits" action="" method="post"> <tr> <td width="50%"> <b>学号:</b> <br> 学生的学号,以学号为成绩索引; <BR> 每科课程下的成绩项目,学号不可重复;不可为空!</td> <td width="50%"><input name="xh" type="text" value="" id="xh" readonly></td> </tr> <tr class="tdbg"> <td> <b>姓名:</b> <BR> 学生姓名项目。如果为空,则默认以前记录; <BR> 如果不为空,则更新学生数据表中以该学号为索引的姓名。</td> <td><input name="user" type="text" id="user" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <tr> <td> <b>成绩:</b><BR> 当需要修改的成绩项目不为数字时,<BR> 系统将会自动转移该项目信息并入该条成绩的备注项目中。</td> <td><input name="cj" type="text" id="cj" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <tr class="tdbg"> <td> <b>备注:</b><BR> 学生该科成绩备注,如:缺考,舞弊...等;<BR> 可为空。</td> <td><input type="text" id="lx" name="lx"><input type="hidden" name="id" value="" onkeydown="if(event.keyCode==13)event.keyCode=9"></td> </tr> <input type="hidden" name="kind" value="edit"> <tr> <td> <b>操作:</b><BR> 点击“修改”则修改数据并回到当前班级成绩列表;<BR> 否则点击“返回”,回到当前班级成绩列表。</td> <td> <div id="manager_main_top" class="manager_menu"> <a href="javascript:this.document.form_edits.submit();"> 修 改 </a> <a href="javascript:shows_id('edits');"> 返 回 </a> </div> </td> </tr> </form> </table> <%End Sub If lj="" Or bj="" Or xq="" Or kc="" Then response.write "<script language=JavaScript>" & chr(13) &"window.location.href = '"&http&"'"&" </script>" Response.End End If sqlcmd="select xh,user,lx,cj_"&lj&".id,cj,kc,mc,kcb.id,bjb.id,xq_id,bjb.admin_id,kcb.admin_id,xhf from cj_"&lj&",kcb,bjb,xqb,ljb where kcb.id=cj_"&lj&".kcb_id and kcb.ljbj_id=bjb.id and xqb.id=xq_id and ljb.id=ljb_id and bjb.bj='"&bj&"' and lj='"&lj&"' and xq='"&xq&"' and kc='"&kc&"' order by mc" rs.open sqlcmd,conn,1,1 if rs.EOF and rs.BOF Then Call results("err") Call er_info ("当前还没有成绩,<a href=""javascript:void(0);"" onclick=""javascript:shows_id('adds');shows_id('errors_id');""><B>点击此处添加!</B></a>或选择:<a href=""manage_results_adds.asp?lj="&Server.URLEncode(lj)&"&bj="&Server.URLEncode(bj)&"&xq="&Server.URLEncode(xq)&"&kc="&Server.URLEncode(kc)&""">批量添加</a> 、<a href=""javascript:void(0);"" onclick=""javascript:shows_id('adds');shows_id('body_table');edits_hidden();"">EXCEL导入</a>" ) End If kcb_id=rs(7) ljbj_id=rs(8) xq_id=rs(9) xhf=rs(12) If rs(10)<>"" Then sqlbj="select username,id from admin where id="&rs(10) set rsbj=server.createobject("adodb.recordset") rsbj.open sqlbj,conn,1,1 If rsbj.eof Then admin_bj_xm="无管理员" Else admin_bj_xm=rsbj(0) admin_bj=rsbj(1) End If rsbj.close Else admin_bj_xm="无管理员" End If If rs(11)<>"" Then sqlkc="select username,id from admin where id="&rs(11) set rskc=server.createobject("adodb.recordset") rskc.open sqlkc,conn,1,1 If rskc.eof Then admin_kc_xm="无管理员" Else admin_kc_xm=rskc(0) admin_kc=rskc(1) End If rskc.close Else admin_kc_xm="无管理员" End If %> <div id="manager_main_top" class="manager_menu"> <li>班级管理员/科目管理员:<%response.write admin_bj_xm&"/"&admin_kc_xm%></li> <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="admin_mc.asp?kind=dkmc&lj=<%=Server.URLEncode(lj)%>&kcb_id=<%=kcb_id%>&go=back">单科名次更新</a> <a href="javascript:void(0);" onclick="javascript:shows_id('adds');shows_id('body_table');edits_hidden();">成绩录入</a> <a href="manage_results_adds.asp?lj=<%=Server.URLEncode(lj)%>&bj=<%=Server.URLEncode(bj)%>&xq=<%=Server.URLEncode(xq)%>&kc=<%=Server.URLEncode(kc)%>">批量添加</a> <a href="javascript:void(0);" onclick="javascript:shows_id('adds');shows_id('body_table');edits_hidden();">EXCEL导入</a> <a href="admin_manager.asp?kind=zpb&lj=<%=Server.URLEncode(lj)%>&bj=<%=Server.URLEncode(bj)%>&xq=<%=Server.URLEncode(xq)%>&ljbj_id=<%=ljbj_id%>&xq_id=<%=xq_id%>">查看总评表</a> <a href="javascript:void(0);" onClick=window.print()><b>打印此表</b></a></li> </div> <%If session("admin_id")=admin_bj Or session("admin_id")=admin_kc Or session("qx")>3 Then cz="true" zs=rs.recordCount Call results_edit Call results("add") %> <SCRIPT src="sorttable.js" type="text/javascript"></SCRIPT> <div id="body_table"> <table id="mytable" width="98%" border='0' align='center' cellpadding='0' cellspacing='0' class='border sortable'> <form action="" method="post" name="form1"> <tr class='title' align="center"> <td width="9%" class='hideWhenPrint1'><b>选框</td> <td id=2_0 style="CURSOR: Default" ondblclick="showIntro('2')"><b>学号</td> <td id=2_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('2')" class='hideWhenPrint1'>>></td> <td id=3_0 style="CURSOR: Default" ondblclick="showIntro('3')"><b>姓名</td> <td id=3_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('3')" class='hideWhenPrint1'>>></td> <td id=4_0 style="CURSOR: Default" ondblclick="showIntro('4')"><b>成绩</td> <td id=4_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('4')" class='hideWhenPrint1'>>></td> <td id=1_0 style="CURSOR: Default" ondblclick="showIntro('1')"><b>名次</td> <td id=1_0_0 width="5" style="DISPLAY: none;CURSOR: Default;" ondblclick="showIntro('1')" class='hideWhenPrint1'>>></td> <td width="9%" class='hideWhenPrint1'><b>操作</td> </tr> <% dim z z=0 Do While Not rs.eof z=z+1 bgcolor ="#f7f7f7" If z mod 2 =0 Then bgcolor="#ffffff" xh=rs(0) user=rs(1) lx=rs(2) id=rs(3) cj=rs(4) kc=rs(5) mc=rs(6) If (cj<60 And cj>-1) Then bgcolor="#c0c0c0" %> <tr bgcolor="<%=bgcolor%>" align="center"> <td align=center class='hideWhenPrint1'><input type="checkbox" name="answer" value="<%=id%>" id="Checkbox1"></td> <td id="2_<%=z%>"><%=xh%></td> <td style="DISPLAY: none;CURSOR: Default;" id="2_<%=z%>_0" class='hideWhenPrint1'> </td> <td id="3_<%=z%>"><%=user%></td> <td style="DISPLAY: none;CURSOR: Default;"id="3_<%=z%>_0" class='hideWhenPrint1'> </td> <td id="4_<%=z%>"> <% response.write "<span id=""4_"&z&"_s1"">" If cj<>-1 Then cjs=cjs+cj If cj<60 Then zss=zss+1 response.write cj End If response.write "</span> <span id=""5_"&z&"_s2"">" If lx<>"" Then response.write lx response.write "</span>" %> </td> <td style="DISPLAY: none;CURSOR: Default;" id="4_<%=z%>_0" class='hideWhenPrint1'> </td> <td id="1_<%=z%>"><% If mc=-1 Then response.write "--" Else response.write mc End If %> </td> <td style="DISPLAY: none;CURSOR: Default;" id="1_<%=z%>_0" class='hideWhenPrint1'> </td> <td class='hideWhenPrint1'> <%response.write "<a href=""#top"" onclick=""javascript:edits('"&z&"','"&id&"');"">修改</a>"%> </td> </tr> <% rs.MoveNext Loop response.write " </table>" Dim pjf,jgl If cjs<>0 Then pjf=Left(cjs/zs,7)&"分" jgl=Left((1-zss/zs)*100,5)&"%" Else pjf="--" jgl="--" End If %> <% If cz="true" Then%> <div class="manager_menu hideWhenPrint1" STYLE="text-indent: 3%;margin-top: 3px;"><input type="checkbox" name="chkall" value="on" onClick="checkall(this)" id="Checkbox2"><input type="hidden" name="lj" value="<%=lj%>"> 选中所有的显示成绩 <a href="javascript:del()"> 删 除 </a> </div> <% End If%> <div class="" STYLE="text-indent: 3%;margin-top: 3px;"> 共有学生:<%=zs%>名 | 平均分:<%=pjf%> | 及格率:<%=jgl%></div> </form> </div> <script> function edits_hidden(){ if (document.getElementById('edits').style.display != "none") {shows_id('edits');} } function edits(z,id){ if (document.getElementById('edits').style.display == "none") { shows_id('edits'); } var sel=['xh','user','cj','lx'] var is,iss,idd for (i=0 ; i<4 ; i++ ) {is=i+2 if (is>3){ iss=i-1; idd=is+'_'+z+'_s'+iss //alert(idd) document.getElementById(sel[i]).value = document.getElementById(idd).innerHTML; }else{ document.getElementById(sel[i]).value = document.getElementById(is+'_'+z).innerHTML; } } document.getElementById("id").value = id; } 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> <script language=Javascript> function checkall(all)//用于判断全选记录的函数 { var a = document.getElementsByName("answer"); for (var i=0; i<a.length; i++) a[i].checked = all.checked; } function showIntro(objID) { for(var i = 0; i < <%=zs+1%>; i++) { 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%> <!--#include file="../inc/copyright.asp"-->