Web程序设计课程设计报告-选课系统的设计与实现_第1页
Web程序设计课程设计报告-选课系统的设计与实现_第2页
Web程序设计课程设计报告-选课系统的设计与实现_第3页
Web程序设计课程设计报告-选课系统的设计与实现_第4页
Web程序设计课程设计报告-选课系统的设计与实现_第5页
已阅读5页，还剩18页未读， 继续免费阅读

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

Web程序设计课程设计报告学生：学号：班级：专业：重庆邮电大学移通学院2017年3月目录选课系统的设计与实现 3一、实验目的及要求 3二、实验环境及相关情况（包含使用软件、实验设备、主要仪器等） 3三、实验内容及步骤 3（一）、网站总体设计 3系统概述 3（二）、数据库设计 31、数据库E-R图分析 32、数据表概要说明 5Account表： 5Admin表： 5Course表： 5Selection表： 6Student表： 6Teacher表： 63、主要数据表的结构 6（三）、文件架构设计 8（四）、前台页面设计（普通用户模块） 81、前台各个主要页面概述 82、前台主页面的布局 103、前台主页面的实现 10（1）选课系统登录首页 10（2）信息录入页面 11（3）浏览课程信息页面 13（4）选择检索条件 16（5）选择选课方式 18（五）、后台模块的设计与实现（管理员模块） 201、后台各个主要页面概述 202、后台主页面的布局 203、后台主页面的实现 21修改课程信息页面 21课程设计总结 23参考文献 23选课系统的设计与实现一、实验目的及要求1、掌握Web网页常用的开发工具Frontpage2003或Deamweaver的使用；2、学会IIS的配置；3、学会Html、CSS、Javascript的简单开发和应用；

4、B/S模式下，asp或与数据库的连接。二、实验环境及相关情况（包含使用软件、实验设备、主要仪器等）操作系统为WindowsXP，应用软件为MacromediaDreamweaver8、IIS服务器和软件编辑器。三、实验内容及步骤（一）、网站总体设计系统概述选课系统的核心是选课功能，学生在选课之前，必须通过系统的身份验证，然后就可以选定自己感兴趣的选修课程。在此学生可以通过系统查询自己喜欢和对自己有帮助的课程，还有可以通过学分查询自己需要的课程，学生还可以通过选课系统查看自己的选修课程。

学生的课程成绩由教师来添加，教师的身份需通过系统验证。

选课系统的课程信息和学生信息由管理员通过身份验证后来进行添加、删除和修改。这些功能是后台管理功能。（二）、数据库设计1、数据库E-R图分析这一设计阶段是在系统功能结构图的基础上进行的，设计出能够满足用户需求的各种实体以及它们之间的关系，为后面的逻辑结构设计打下基础。根据以上的分析设计结果，得到用户实体、管理实体、课程实体、选择实体、学生实体、教师实体。下面来介绍几个主要信息实体的E-R图。（1）用户实体：用户实体包括：用户姓名、密码、用户等级和用户编号。用户实体的E—R图，如图（2）管理实体管理实体包括：管理员编号和姓名。管理实体的E—R图，如图（3）课程实体课程实体包括：课程编号、课程名称、课程描述、学分、最高分数和教师编号。课程实体的E—R图，如图（4）选择实体选择实体包括：课程编号和学生编号。课程实体的E—R图，如图（5）学生实体学生实体包括：课程编号、学生姓名、系别和专业。学生实体的E—R图，如图（6）教师实体教师实体包括：教师编号、教师姓名和职称。教师实体的E—R图，如图2、数据表概要说明Account表：Admin表：Course表：Selection表：Student表：Teacher表：3、主要数据表的结构（1）Account表表1 Account表结构字段名称数据类型是否主键长度默认值允许空 字段描述Username文本是10用户姓名Password数字4登录密码UserLevel文本10

用户级别Userno文本用户编号（2）Admin表表2 Admin表结构字段名称数据类型是否主键长度默认值允许空字段描述Adminno文本是10管理员编号Name文本10姓名（3）Course表表3 Course表结构字段名称数据类型是否主键长度默认值允许空字段描述Courseno文本是10课程编号Name文本50课程名称Description文本50

课程描述Credit数字10学分Maximumnun数字10最大分数Teacher文本

10

教师编号（4）Selection表表4 Selection表结构字段名称数据类型是否主键长度默认值允许空字段描述Studentno数字是10学生编号Courseno数字10课程编号（5）Student表表5 Student表结构字段名称数据类型是否主键长度默认值允许空字段描述Studentno数字是10学生编号Name文本10学生姓名Department文本10

系别Major文本10专业（6）Teacher表表6 Teacher表结构字段名称数据类型是否主键长度默认值允许空字段描述Teacherno文本是10教师编号Name文本10教师姓名Title文本10

