网学网ASP类作品编辑为广大网友搜集整理了：基于ASP的英语课程计算机自动考试系统绩等信息，祝愿广大网友取得需要的信息，参考学习。
4.2后台管理部分 这一部分就后台管理部分做相关说明 后台管理是这个系统工作量比较大的一个部分，其中包括大量的操作技巧，可以做为系统的一个亮点来看待。 用户登录 同前台子系统类似，这里不再说明 主界面 如下图这是完整的后台管理系统界面，从中我们不难看到。后台系统主要分成两个部分：左列表级右主体。左侧用于用户选择所要进行的操作，右侧是系统的主体部分，所有操作都在这里面进行响应及处理。 系统功能 如下图，我们可以看到，本系统主要由以下几个子模块组成。下面详细介绍。 图4-12 附菜单处理脚本 <script> function aa(Dir) {tt.doScroll(Dir);Timer=setTimeout(''aa("''+Dir+''")'',100)}//这里100为滚动速度 function StopScroll(){if(Timer!=null)clearTimeout(Timer)} function initIt(){ divColl=document.all.tags("DIV"); for(i=0; i<divColl.length; i++) { whichEl=divColl(i); if(whichEl.className=="child")whichEl.style.display="none";} } function expands(el) { whichEl1=document.getElementById(el+"Child"); if (whichEl1.style.display=="none"){ initIt(); whichEl1.style.display="block"; }else{whichEl1.style.display="none";} } var tree= 0; function loadThreadFollow(){ if (tree==0){ tree=1 } } function showsubmenu(sid) { try { var whichEl = document.getElementById("submenu" + sid); var imgmenu = document.getElementById("imgmenu" + sid); if (whichEl.style.display == "none") { for( i=1;i<=6;i++) { whichEl = document.getElementById("submenu" + i); imgmenu = document.getElementById("imgmenu" + i); if(whichEl.style.display == "") { document.getElementById("submenu" + i).style.display="none"; imgmenu.background="images/menudown.gif"; } } document.getElementById("submenu" + sid).style.display=""; imgmenu.background="images/menudown.gif"; } else { document.getElementById("submenu" + sid).style.display="none"; imgmenu.background="images/menudown.gif"; } } catch(e) {} } var str=location.href; var hrefNum= str.indexOf("?"); showsubmenu(str.substring(hrefNum+1,str.length)); </script> 图4-13 考生信息管理 这一部分主要完成考生信息的录入及维护工作，菜单及相关界面如下图所示： 图4-14 考生信息查询与修订 如下图所示，这一部分主要是用来显示考生的相关信息列表，并通过操作项进行相关处理。附部分源码： <% ''列出考生相关信息列表 strSql="select * from v_ks_bj" objRs.Open strSql,strConn,1,1 Do While Not objRs.EOF Response.Write "<tr>" Response.Write " <td height=22 align=center valign=top bgcolor=#ECF5FF>" & objRs("zkzh") & "</td>" Response.Write " <td valign=top bgcolor=#ECF5FF>" & objRs("ksxm") & "</td>" Response.Write " <td valign=top bgcolor=#ECF5FF>" & objRs("ksmm") & "</td>" Response.Write " <td valign=top align=center bgcolor=#ECF5FF>" & objRs("bjmc") & "</td>" If objRs("kszt")=True Then Response.Write " <td valign=top bgcolor=#ECF5FF align=center>启用</td>" Else Response.Write " <td valign=top bgcolor=#ECF5FF align=center>禁用</td>" End If If intAction=3 Then Response.Write " <td valign=top bgcolor=#ECF5FF align=center><a href=ks_add.asp?action=2&no=" & objRs("zkzh") & ">修改</a>/<a href=ks_list.asp?action=5&no=" & objRs("zkzh") & ">删除</a></td>" Else Response.Write " <td valign=top bgcolor=#ECF5FF align=center>无</td>" End If Response.Write "</tr>" objRs.MoveNext Loop objRs.Close %> 图4-15 考生信息录入 这一部分主要完成考生信息的录入工作。其中还包括了考生信息的修改与保存模块。 <% ''完成数据的增加，修改工作 Dim objRs,intAction,strNo,strXm,strMm,strBj,strZt intAction=Request("action") Set objRs=Server.CreateObject("ADODB.RecordSet") If intAction=4 Then ''增加保存 strNo=Request("no") strXm=Request("ksxm") strMm=Request("ksmm") strBj=Request("szbj") strZt=Request("kszt") strSql="select * from students" objRs.Open strSql,strConn,1,3 objRs.AddNew objRs("zkzh")=strNo objRs("ksxm")=strXm objRs("ksmm")=strMm objRs("szbj")=strBj objRs("kszt")=strZt objRs.UpDate objRs.Close Set objRs=Nothing Response.Write "<script language=javascript>alert(''数据操作成功!'');document.location.href=''ks_add.asp?action=1''</script>" Response.End ElseIf intAction=1 Then ''增加数据 strSql="select max(zkzh)+1 as ''bb'' from students" objRs.Open strSql,strConn,1,1 strNo=objRs("bb") objRs.Close intAction=4 ElseIf intAction=2 Then ''修改数据 strNo=Request("no") strSql="select * from students where zkzh=" & strNo objRs.Open strSql,strConn,1,1 strXm=objRs("ksxm") strMm=objRs("ksmm") strZt=objRs("kszt") strBj=objRs("szbj") objRs.Close intAction=3 ElseIf intAction=3 Then ''修改保存 strNo=Request("no") strXm=Request("ksxm") strMm=Request("ksmm") strBj=Request("szbj") strZt=Request("kszt") strSql="select * from students where zkzh=" & strNo objRs.Open strSql,strConn,1,3 objRs("ksxm")=strXm objRs("ksmm")=strMm objRs("szbj")=strBj objRs("kszt")=strZt objRs.Update objRs.Close Set objRs=Nothing Response.Write "<script language=javascript>alert(''数据操作成功!'');document.location.href=''ks_list.asp?action=3''</script>" Response.End Else ''Response.Write "系统操作异常，请重试！" ''Response.End End If %> 
|
| 本站发布的计算机毕业设计均是完整无错的全套作品，包含开题报告+程序+论文+源代码+翻译+答辩稿PPT |
本文选自计算机毕业设计http://myeducs.cn
|
