ASP学生信息管理系统课程设计.docx
摘要随着科学技术的发展，计算机领域不断取得新的研究成果。并不断地代替和延伸脑力劳动方面发挥越来越重要的作用，无论是工业还是日常生活都越来越离不开计算机，尤其是在学校里，随着不同高校的的不断扩大和招生人数的不断增加，要处理大量的学生数据信息显得尤为的重要。学生的信息管理是学校工作中一项重要的内容。本系统论文主要是管理学生的资料。重点介绍其功能：信息添加、信息修改、信息的删除及信息查询。使用进行静态页面设计,应用ASP程序进行后台管理操作，并用Access进行后台数据库的连接设计。主要是以四大功能进行系统的设计和实现。关键词：Dreamweaver MX 2004 系统 站点设计 ASP Access 数据库1.1 开发工具的介绍1.1.1 ASPASP（Active Sever Pages动态网页）是微软公司推出的一种用以取代CGI(Common Gateway Interface)技术。目前，Internet上的许多基于Windows平台的Web站点已开始应用ASP来替换CGI。ASP是在服务器端脚本编译环境，使用它可以创建和运行动态、交互的Web服务器应用程序。ASP可以与HTML页、脚本命令和 ActiveX组件组合创建交互的Web页和基于Web的功能强大的应用程序。ASP应用程序很容易开发和修改。ASP是一个位于服务器端的脚本运行环境。通过这种环境，用户可以创建和运行动态的交互式Web服务器应用程序，如交互 式动态网页，包括使用HTML 表单收集和处理信息、上传与下载等。 通常情况下，用户通过浏览器看到的网页大多是静态的，目前Internet上的许多站点，仍然提供“静态”（static）的主页内容。所谓“静态”，是指站点的主页内容是“固定不变”的。一个“静态”的站点，若要更新主页的内容，必须手动更新其 HTML的文件数据。而随着Web技术的发展，用户希望能够看到根据要求而动态生成的主页，例如响应用户查询数据库的要求而生成报表等。站点服务器收到要求执行的应用程序，分析表单（form）的输入数据，将执行的结果以HTML的格式传送给浏览器。根据用户请求生成动态主页的传统方法有CGI、ISAPI等。CGI是根据浏览器端的http请求激活响应进程，每一个请求对应一个进程。当同时有很多请求时，程序挤占系统资源，造成效率低下。ISAPI针对这一缺点进行了改进，利用dll（动态链接库技术），以线程代替进程，提高了性能和速度，但要考虑线程的同步问题，而且开发步骤烦琐。这两种技术和另一普遍使用的开发动态网页的技术 Java都还存在着另外一个问题，那就是开发困难，程序的开发和HTML写作是两个完全不同的过程，需要专门的程序员开发。ASP使用的 ActiveX技术基于开放设计环境，用户可以自己定义和制作组件加入其中，使自己的动态网页几乎具有无限的扩充能力，这是传统的CGI等程序所远远不及的地方。1.1.2 AccessAccess是一个数据库管理系统，它之所以被集成到Office中而不是Visual Studio中，是因为它与其它的数据库管理系统（如SQL Server 2000）相比更加简单易学，一个普通的计算机用户即可掌握并使用它。而且最重要的一点是，Access的功能足够强大，足以应付一般的数据管理及处理需要。 Access可以实现建立数据库、报表，以及对数据库、报表的修改、查询等功能。Access随着Windows操作系统和Offices办公自动化应用软件的普及， Access各个版本变得与其他Office成员集成得越来越紧密。Office2000的所有成员和VisualBasic6.0现在共享的是同样的VisualBasicforApplications(VBA)版本6.0。Access2000最后采纳了Office2000VBA编辑器(也叫做集成开发环境或者IDE)用于编写VBA代码来自动操作Access应用。不论好坏，Access2000还共享了Office2000新的超文本标记语言(HTML)帮助系统。Access最主要用的是创建数据库，并建立相应的软件的连接。如ODBC的连接。第2章 系统的需求分析和设计2.1 系统的需求分析如果我国各个学校管理水平还停留在纸介质的基础上，已不能适应时代的发展，因为它浪费了许多人力和物力，在当今的信息时代这种管理方法必然被计算机为基础的信息管理所取代。学生信息管理系统的开发，适合任何一个大中小学校的管理， 该学生信息管理系统归纳起来有四点：1学生信息的插入。可以插入不同地区的学生的姓名、个人联系方法、所在院系、班级及相关情况。实现了信息的动态管理。2学生信息的查询。学生的信息使管理员可以通过多种方式（年级、班级、姓名、学号、所在系等等）的查询，就可以直接查看自己需要的学生的相关信息。实现了信息的动态管理。 3学生信息的修改。管理人员可以随时对转入、转出的学生进行修改，比如学号、所在系等等实现了信息的动态管理。3学生信息的删除。管理人员可以随时对转入、转出的学生进行删除，比如学号、所在系等等实现了信息的动态管理。 好处为： 1 可以存储怕有的学生档案，安全、高效； 2 只需一到二名档案录入员即可操作系统，节省大量人力； 3 可以迅速查找到所需要的信息。其功能结构如图：学生信息管理系统学生资料管理添加资料修改资料删除资料查询资料登录第3章 系统的实现3.1 数据库存设计数据库是整个学生信息管理系统的核心部分。只有通过数据库的调用才能进行学生信息更新处理、插入资料、删除资料和查询资料，方便管理进行管理，减少管理员的工作量以及更多的人力。3.1.1 管理员数据库设计Users表是用于管理员登陆时用于验证管理员身份的，这样使前后台分隔开，保护网站的安全，阻止除了管理员之外的任何人进入后台，威胁到整个网站的安全。包括用户名、密码和访问权限等等。其数据库如图：3.1.2 学生信息数据库设计学生信息数据库是存放学生基本信息资料，如学号、姓名、出生日期、所在系及一些个人的联系方式等等。其数据库如下：3.2 登录3.2.1 系统总模型学生信息管理系统总的模型主要是说明系统注册后才能登录，登录后进么主页面后实现主要有学生资料管理、管理员管理以及更改级别，其中学生资料管理主要实现学生信息的添加、修改、删除和查询功能。管理员管理是只有权限最高的管理员才能进行删除管理员和更改权限的操作。其结构图如下：登录注册主页面学生资料管理管理员设置添加资料修改资料删除资料查询资料更改级别3.2.2 登录界面（1）只有通过index.asp登录界面才能进入主页面进行相应学生信息的操作。（2）进入登录界面：通过注册页面让用户提交注册并保存在user表里，并通过登录页面读取用户提交的 登录信息与保存在数据库中的数据进行比较以验证是否成功登录。图1：用户登录界面3.2.3 主页面的实现图2：主页面学生信息管理系统主要是与数据库的连接,然后数据库的连接必须使用ADO的内置Connection对象，并且调用Recordset对象来进行与数据库的查找、删除、更改等功能，具体脚本如下：<% dim username,password dim cnn,rst,ssql username=trim(request.form("txtusername") password=trim(request.form("txtpassword") login=request.form("btnlogin") 'if login="" and session("username")="" then response.redirect "login.htm" if (username="" or password="" ) and login<>"" then response.redirect "login.htm"%><%'if seesion("username")="" or (session("username")<>username and seesion("username")<>"") then set cnn=server.createobject("adodb.connection") set rst=server.CreateObject("adodb.recordset") cnn.connectionstring="provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("Datedate.mdb ") cnn.open ssql="select * from users where user_name='"&username&"' and mm ='"&password&"' " set rst =cnn.execute(ssql, ,adcmtext) if rst.eof then response.Write"<p align=center><b>Username or Password is error.sorry!</b></p>" response.write"<p align=center><a href=login.asp>重新登录(restart login)</a></p>" else session("username")=rst("user_name")session("level")=rst("purview_level") end if%>3.3 后台主要功能的实现3.3.1 添加学生信息资料在学生信息管理系统首页（index.asp）单击“添加资料”链接，可以进入addinfo.asp页面，在该页面中输入学生资料，并提交给saveinfo.asp页面进行添加，将数据保存到数据库中。界面如下： 图1 添加页面addinfo.asp实现功能脚本如下：<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, RemarkStudentNum = Trim(Request.Form("txtStudentNum")StudentName = Trim(Request.Form("txtStudentName")StudentSex = Request.Form("optStudentSex")BirthDate = Trim(Request.Form("txtBirthDate")Department = Trim(Request.Form("txtDepartment")Speciality = Trim(Request.Form("txtSpeciality")Grade = Trim(Request.Form("txtGrade")sClass = Trim(Request.Form("txtClass")ParentName = Trim(Request.Form("txtParentName")HomeAddr = Trim(Request.Form("txtHomeAddr")HomePhone = Trim(Request.Form("txtHomePhone")Remark = Trim(Request.Form("txtRemark")If StudentNum = "" Or StudentName = "" Then Response.Redirect "addInfo.asp"End IfSet cnn = Server.CreateObject("ADODB.Connection")Set rst = Server.CreateObject("ADODB.Recordset")cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Datedate.mdb")cnn.OpensSQL = "SELECT student_num FROM students WHERE student_num='" & StudentNum & "'"Set rst = cnn.Execute(sSQL, , adCmdText)If Not rst.EOF Then Response.Write "<P>学号“" & rst("student_num") & "”已经存在，请重新输入！</P>"Else sSQL = "INSERT into students(student_num, student_name, " & "student_sex, birthdate, department, speciality," sSQL = sSQL & "grade, class, home_addr, parent_name, " sSQL = sSQL & "home_phone, remark) VALUES('" sSQL = sSQL & StudentNum & "','" & StudentName & "','" & StudentSex & "','" & BirthDate & "','" sSQL = sSQL & Department & "','" & Speciality & "','" & Grade & "','" & sClass & "','" sSQL = sSQL & HomeAddr & "','" & ParentName & "','" & HomePhone & "','" & Remark & "')" cnn.Execute sSQL, , adCmdText%><HR NOSHADE SIZE = "1" COLOR = "red"><P class="STYLE1">数据保存成功！</P><% End If %>3.3.2 修改学生资料在学生信息管理系统首页（index.asp）单击“修改资料”链接，可以进入editinfo.asp页面，在该页面中输入学生资料，并提交给editinfo2.asp页面进行修改，将数据进行修改操作中。界面如下：图2 修改页面editinfo.asp实现功能脚本如下：<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form("txtStuNum")Set cnn = Server.CreateObject("ADODB.Connection")Set rst = Server.CreateObject("ADODB.Recordset")cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Datedate.mdb")cnn.OpenIf StuNum <> "" Then sSQL = "SELECT * FROM students WHERE student_num='" & StuNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText) If rst.EOF Then Response.Write "<P><FONT COLOR = red>没有找到符合条件的记录！</FONT></P>" Else%><FORM METHOD = "post" ACTION = "editInfo2.asp"><TABLE border="1" align="center" cellpadding="2" cellspacing="1" bordercolor="#0099FF" BGCOLOR = "#B5E6FF"><TR ALIGN = "center"><TH COLSPAN = "6" BGCOLOR = "#0034FF"><FONT COLOR = "#FFFFFF">修改学生资料</FONT></TH></TR><TR><TD ALIGN = "right">学号：</TD><TD><INPUT TYPE = "text" NAME = "txtStudentNum" SIZE = "12"VALUE = <% = rst("student_num")%>><INPUT TYPE = "hidden" NAME = "txtOldStuNum" SIZE = "12"VALUE = <% = rst("student_num")%>></TD><TD ALIGN = "right">姓名：</TD><TD><INPUT TYPE = "text" NAME = "txtStudentName" SIZE = "12"VALUE = <% = rst("student_name")%>></TD><TD ALIGN = "right">性别：</TD><TD><INPUT TYPE = "radio" VALUE = "男"NAME="optStudentSex" <% = IIf( rst("student_sex") = "男") %>>男<INPUT TYPE="radio" VALUE="女"NAME="optStudentSex" <% = IIf( rst("student_sex") = "女") %>>女</TD></TR><TR><TD ALIGN = "right">出生日期：</TD><TD><INPUT TYPE = "text" NAME = "txtBirthDate" SIZE = "12"VALUE = <% = rst("birthdate") %>></TD><TD ALIGN = "right">所在院系：</TD><TD><INPUT TYPE = "text" NAME = "txtDepartment" SIZE = "12"VALUE = <% = rst("department") %>></TD><TD ALIGN = "right">所在专业：</TD><TD><INPUT TYPE = "text" NAME = "txtSpeciality" SIZE = "12"VALUE = <% = rst("speciality") %>></TD></TR><TR><TD ALIGN = "right">年级：</TD><TD><INPUT TYPE = "text" NAME = "txtGrade" SIZE = "12"VALUE = <% = rst("grade") %>></TD><TD ALIGN = "right">班级：</TD><TD><INPUT TYPE = "text" NAME = "txtClass" SIZE = "12"VALUE = <% = rst("class") %>></TD><TD ALIGN = "right">家长姓名：</TD><TD><INPUT TYPE = "text" NAME = "txtParentName" SIZE = "12"VALUE = <% = rst("parent_name") %>></TD></TR><TR><TD ALIGN = "right">家庭住址：</TD><TD COLSPAN = "3"><INPUT TYPE = "text"NAME = "txtHomeAddr" SIZE = "33" VALUE = <% = rst("home_addr") %>></TD><TD ALIGN = "right">住宅电话：</TD><TD><INPUT TYPE = "text" NAME = "txtHomePhone" SIZE = "12"VALUE = <% = rst("home_phone") %>></TD></TR><TR><TD ALIGN = "right">备注：</TD><TD COLSPAN = "5"><TEXTAREA ROWS = "3" NAME = "txtRemark"COLS = "58"><% = rst("remark") %></TEXTAREA></TD></TR><TR ALIGN = "center"><TD COLSPAN = "6"><INPUT TYPE = "submit" VALUE = "保存数据" NAME = "btnSave"> <INPUT TYPE="reset" VALUE = "全部重写" NAME = "btnReset"></TD></TR></TABLE></FORM><%End IfEnd If%> Editinfo2.asp页面脚本如下:<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQLDim StudentNum, StudentName, StudentSex, BirthDate, DepartmentDim Speciality, Grade, sClass, ParentName, HomeAddr, HomePhone, RemarkNewStuNum = Trim(Request.Form("txtStudentNum")OldStuNum = Trim(Request.Form("txtOldStuNum")StudentName = Trim(Request.Form("txtStudentName")StudentSex = Request.Form("optStudentSex")BirthDate = Trim(Request.Form("txtBirthDate")Department = Trim(Request.Form("txtDepartment")Speciality = Trim(Request.Form("txtSpeciality")Grade = Trim(Request.Form("txtGrade")sClass = Trim(Request.Form("txtClass")ParentName = Trim(Request.Form("txtParentName")HomeAddr = Trim(Request.Form("txtHomeAddr")HomePhone = Trim(Request.Form("txtHomePhone")Remark = Trim(Request.Form("txtRemark")If NewStuNum = "" Or StudentName = "" Then Response.Redirect "editInfo.asp"End IfSet cnn = Server.CreateObject("ADODB.Connection")Set rst = Server.CreateObject("ADODB.Recordset")cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Datedate.mdb")cnn.OpensSQL = "UPDATE students SET student_num='" & NewStuNum & "', student_name='"sSQL = sSQL & StudentName & "', student_sex='" & StudentSex & "', birthdate='"sSQL = sSQL & BirthDate & "', department='" & Department & "', speciality='"sSQL = sSQL & Speciality & "',grade='" & Grade & "', class='" & sClass & "', home_addr='"sSQL = sSQL & HomeAddr & "', parent_name='" & ParentName & "', home_phone='"sSQL = sSQL & HomePhone & "', remark='" & Remark & "' " sSQL = sSQL & " WHERE student_num='" & OldStuNum & "'"cnn.Execute sSQL, , adCmdText%>3.3.3 删除资料在学生信息管理系统首页（index.asp）单击“删除资料”链接，可以进入deleteinfo.asp页面，在该页面中输入一个指定的学号并单击”提交”按钮,如果找到匹配的学生记录，则以表格形式显示出该学生的详细资料,此时发给deletetinfo2.asp页面进行删除操作。功能脚本如下:<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQL, StuNumStuNum = Trim(Request.Form("txtStuNum")Set cnn = Server.CreateObject("ADODB.Connection")Set rst = Server.CreateObject("ADODB.Recordset")cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Datedate.mdb")cnn.OpenIf StuNum <> "" Then sSQL = "SELECT * FROM students WHERE student_num = '" & StuNum & "'" Set rst = cnn.Execute(sSQL, , adCmdText) If rst.EOF Then%><P><FONT COLOR = "red">没有找到符合条件的记录！</FONT></P><% Else %><TABLE BORDER = "1" align="center" cellpadding="2" cellspacing="1" bordercolor="#0099FF" bgcolor="#B5E6FF"><CAPTION><B>学号为“<% = StuNum %>”的学生资料如下：</B></CAPTION><TR><TD NumWRAP NOWRAP>学号：</TD><TD><% = rst("student_num") %></TD><TD>姓名：</TD><TD> <% = rst("student_name") %></TD><TD>性别：</TD><TD><% = rst("student_sex") %></TD></TR><TR><TD NOWRAP>出生日期：</TD><TD><% = rst("birthdate") %></TD><TD>所在院系：</TD><TD><% = rst("department") %></TD><TD>所在专业：</TD><TD><% = rst("speciality") %></TD></TR><TR><TD NOWRAP>年级：</TD><TD><% = rst("grade") %></TD><TD>班级：</TD><TD><% = rst("class") %></TD><TD>家长姓名：</TD><TD><% = rst("parent_name") %></TD></TR><TR><TD NOWRAP>家庭住址：</TD><TD COLSPAN = "3"><% = rst("home_addr") %></TD><TD>住宅电话：</TD><TD><% = rst("home_phone") %></TD></TR><TR><TD NOWRAP>备注：</TD><TD COLSPAN = "5"><% = rst("remark") %></TD></TR></TABLE><P><A HREF = "deleteInfo2.asp?stu_num=<% =rst("student_num") %>">删除记录</A></P><% End If %><% End If %>执行deletetinfo2.asp页面后显示某学生已被删除。3.3.4 查询资料在学生信息管理系统首面上单击”查询资料”链接,即可进入browseinfo.asp页面,在该页面中首先可以选择一种查询方式,然后输入关键字的值,并单击”查询”铵钮,如果找到匹配的学生信息记录,则以表格的形式显示出来简要资料,其中学号以超链接形式显示.如果想要查看某个学生的详细资料,单击相应的学号,以打开detailinfo.asp页面,显示出该生的详细资料,如图:图6 查询页面browsetinfo.asp其功能脚本如下：<!- #include file="Dateadovbs.inc" -><%Dim cnn, rst, sSQL, currentPage, rowCount, iIf Request.Form("btnSubmit") = "" Then Response.EndEnd If currentPage = Request.QueryString("currentPage")If currentPage = "" Then currentPage = 1End IfSet cnn = Server.CreateObject("ADODB.Connection")Set rst = Server.CreateObject("ADODB.Recordset")cnn.ConnectionString = "PROVIDER=microsoft.jet.oledb.4.0;DATA SOURCE=" & server.mappath("Datedate.mdb")cnn.Openrst.CursorType = adOpenStaticrst.PageSize = 5Field = Request.Form("lstFld")Value = Trim(Request.Form("txtValue")If Field = "all" Then sSQL = "SELECT * FROM students ORDER BY student_num"End IfIf Field <> "all" And Value <> "" Then sSQL = "SELECT * FROM students WHERE " & Field & "='" & Value & "' ORDER BY student_num"End Ifrst.Open sSQL, cnnIf rst.EOF Then Response.Write "<P><FONT COLOR = red>没有找到符合条件的记录！</FONT></P>"ElserowCount = 0 %><TABLE WIDTH = "40%" BORDER = "1" cellpadding="2" cellspacing="1" bordercolor="#0099FF"><CAPTION><B>查询结果：</B>共<% = rst.RecordCount %>个学生<TR><TH>学号</TH><TH>姓名</TH><TH>性别</TH><TH>出生日期</TH></TR><% While Not rst.EOF And rowCount < rst.PageSize %><TR><TD><A HREF=detailInfo.asp?StuNum=<% = rst("student_num") %>><% = rst("student_num") %></A></TD><TD><% = rst("student_name") %></TD><TD><% = rst("student_sex") %></TD><TD><% = rst("birthdate") %></TD></TR><%rowCount = rowCount + 1rst.MoveNextWend %></TABLE><P>每页<% = rst.PageSize %>个学生 当前页次：<% = currentPage %>/<% = rst.PageCount %>页 <% For i = 1 To rst.PageCountIf i = CInt(currentPage) Then %><FONT COLOR = "red"><%= i %></FONT> <% Else %><A HREF = "browseInfo.asp?currentPage=<%= i %>"><%= i %></A> <%End If Next End If%>3.3.5 访问权限管理系统管理员的权限级别为3，以系统管理员身份登录学生信息管理系统时，可以首面上看到“更改级别”链接，单击即可进入changlevel.asp页面中，可以进行对某个用户的权限级别进行修改。图如下：功能脚本如下：<%Dim cnn, rts, sSQL, UserNa