职称（三）、文件架构设计用户登录用户身份确认用户登录用户身份确认教务员普通教师学生用户非法用户输入课程信息修改课程信息浏览课程信息检索课程信息修改账户密码查看所选课程选择课程（四）、前台页面设计（普通用户模块）1、前台各个主要页面概述↑选课系统登录页面↑选课系统登录首页↑选课系统输入课程信息页面↑选课系统搜索课程信息页面↑选课系统选课信息一览表页面2、前台主页面的布局↑前台主页面布局3、前台主页面的实现（1）选课系统登录首页源文件代码<html><head><meta-equiv="Content-Type"content="text/html;charset=gb2312"><title>选课系统首页－登录页面</title></head><body><tablewidth="98%"height="215"border="0"><tr><tdheight="48"><divalign="center"><p> </p><p><fontcolor="#9900FF"size="7"face="华文新魏">校园网选<fontcolor="#9900CC">课系统</font></font></p><hrsize="10"color="#FF0000"><p><fontcolor="#0000FF"size="7"face="华文新魏"></font></p></div></td></tr><tr><td><divalign="center"><formaction="login.asp"method="post"name="frmLogin"id="frmLogin"><p> </p><p>用户名：<inputname="Username"type="text"id="Username"></p><p>密  码:<inputname="Password"type="password"id="Password"></p><p> </p><p><inputtype="submit"name="Submit"value="登录">    <inputtype="reset"name="Submit2"value="重填"></p><p> </p></form></div></td></tr></table></body></html>（2）信息录入页面源文件代码<%@LANGUAGE="VBSCRIPT"%><!--#includefile="adovbs.inc"--><!--#includefile=connection.asp--><%'判断是否具有教务员权限IfSession("UserLevel")<>"Admin"Then Response.Redirect"illegal.asp"EndIfSetrsTest=Server.CreateObject("ADODB.RecordSet")rsTest.Open"Teacher",Conn,adOpenStatic,adLockReadOnly%><html><head><meta-equiv="Content-Type"content="text/html;charset=gb2312"><title>输入课程信息</title></head><body><table><tr><tdwidth="804"height="55"valign="top"><divalign="center"><fontcolor="#990033"size="7"face="华文新魏">输入课程信息</font></div></td></tr><tr><tdheight="504"valign="top"><formaction="insertCourse.asp"method="POST"name="frmInsertCourse"id="frmInsertCourse"><divalign="center"><pre><fontcolor="#0000FF"size="4">课程号：</font><inputname="txtCourseno"type="text"id="txtCourseno"><fontcolor="#0000FF"size="4">学分：</font><selectname="selCredit"id="selCredit"><optionvalue="1">一分</option><optionvalue="2">二分</option><optionvalue="3">三分</option><optionvalue="4"selected>四分</option><optionvalue="5">五分</option></select></pre></div><divalign="center"><prealign="center"><fontcolor="#0000FF"size="4">课程名称：<inputname="txtName"type="text"id="txtName"size="60"></font></pre><prealign="center"><fontcolor="#0000FF"size="4">课程描述：<textareaname="txtDescription"cols="80"id="txtDescription"></textarea></font></pre><divalign="left"><prealign="center"><fontcolor="#0000FF"size="4">最大选课人数：<inputname="txtMaximumNum"type="text"id="txtMaximumNum">教师：<selectname="selTeacherno"id="selTeacherno"> <%While(NOTrsTest.EOF)%> <optionvalue="<%=(rsTest.Fields.Item("Teacherno").Value)%>"<%If(NotisNull((rsTest_first)))ThenIf(CStr(rsTest.Fields.Item("Teacherno").Value)=CStr((rsTest_first)))ThenResponse.Write("SELECTED"):Response.Write("")%>> <%=(rsTest.Fields.Item("Name").Value)%> </option> <% rsTest.MoveNext() Wend If(rsTest.CursorType>0)Then Else EndIf %> </select></font></pre></div><pre><fontcolor="#0000FF"size="4"><inputname="btnInsert"type="submit"id="btnInsert"value="保存输入"><inputname="btnClear"type="reset"id="btnClear"value="清除重填"></font></pre></div><palign="center"><ahref="main.asp"><fontsize="5"face="华文新魏">返回</font></a></p> <fontcolor="#0000FF"size="4"></font><pre><fontcolor="#0000FF"size="4"></font></pre></form><p> </p></td></tr><tr><tdheight="42"> </td></tr></table><%SetrsTest=NothingSetConn=Nothing%></body></html>（3）浏览课程信息页面源文件代码<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%OptionExplicitResponse.Expires=0%><!--#includefile=adovbs.inc--><!--#includefile=connection.asp--><%DimRecordPerPage,absPageNUm,TotalPages,absRecordNUm,rsTest,StrSQL'absPageNum-当前页数,TotalPages-总页数,absRecordNum-当前页中某一条记录的序号RecordPerPage=4'每页显示的记录数absPageNum=CInt(Request.Form("PressPageNum"))'若返回的是"上一页",则页数减一，若是"下一页"，则页数加一IfRequest.Form("Submit")="上一页"Then absPageNum=absPageNum-1ElseIfRequest.Form("Submit")="下一页"Then absPageNum=absPageNum+1EndIfStrSQL="Select*FromCourse"SetrsTest=Server.CreateObject("ADODB.RecordSet")rsTest.CacheSize=RecordPerPage'设置这个属性选项会提高性能rsTest.OpenStrSQL,Conn,adOpenStatic,adLockReadOnly,adCmdText'设置RecordSet对象的每一页数据记录条数rsTest.PageSize=RecordPerPageIfrsTest.RecordCount=0Then Response.Redirect"selectedlisterror.asp" EndIfIfabsPageNum=0Then absPageNum=1EndIfIfNotrsTest.EOFThen rsTest.AbsolutePage=absPageNumEndIf%><Html><Head><Meta-equiv="Content-Type"content="text/html;charset=gb2312"><Title>浏览课程信息</Title></Head><Body><P> </P><Tablewidth="99%"align="center"border="0"><Tr><Tdheight="49"><Divalign="center"><Fontcolor="#009900"size="7"face="华文新魏">课程信息一览表</Font></Div></Td></Tr><Tr><Tdheight="100"><Tablewidth="100%"height="90"border="1"bordercolor="#0000FF"><Tr><Tdwidth="8%"height="38"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">课程号</Font> </Div> </Td><Tdwidth="27%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">课程名称</Font> </Div> </Td><Tdwidth="7%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">学分</Font> </Div> </Td><Tdwidth="9%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">最大选课人数</Font> </Div> </Td><Tdwidth="9%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">目前选课人数</Font> </Div> </Td><Tdwidth="8%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">教师号</Font> </Div> </Td><Tdwidth="41%"> <Divalign="center"> <Fontcolor="#CC6600"size="4"face="华文隶书">课程描述</Font> </Div> </Td></Tr><% Response.Write"<Trvalign=middle>" '将每条记录的各个字段输出 Response.Write"<Td>"&rsTest("Courseno").Value&"</Td>" Response.Write"<Td>"&rsTest("Name").Value&"</Td>" Response.Write"<Td>"&rsTest("Credit").Value&"</Td>" Response.Write"<Td>"&rsTest("Maximumnum").Value&"</Td>" Response.Write"<Td>"&rsTest("Currentnum").Value&"</Td>" Response.Write"<Td>"&rsTest("Teacherno").Value&"</Td>" Response.Write"<Td>"&rsTest("Description").Value&"</Td>" Response.Write"</Tr>" IfrsTest.EOFThen ExitFor'若到记录尾，退出－如当最后一页数据不满页时。 EndIfNextResponse.Write"</Table><Br>"'关闭数据库和数据表SetrsTest=NothingSetConn=Nothing%><FormAction="<%=Request.ServerVariables("SCRIPT_NAME")%>"Method="Post"> <InputType="Hidden"Name="PressPageNum"Value="<%=absPageNum%>"> <Center><% IfabsPageNum>1Then'若当前页不是第一页，则显示上一页链接 Response.Write"<InputType=SubmitName=SubmitValue=上一页>" EndIf IfabsPageNum<>TotalPagesThen'若当前页不是最后一页，则显示下一页链接 Response.Write"<InputType=SubmitName=SubmitValue=下一页>" EndIf %> </Center></Form><P><Center>[第<FontColor="#CC0033"><%=absPageNum%></Font>页,共<FontColor="#CC0033"><%=TotalPages%></Font>页]</Center></P></Body></Html>（4）选择检索条件源文件代码<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="adovbs.inc"--><!--#includefile=connection.asp--><%SetrstTeacher=Server.CreateObject("ADODB.RecordSet")rstTeacher.Open"Teacher",Conn,adOpenStatic,adLockReadOnlyDimName,Description,Credit,TeachernoIfRequest.ServerVariables("CONTENT_LENGTH")<>0Then Session("Name")=Ltrim(Rtrim(CStr(Request.Form("TxtName")))) Session("Description")=Ltrim(Rtrim(Request.Form("TxtDescription"))) Session("Credit")=Request.Form("selCredit") Session("Teacherno")=Request.Form("selTeacherno") Session("Checkbox")=Request.Form("Checkbox") Response.Redirect"searchshow.asp"EndIf%><html><head><meta-equiv="Content-Type"content="text/html;charset=gb2312"><title>检索课程信息</title></head><body><tablewidth="786"border="0"cellpadding="0"cellspacing="0"><tr><tdwidth="891"height="103"valign="top"><p> </p><palign="center"><fontcolor="#0000FF"size="7"face="华文新魏">搜索课程信息</font></p></td></tr><tr><tdheight="257"valign="top"><divalign="center"><p><fontcolor="#FF0000"size="6"face="华文行楷">输入检索条件</font></p><formaction="<%=Request.ServerVariables("SCRIPT_NAME")%>"method="post"name="frmSearchCourse"id="frmSearchCourse"><p><fontcolor="#0000FF"face="黑体">课程名称包含：</font><inputname="txtName"type="text"id="txtName"></p><p><fontcolor="#0000FF"face="黑体">课程描述包含：</font><inputname="txtDescription"type="text"id="txtDescription"></p><p><fontcolor="#0000FF"face="黑体">学分：</font><selectname="selCredit"id="selCredit"><optionvalue="0"selected>所有学分</option><optionvalue="1">一分</option><optionvalue="2">二分</option><optionvalue="3">三分</option><optionvalue="4">四分</option><optionvalue="5">五分</option></select><fontcolor="#0000FF"face="黑体">   授课教师：</font><selectname="selTeacherno"id="selTeacherno"><optionvalue="所有教师">所有教师</option><%While(NOTrstTeacher.EOF)%><optionvalue="<%=(rstTeacher.Fields.Item("Teacherno").Value)%>"><%=(rstTeacher.Fields.Item("Name").Value+rstTeacher.Fields.Item("Title").Value)%></option><%rstTeacher.MoveNext()WendIf(rstTeacher.CursorType>0)ThenElseEndIf%></select>    <inputtype="checkbox"name="checkbox"value="on"checked><fontcolor="#0000FF"face="黑体">只列出尚未选满的课程</font></p><p><inputtype="submit"name="Submit"value="开始查找">      <inputtype="reset"name="Submit2"value="清除重填"></p><p> </p></form><p> </p></div></td></tr><tr><tdheight="37"> </td></tr></table></body></html>（5）选择选课方式源文件代码<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><%IfSession("UserLevel")<>"Student"Then Response.Redirect"illegal.asp"EndIfIfRequest.ServerVariables("CONTENT_LENGTH")<>0Then RadioValue=Request.Form("RadioButton") SelectCaseRadioValue Case"radio1" Response.Redirect"Selectcourse1.asp" Case"radio2" Response.Redirect"Selectcourse2.asp" Case"radio3" Response.Redirect"Selectcourse3.asp" Case"radio4" Response.Redirect"Selectcourse4.asp" EndSelect EndIf%><html><head><meta-equiv="Content-Type"content="text/html;charset=gb2312"><title>无标题文档</title></head><body><divalign="left"><p> </p><p> </p><formname="form1"method="post"action="<%=Request.ServerVariables("SCRIPT_NAME")%>"><palign="center"> </p><divalign="left"></div><tablewidth="73%"border="0"><tr><tdheight="50"><divalign="center"><fontcolor="#0000FF"size="6"face="华文新魏">请选择选课方式</font><br></div></td></tr><tr><td><divalign="center"><fontcolor="#0000FF"size="4"face="黑体">按课程编号选择：<inputname="radiobutton"type="radio"value="radio1"checked></font></div></td></tr><tr><td><divalign="center"><fontcolor="#0000FF"size="4"face="黑体">按课程名称选择：<inputname="radiobutton"type="radio"value="radio2"></font></div></td></tr><tr><td><divalign="center"><fontcolor="#0000FF"size="4"face="黑体">按课程学分选择：<inputname="radiobutton"type="radio"value="radio3"></font></div></td></tr><tr><td><divalign="center"><fontcolor="#0000FF"size="4"face="黑体">按教师姓名选择：<inputtype="radio"name="radiobutton"value="radio4"></font></div></td></tr><tr><td><divalign="center"><inputtype="submit"name="Submit"value="确定"></div></td></tr></table><p> </p><p> </p></form><p> </p><p> </p></div></body></html>（五）、后台模块的设计与实现（管理员模块）1、后台各个主要页面概述为了方便学生入学之后的账号管理，学生可以自行在教务系统中修改账号密码。管理员可以通过查询课程编号来修改课程信息，包括课程名称，课程描述，任课教师2、后台主页面的布局↑选课系统用户密码修改页面↑选课系统修改课程信息页面3、后台主页面的实现修改课程信息页面源文件代码<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><!--#includefile="adovbs.inc"--><!--#includefile=connection.asp--><%'判断是否具有教务员权限IfSession("UserLevel")<>"Admin"Then Response.Redirect"illegal.asp"EndIfSetrstCourse=Server.CreateObject("ADODB.RecordSet")rstCourse.Open"Course",Conn,adOpenStatic,adLockReadOnly%><html><head><meta-equiv="

人人文库> 全部分类> 教育资料 > 辅导培训

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论