www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_add.asp
<!-- #include file="../config.asp" --> <!-- #include file="../conn.asp" --> <!-- #include file="inc.asp" --> <% Call admin_log lj=replace(Checkstr(request("lj")),"-请选择年级-","") bj=replace(Checkstr(request("bj")),"-请选择班级-","") xq=replace(Checkstr(request("xq")),"-请选择学期-","") kc=replace(Checkstr(request("kc")),"-请选择课程-","") If request.querystring("kind")<>"xq" And request.querystring("kind")<>"post" And request.querystring("kind")<>"lj" And request.querystring("kind")<>"bjb" Then cj_select="yes" '==================================================================== '25175成绩查询管理系统 'powered by 25175 '=------------------------------------------------------------------- '= 文件名称:admin_add.asp '= 摘 要:单信息添加文件 cj_webtit="后台管理首页 - 信息添加" cj_webmap="<a href=admin.asp class=Class>后台管理首页</a> - 信息添加" '= 最后日期:2006-3.1 '==================================================================== %> <!-- #include file="admin_top.asp" --> <SCRIPT LANGUAGE="JavaScript"> <!-- function showIntro(objID) { if (document.getElementById(objID).style.display == "none") { document.getElementById(objID).style.display = ""; }else{ document.getElementById(objID).style.display = "none"; } } //--> </SCRIPT> <% Call admin_yz(2) response.write "<table width=100% align=center border=0 cellpadding=0 cellspacing=0>" if request.querystring("kind")="new" Then Call admin_cj Call admin_yz(2) %> <SCRIPT LANGUAGE = JavaScript> var s=["lj","bj","xq","kc"]; var opt0 = ["-请选择年级-","-请选择班级-","-请选择学期-","-请选择课程-"]; function setup() { for(i=0;i<s.length-1;i++) document.getElementById(s[i]).onchange=new Function("change("+(i+1)+")"); change(0); } //--> </SCRIPT> <tr> <td align="center"> <br> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" action="addu.asp" method="post"> <tr align="center" class="title"> <td height="31" colspan="2">添加单个学生的成绩</td> </tr> <tr class="tdbg"> <td width="27%" align="center">年级</td> <td width="73%"> <select id="lj" name="lj" style="width:180px" tabindex="1" disabled> <option>-请选择年级-</option> </select> </td> </tr> <tr class="tdbg"> <td width="27%" align="center">班级</td> <td width="73%"> <select id="bj" name="bj" style="width:180px" tabindex="2" disabled> <option>-请选择班级-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center"> 学期 </td> <td> <select id="xq" name="xq" style="width:180px" tabindex="3" disabled> <option>-请选择学期-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center">课程 </td> <td> <select id="kc" name="kc" style="width:180px" tabindex="4" disabled> <option>-请选择课程-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center">学号 </td> <td><input name="xh" type="text" id="xh"></td> </tr> <tr class="tdbg"> <td align="center">姓名 </td> <td><input name="user" type="text" id="user"></td> </tr> <tr class="tdbg"> <td align="center">成绩 </td> <td><input name="cj" type="text" id="cj" onkeydown="javascript:return check_isnum()"></td> </tr> <tr class="tdbg"> <td align="center"> 备注 </td> <td><input type="text" name="lx"></td> </tr> <tr align="center" class="tdbg"> <td colspan="2"> <input type="hidden" name="kind" value="6"> <input type="submit" name="Submit" value="添加"> <input type="reset" name="Submit2" value="重置"> </td> </tr> <tr class="tdbg"> <td colspan="2"> </td> </tr> </table> </form> </td> </tr> <% end If %> <%if request.querystring("kind")="bj" Then Call admin_yz(4) if request.querystring("type")="del" Then Call del("id="&request.querystring("id"),"bjb") sql="select id from kcb where ljbj_id="&request.querystring("id") rs.open sql,conn,1,1 Do While Not rs.eof set delcj=conn.execute("delete from cj_"&request.querystring("lj")&" where kcb_id="&rs(0)&"") rs.movenext loop rs.Close Call del("ljbj_id="&request.querystring("id"),"kcb") Call del("ljbj_id="&request.querystring("id"),"cj_mc") Call del("ljbj_id="&request.querystring("id"),"user") End If page = CLng(request("page")) '利用CLng函数把page值转换为Long型 judge=request("judge") judge2=request("judge2") judge3=0 %> <SCRIPT LANGUAGE = JavaScript> var s=["lj"]; var opt0 = ["-请选择年级-"]; function setup() { for(i=0;i<s.length-1;i++) document.getElementById(s[i]).onchange=new Function("change("+(i+1)+")"); change(0); } //--> </SCRIPT> <tr> <td align="center" valign="top"> <%Call admin_lx_top("班级信息管理")%> <br> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr class="title"> <td><b>操作: <input type="button" onclick="javascript:showIntro('boysoft');showIntro('boysoft1');" name="Submit2" value="添加新班级"> </td> </tr> <tr class="tdbg"> <td>年级列表:<a href='admin_add.asp?kind=bj'><B>全部</B></a> <% set rs=server.createobject("adodb.recordset") sql="select lj from ljb" rs.Open sql,conn,1,1 do while not rs.eof response.write " <a href='admin_add.asp?kind=bj&lj="&rs(0)&"'>"&rs(0)&"</a>" rs.movenext loop rs.Close %> </td> </tr> </table> <div id=boysoft style="display: none"> <br> <table bgcolor="#ffffff" width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" method="post" action="addu.asp"> <tr align="center" class="title"> <td colspan="2">添加班级及其学号对应代码</td> </tr> <tr class="tdbg"> <td align="center">年级</td> <td><select id="lj" name="lj" style="width:180px" tabindex="1"> <option>-请选择年级-</option> </select> </td> </tr> <tr class="tdbg"> <td width="26%" align="center">班级</td> <td width="74%"> <input type="text" name="bj" size="30"> </td> </tr> <tr class="tdbg"> <td align="center">学号代码</td> <td> <input name="xhf" type="text" size="30"> </td> </tr> <tr class="tdbg"> <td align="center">班主任</td> <td><select name="admin_id" style="width:180px" tabindex="3"> <option value="">-请选择老师-</option> <% sql="Select id,username from admin where qx>2" set rsadmin=server.createobject("adodb.recordset") rsadmin.open sql,conn,1,1 Do While not rsadmin.eof response.write "<option value="&rsadmin(0)&">"&rsadmin(1)&"</option>" rsadmin.movenext loop rsadmin.close %> </select> </td> </tr> <tr align="center" class="tdbg"> <td colspan="2"> <input type="hidden" name="kind" value="2"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"> <input type="button" onclick="javascript:showIntro('boysoft');showIntro('boysoft1');" name="Submit2" value="返回"> </td> </tr> </form> </table> </div> <div id=boysoft1> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr align="center" class="title"> <td width="40"><strong>ID</strong></td> <td width="96"><strong>年级</strong></td> <td width="152"><strong>班级</strong></td> <td width="96"><strong>主学号</strong></td> <td width="96"><strong>班主任</strong></td> <td width="96"><strong>操作</strong></td> </tr> <% if request.querystring("lj")<>"" Then sqlad="select xhf,lj,bj,ljb_id,bjb.id,admin_id from bjb,ljb where bjb.ljb_id=ljb.id and lj='"&request.querystring("lj")&"' order by bjb.id" Else sqlad="select xhf,lj,bj,ljb_id,bjb.id,admin_id from bjb,ljb where bjb.ljb_id=ljb.id order by bjb.id" End If rs.open sqlad,conn,1,1 if not (rs.EOF or rs.BOF) then rs.MoveFirst rs.PageSize = 12 '每页显示的条数 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page For ipage = 1 To rs.PageSize %> <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> <td align=center><%=rs(4)%></td> <td><%=rs(1)%></td> <td><%=rs(2)%></td> <td><%=rs(0)%> </td> <td> <% If rs(5)<>0 Then set rsbj=server.createobject("adodb.recordset") sqlbj="select username from admin where id="&rs(5) rsbj.open sqlbj,conn,1,1 If rsbj.eof Or rsbj.bof Then admin_bj_xm="无管理员" Else admin_bj_xm=rsbj(0) End If Else admin_bj_xm="无管理员" End If response.write admin_bj_xm %> </td> <td align=center> <a href="updata.asp?kind=bj&id=<%=rs("id")%>&lj=<%=rs("lj")%>" title="<%=rs("xhf")%>">修改 </a> <a href="admin_add.asp?kind=bj&type=del&lj=<%=rs(1)%>&id=<%=rs("id")%>" onclick="return confirm('确定要删除此班级吗?将会删除该班级以及该班级下的所有课程,成绩,学号!');">删除 </a> </td> </tr> <% rs.MoveNext If rs.EOF Then Exit For Next %> </table> <% Call pageinfo_b("admin_add.asp?kind=bj","&") response.write "</div>" rs.Close set rs=nothing set conn=nothing end if%> </td> </tr> <% end If if request.querystring("kind")="kc" Then Call admin_yz(3) %> <SCRIPT LANGUAGE = JavaScript> var s=["lj","bj","xq"]; var opt0 = ["-请选择年级-","-请选择班级-","-请选择学期-"]; function setup() { for(i=0;i<s.length-1;i++) document.getElementById(s[i]).onchange=new Function("change("+(i+1)+")"); change(0); } //--> </SCRIPT> <td align="center"> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" method="post" action="addu.asp"> <tr align="center" class="title"> <td height="32" colspan="2">添加与班级相对应的课程及类型</td> </tr> <tr class="tdbg"> <td width="26%" align="center">年级</td> <td width="74%"> <select id="s1" name="lj" style="width:180px" tabindex="1"> <option>-请选择年级-</option> </select> </td> </tr> <tr class="tdbg"> <td width="26%" align="center">班级</td> <td width="74%"> <select id="s2" name="bj" style="width:180px" tabindex="2"> <option>-请选择班级-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center">学期</td> <td> <select id="s3" name="xq" style="width:180px" tabindex="3"> <option>-请选择学期-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center">课程</td> <td><input name="kc" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center">任课</td> <td><select name="admin_id" style="width:180px" tabindex="3"> <option value="">-请选择老师-</option> <% sql="Select id,username from admin" rs.open sql,conn,1,1 Do While not rs.eof response.write "<option value="&rs(0)&">"&rs(1)&"</option>" rs.movenext loop rs.close %> </select> </td> </tr> <tr align="center" class="tdbg"> <td colspan="2"> <input name="kind" type="hidden" value="3"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"> </td> </tr> <tr class="tdbg"> <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr class="tdbg"> <td width="14%" align="center">说明</td> <td width="86%"> 1.填入相对应的份数,系统自动生成为您方便添加课程。</td> </tr> <tr class="tdbg"> <td> </td> <td> 2.添加课程只需选择对应的年级就行了,不必理会各个班。</td> </tr> <tr class="tdbg"> <td> </td> <td>3.请注意信息的完整性,提交后请自行到课程列表进行核对。</td> </tr> </table> </td> </tr> </form> </table> </td> </tr> <%end if%> <%if request.querystring("kind")="admin" Then Call admin_yz(4) %> <tr> <td align="center" colspan=9 > <br><br> <form name="form1" method="post" action="addu.asp"> <br> <table width="50%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr align="center" class="title"> <td colspan="3"> 添加管理员 </td> </tr> <tr class="tdbg"><td width="27%" align="center">等 级</td> <td width="73%" colspan="2"> <select name="qx"> <option value="1">普通管理员</option> <option value="2">任课教师</option> <option value="3">班主任</option> <option value="4">系统管理员</option> </select></td></tr> <tr class="tdbg"><td width="27%" align="center"> 用户名 </td> <td width="73%" colspan="2"><input name="username" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center"> 密 码 </td> <td colspan="2"><input name="password" type="password" size="30"> </td> </tr> <tr align="center" class="tdbg"> <td colspan="3"><input type="hidden" name="kind" value="0"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"></td> </tr> <tr class="tdbg"> <td colspan="3"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr class="tdbg"> <td width="13%" align="center">说明</td> <td width="87%"> 1.如果您输入的密码为空,系统将自动以用户名作为密码。</td> </tr> <tr class="tdbg"> <td> </td> <td> 2.添加完毕之后,请自行确认您所输入的信息。</td> </tr> </table></td> </tr> </table> </form> </td> </tr> <%end If if request.querystring("kind")="user" Then Call admin_yz(2) %> <SCRIPT LANGUAGE = JavaScript> var s=["lj","bj"]; var opt0 = ["-请选择年级-","-请选择班级-"]; function setup() { for(i=0;i<s.length-1;i++) document.getElementById(s[i]).onchange=new Function("change("+(i+1)+")"); change(0); } //--> </SCRIPT> <tr> <td align="center"> <%Call admin_xh_top("添加学生相关信息")%> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" method="post" action="addu.asp"> <tr class="tdbg"> <td width="27%" align="center"> [ <span style="color: #FF0000">年级</span> ]</td> <td width="73%"> <select id="s1" name="lj" style="width:180px" tabindex="1"> <option>-请选择年级-</option> </select></td> </tr> <tr class="tdbg"> <td width="27%" align="center"> [ <span style="color: #FF0000">班级</span> ]</td> <td width="73%"> <select id="s2" name="bj" style="width:180px" tabindex="2"> <option>-请选择班级-</option> </select> </td> </tr> <tr class="tdbg"> <td align="center"> [ <span style="color: #FF0000">学号</span> ] </td> <td><input name="xh" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center"> 姓名 </td> <td><input name="user" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center">密码</td> <td><input name="mm" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center"> 性别 </td> <td><select name="sex"> <option>男</option><option>女</option></select></td> </tr> <tr class="tdbg"> <td align="center"> 住址 </td> <td><input name="addr" type="text" size="30"></td> </tr> <tr class="tdbg"> <td align="center"> 邮编 </td> <td><input name="yb" type="text" size="30"></td> </tr> <tr align="center" class="tdbg"> <td colspan="2"><input type="hidden" name="max" value="1"> <input type="hidden" name="kind" value="1"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"></td> </tr> <tr class="tdbg"> <td colspan="2"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr class="tdbg"> <td width="13%" align="center">说明</td> <td width="87%"> 1.如果您输入的密码为空,系统将自动以学号作为密码。</td> </tr> <tr class="tdbg"> <td> </td> <td> 2.添加完毕之后,请自行确认您所输入的信息。</td> </tr> </table></td> </tr> </form> </table> </td> </tr> <%end if%> <%if request.querystring("kind")="lj" Then Call admin_yz(4) if request.querystring("type")="del" Then Call del("id="&request.querystring("id"),"ljb") '删除年级项目 set deltable=conn.execute("delete from cj_"&request.querystring("lj")&"") '删除年级所有成绩 set deltable=conn.execute("DROP TABLE cj_"&request.querystring("lj")&"") '删除年级表 sql="select id from bjb where ljb_id="&request.querystring("id") '输出相应年级下的班级 rs.open sql,conn,1,1 Do While Not rs.eof Call del("ljbj_id="&rs(0),"kcb") '删除相应班级下所有课程项目 Call del("ljbj_id="&rs(0),"cj_mc") '删除相应班级中学生成绩总分名次等信息 rs.movenext Loop Call del("ljb_id="&request.querystring("id"),"bjb") '删除相应年级下的班级 rs.Close End If page = CLng(request("page")) '利用CLng函数把page值转换为Long型 If page="" Then page=1 judge=request("judge") judge2=request("judge2") judge3=0 Call admin_lx_top("年级信息管理") %> <tr valign="top"> <td align="center"><br> <div id=boysoft style=" LEFT: 200px; POSITION: absolute; TOP: 100px; VISIBILITY: hidden; WIDTH: 400px; Z-INDEX: 1"> <table bgcolor="#ffffff" width="80%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" method="post" action="addu.asp"> <tr align="center" class="title"> <td height="32" colspan="2">添加年级</td> </tr> <tr class="tdbg"> <td width="15%" align="center">年级</td> <td width="55%"><input type="text" name="lj" size="30"></td> </tr> <tr align="center" class="tdbg"> <td colspan="2"> <input type="hidden" name="kind" value="5"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"> <input type="button" onclick="javascript:toExit('hide','boysoft')" name="Submit2" value="关闭"></td> </tr> </form> </table> </div> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr class="title"> <td colspan="3"><b>操作: <input type="button" onclick="javascript:toExit('show','boysoft')" name="Submit2" value="添加新年级"></td> </tr> <tr class="title" align='center'> <td width=20><b>ID</td> <td width=270><b>年级</td> <td width=60><b>操作</td> </tr> <!-- #include file="../conn.asp"--> <% set rs=server.createobject("adodb.recordset") sql="select * from ljb" rs.Open sql,conn,1,1 if not (rs.EOF or rs.BOF) then rs.MoveFirst rs.PageSize = 12 '每页显示的条数 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page For ipage = 1 To rs.PageSize %> <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> <td><%=rs("ID")%></td> <td><a href='admin_add.asp?kind=bj&lj=<%=rs("lj")%>'><%=rs("lj")%></a></td> <td><a href="updata.asp?kind=lj&id=<%=rs("id")%>">修改</a> <a href="admin_add.asp?kind=lj&type=del&lj=<%=rs("lj")%>&id=<%=rs("id")%>" onclick="return confirm('确定要删除此年级吗?将会删除该年级下的所有信息(包括该年级下的所有班级,类别,学号,成绩,统计等信息)!');">删除</a></td> </tr> <% rs.MoveNext If rs.EOF Then Exit For Next %> </table> <%Call pageinfo_b("admin_add.asp?kind=lj","&") Else %> <tr><td colspan='3'>没有任何信息</td></tr> <% End If %> </td> </tr> <% end if%> <%if request.querystring("kind")="post" Then Call admin_yz(4) %> <!--#include file="../inc/Ubb.asp"--> <!--#include file="../inc/Ubbadd.asp"--> <!--#include file="../inc/Ubbshow.asp"--> <SCRIPT LANGUAGE="JavaScript"> <!-- Begin maxLen = 255; function checkMaxInput(form) { if (form.content.value.length > maxLen) form.content.value = form.content.value.substring(0, maxLen); else document.all.bodyLen.innerText=form.content.value.length; } // End --> </script> <tr valign="top"> <td align="center"> <form name="form1" action="addu.asp" method="post"> <table border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr align="center" class="title"> <td height="31" colspan=2>添加公告</td> </tr> <tr class="tdbg"> <td width="60">新闻标题:</td> <td><input name="title" type="text" size="40"></td> </tr> <tr class="tdbg"> <td width="60">添加人:</td> <td><input name="add_name" type="text" size="40" value="<%=session("username")%>"></td> </tr> <tr class="tdbg"> <td colspan=2><%call ubbshow()%><Br><textarea name="content" onKeyDown="checkMaxInput(this.form)" onKeyUp="checkMaxInput(this.form)" cols="50" rows="6" style="overflow-y:auto;height:120"></textarea> </td> </tr> <tr class="tdbg"> <td colspan=2 align=center><font color="#FF0000"><span id="bodyLen">0</span><</font>255 <input type="hidden" name="kind" value="7"> <input type="submit" value="提交" name="B1"> <input type="reset" value="重置" name="B2"> </td> </tr> </table> </form> </td> </tr> <%end if%> <%if request.querystring("kind")="xq" Then Call admin_yz(4) %> <tr valign="top"> <td align="center" width="70%"> <%Call admin_lx_top("考试类别信息管理")%> <Br> <table width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr class="tdbg"><td colspan="3"> <div class="manager_menu"> 操作: <a href="javascript:showIntro('boysoft');"> 添加新类别 </a> </div></td></tr> </table> <table bgcolor="#ffffff" id="boysoft" style="display: none" width="98%" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <form name="form1" method="post" action="addu.asp"> <tr align="center" class="title"> <td height="32">添加学期</td> </tr> <tr class="tdbg"> <td width="15%" align="center">学期: <input type="text" name="xq" size="30" maxlength="16"> <input type="submit" name="Submit" value="提交"> <input type="reset" name="Submit2" value="清除"> <input type="button" onclick="javascript:showIntro('boysoft');" name="Submit2" value="隐藏"><br><br>·如:05-06 上学期 或 06年英语四级考试</td> <input type="hidden" name="kind" value="4"> </tr> </form> </table> <table width="98%" id="boysoft1" border='0' align='center' cellpadding='2' cellspacing='1' class='border'> <tr class="title" align='center'> <td width="30"><b>ID</td> <td width="680"><b>类别</td> <td width="62"><b>操作</td> </tr> <!-- #include file="../conn.asp"--> <% set rs=server.createobject("adodb.recordset") sql="select * from xqb" rs.Open sql,conn,1,1 do while not rs.eof %> <tr class="tdbg" onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#BFDFFF'"> <td align='center'><%=rs("id")%></td> <td><%=rs("xq")%></td> <td align='center'><a href="updata.asp?kind=xq&id=<%=rs("id")%>">修改</a> <a href="#" onclick="return confirm('类别将无法删除,如有需要请进行修改类别名称');">删除</a></td></tr> <% rs.movenext loop rs.Close set rs=nothing set conn=nothing %> </table> </td> </tr> <%end If%> </table> <!-- #include file="../inc/copyright.asp" -->