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">&nbsp;&nbsp;<b>·学生成绩添加</b>(<%=top_info_select%>)</td></tr>
			<form name="form_add" action="" method="post">
			<tr>
				<td width="50%">&nbsp;&nbsp;<b>学号:</b>
					<br>&nbsp;&nbsp;学生的学号,以学号为成绩索引;
					<BR>&nbsp;&nbsp;每科课程下的成绩项目,学号不可重复;不可为空!</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>&nbsp;&nbsp;<b>姓名:</b>
				<BR>&nbsp;&nbsp;学生姓名项目。如果为空,则默认以前记录;
				<BR>&nbsp;&nbsp;如果不为空,则更新学生数据表中以该学号为索引的姓名。</td>
				<td><input name="user" type="text" onkeydown="if(event.keyCode==13)event.keyCode=9"></td>
			</tr>	  
			<tr>
				<td>&nbsp;&nbsp;<b>成绩:</b><BR>&nbsp;&nbsp;当需要添加的成绩项目不为数字时,<BR>&nbsp;&nbsp;系统将会自动转移该项目信息并入该条成绩的备注项目中。</td>
				<td><input type="text" name="cj" onkeydown="if(event.keyCode==13)event.keyCode=9"></td>
			</tr>
			<tr class="tdbg">
				<td>&nbsp;&nbsp;<b>备注:</b><BR>&nbsp;&nbsp;学生该科成绩备注,如:缺考,舞弊...等;<BR>&nbsp;&nbsp;可为空。</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>&nbsp;&nbsp;<b>操作:</b><BR>&nbsp;&nbsp;点击“添加”则添加数据并回到当前班级成绩列表;<BR>&nbsp;&nbsp;否则点击“返回”,回到当前班级成绩列表。</td>
				<td>
					<div id="manager_main_top" class="manager_menu">
					<a href="javascript:this.document.form_add.submit();">&nbsp;添 加 </a>
					<a href="javascript:shows_id('adds');<%=results_kinds%>">&nbsp;返 回 </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">&nbsp;&nbsp;<b>·学生成绩修改</b>(<%=top_info_select%>)</td></tr>
			<form name="form_edits" action="" method="post">
			<tr>
				<td width="50%">&nbsp;&nbsp;<b>学号:</b>
					<br>&nbsp;&nbsp;学生的学号,以学号为成绩索引;
					<BR>&nbsp;&nbsp;每科课程下的成绩项目,学号不可重复;不可为空!</td>
				<td width="50%"><input name="xh" type="text" value="" id="xh" readonly></td>
			</tr>
			<tr class="tdbg">
				<td>&nbsp;&nbsp;<b>姓名:</b>
				<BR>&nbsp;&nbsp;学生姓名项目。如果为空,则默认以前记录;
				<BR>&nbsp;&nbsp;如果不为空,则更新学生数据表中以该学号为索引的姓名。</td>
				<td><input name="user" type="text" id="user" onkeydown="if(event.keyCode==13)event.keyCode=9"></td>
			</tr>	  
			<tr>
				<td>&nbsp;&nbsp;<b>成绩:</b><BR>&nbsp;&nbsp;当需要修改的成绩项目不为数字时,<BR>&nbsp;&nbsp;系统将会自动转移该项目信息并入该条成绩的备注项目中。</td>
				<td><input name="cj" type="text" id="cj" onkeydown="if(event.keyCode==13)event.keyCode=9"></td>
			</tr>
			<tr class="tdbg">
				<td>&nbsp;&nbsp;<b>备注:</b><BR>&nbsp;&nbsp;学生该科成绩备注,如:缺考,舞弊...等;<BR>&nbsp;&nbsp;可为空。</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>&nbsp;&nbsp;<b>操作:</b><BR>&nbsp;&nbsp;点击“修改”则修改数据并回到当前班级成绩列表;<BR>&nbsp;&nbsp;否则点击“返回”,回到当前班级成绩列表。</td>
				<td>
					<div id="manager_main_top" class="manager_menu">
					<a href="javascript:this.document.form_edits.submit();">&nbsp;修 改 </a>
					<a href="javascript:shows_id('edits');">&nbsp;返 回 </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>&nbsp;、<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>&nbsp;
			<a href="admin_mc.asp?kind=dbzfmc&ljbj_id=<%=ljbj_id%>&xq_id=<%=xq_id%>&go=back">总分名次更新</a>&nbsp;
			<a href="admin_mc.asp?kind=dkmc&lj=<%=Server.URLEncode(lj)%>&kcb_id=<%=kcb_id%>&go=back">单科名次更新</a>&nbsp;
			<a href="javascript:void(0);" onclick="javascript:shows_id('adds');shows_id('body_table');edits_hidden();">成绩录入</a>&nbsp;
			<a href="manage_results_adds.asp?lj=<%=Server.URLEncode(lj)%>&bj=<%=Server.URLEncode(bj)%>&xq=<%=Server.URLEncode(xq)%>&kc=<%=Server.URLEncode(kc)%>">批量添加</a>&nbsp;
			<a href="javascript:void(0);" onclick="javascript:shows_id('adds');shows_id('body_table');edits_hidden();">EXCEL导入</a>&nbsp;
			<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>&nbsp;
			<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%>">
					选中所有的显示成绩&nbsp;&nbsp;
					<a href="javascript:del()">&nbsp;删  除 </a>
					&nbsp;</div>
			 <%
			 End If%>
				<div class="" STYLE="text-indent: 3%;margin-top: 3px;">
				共有学生:<%=zs%>名&nbsp;&nbsp;|&nbsp;&nbsp;平均分:<%=pjf%>&nbsp;&nbsp;|&nbsp;&nbsp;及格率:<%=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"-->