电影院网站的课程设计报告.docx
学号I200710178144|西浅耕技大号械市号旎课程设计报告课程设计名称WEB技术（ASP）课程设计题目B/S模式的电影院网站的设计与实现院系信息工程学部专业电子商务（本）班级一班姓名李玲李庆指导教师2010年6月28日编号：044设计题目:B/S模式的电影院网站的设计与实现1 .课程设计教学条件要求DreamWeaVenASP+ACCESS2 .课程设计任务1、设计内容设计一个网站使得顾客可以通过网络的方式实现对电影信息的查询，既免去了人们去普通电影院观看电影所消耗的金钱和精力，也使得观看电影成为一种更加简单的方式。用ACCeSS创立后台数据库，然后利用ASP技术编写程序实现对数据库的操作，按照要求完成所有的功能和模块。一般用户的主要功能模块包括：(1)用户注册与登陆(2)电影信息查询影片点评系统管理员的主要功能模块包括：(1)用户信息管理和维护(2)影片信息管理(3)影评信息管理2、主要数据库表单(1)用户表主要字段有：用户编号、用户名、密码、真实姓名、性别、地址、电子邮件(2)电影信息表主要字段有：新闻编号、新闻标题、电子邮件、发布人、发布日期、描述、文章、图片(3)影评信息表主要字段有：编号、姓名、性别、联系、电子邮件、文章标题、描述、文章、发表时间3 .课程设计报告书主要内容1、系统功能模块设计：2、数据库设计：系统主要的数据库表单的结构定义。3、各功能模块的程序设计及运行测试结果。4、小结：收获、体会与建议5、参考文献：按正确格式列出3篇以上的参考文献4.课程设计参考资料1石志国.ASP程序设计.北京：清华大学出版社.20062吴鹏.ASP程序设计教程与实训.北京：北京大学出版社.20063王黎.动态网站开发典型案例.北京：清华大学出版社.2010目录1需求分析11. 1系统概述12. 2具体分析13. 3用户需求12系统概要设计24. 1系统结构图25. 2数据字段说明33详细设计56. 1界面设计54系统实现125课程设计体会16参考文献171 需求分析1.1 系统概述立足于实际，着眼于未来开展，建成符合标准化协议、通用性较强、实用的系统，以提高影视现代化管理水平，使得顾客可以通过网络的方式实现对电影信息的查询，既免去了人们去普通电影院观看电影所消耗的金钱和精力，也使得观看电影成为一种更加简单的方式。同时可利用在线论坛，发表自己的感言，与网友交流，实现信息资源的共享。本系统的宗旨是提电影院网站的影视信息管理工作的效率，减少相关人员的工作量，使影视信息管理工作真正做到科学、合理的规划，系统、高效的实施。此系统的主要功能：(1)登录注册系统：用户登录、管理员登录、用户注册。(2)用户系统：查询影视信息、发表个人感言。(3)管理员系统：用户信息管理与维护、影片信息管理、影评信息管理。1. 2具体分析(1)用户系统：用户可以直接查询影视信息(追影网站简介、影视资讯、动感论坛)、发表个人感言。(2)管理员：该系统为后台管理员使用，可以实现对用户信息管理与维护(删除)、影片信息管理(添加、修改、删除、)、影评信息管理(删除)。1. 3用户需求普通用户：可以浏览首页、追影网站简介、影视资讯、动感论坛，通过此系统，用户可以查询最新影视资讯，了解论坛上用户的个人心得。但发表个人感言，与网友交流互动那么需要用户登陆和注册才可以操作。2系统概要设计2. 1系统结构图图2.1用户功能结构图图2.2管理员功能结构图此图主要是对系统结构的简单描述，此系统包括两类用户：用户和管理员,用户的功能是登陆注册和查询电影信息以及发表评论；管理员的功能是登陆以及管理个人用户信息、影视资讯信息、影评信息。2. 2数据字段说明表2-1user_info表字段名属性是否主键备注user_id自动编号是用户编号user_name文本否用户名password文本否密码realname文本否真实姓名gender文本否性别tel文本否address文本否地址e_mail文本否电子邮件这是一张存储用户信息的表表2-2news表字段名属性是否主键备注id自动编号是新闻编号headline文本否新闻标题email文本否电子邮件poster文本否发布人addate日期/时间否发布日期description备注否描述artikel备注否文章picture文本否图片Picture1文本否图片这是一张存储新闻信息的表表2-3criticl表字段名属性是否主键备注user_id自动编号是编号user_name文本否姓名gender文本否性别tel文本否联系email文本否电子邮件user_title文本否文章标题description备注否描述artikel备注否文章time日期/时间否发表时间这是一张存储评论信息的表表2-4admin表字段名属性是否主键备注id自动编号是编号admin文本否管理员名password文本否管理员密码这是一张存储管理员信息的表表2-5head表字段名属性是否主键备注id数字否编号title文本否网站描述auther文本否作者description备注否内容time日期/时间否发布时间这是一张存储管理员信息的表3详细设计3. 1界面设计图3.1首页导航图首页主要是实现的功能有：用户管理和管理员可以根据用户名和密码进行登录，普通用户可以点击“登陆”进入登陆页面，新用户可以点击“注册”进入用户注册页面，管理员用户可以点击“管理员通道”导航，进入系统后台管理。图3.2用户登陆界面用户登陆主要是实现的功能有：用户通过身份验证，那么在首页会显示“欢送您*”，如图3.3图3.3用户登陆后的首页局部图图3.4新用户注册界面新用户注册主要是实现的功能有：新用户可以通过填写注册表单，经过判断，正确后即成为该网站的用户，可进行用户登陆等网站用户的操作效劳。1小-2OO4-2OO1香瘦电影追影电影院网站的系统后台管理用户名：Iadain密码：II|蹒定II取消I图3.5管理员登陆界面管理员登陆主要是实现的功能有：管理员通过身份验证进入网站的系统后台管理页面。图3.6后台管理界面首页主要是实现的功能有：管理员对用户信息管理与维护、影片信息管理、影评信息管理。图3.6-1后台管理界面详图后台管理界面导航主要是实现的功能有：为管理员后台操作提供导航效劳图3.7添加最新资讯页面主要是实现的功能有：供管理员添加新闻到数据库，并且可在网站页面可见，为用户发布可见的新闻资讯。图3.8影片信息管理主要是实现的功能有：罗列出数据库中news表的所有内容。图3.8-1影片信息管理（修改新闻）影片信息管理中的修改新闻页面，用于将管理员所选中的新闻从表中读出,显示与页面，其修改后弹出“新闻修改成功”对话框。图3.8-2影片信息管理（删除新闻）影片信息管理中的删除新闻页面，用于将管理员所选中的新闻从news表中删除，其修改后弹出“删除成功”对话框。图3.8影评信息管理主要是实现的功能有：罗列出数据库中Criticl表的所有内容图3.8-1影评信息管理影评信息管理中的删除新闻页面，用于将管理员所选中的影评从CritiCl表中删除，其修改后弹出“删除成功”对话框。图3.9用户信息管理与维护主要是实现的功能有：罗列出数据库中news表的所有内容。4系统实现用户登录<%ifrequest("logout")o'M"then'判断SeSSiOn值是否为空，即是否登录过SeSSiOn("admin")=""session("password")=""response.redirect"login.asp"endif%><fbrmaction=,ck.asp"method=,post"name="fbrml"><divalign=',center',><imgsrc="imglogel.png'7><p><p><p>录页面<p><p>用户名：<inputname="user_name"type=',text,><p><p>密码：<inputname="psw"type="password"><p><P><inputtype="submitHname="Submit"value="提交”><inputtype=',reset"name="Submit211value="fiM"><p><p>还没有登录请<ahref="register.htm">注册<a>vp><div><form>用户登录判断<%'判断session值是否为空，即是否登录过ifrequestClogoufo'1"thenSeSSion("useJnamesession("password")='u,response.redirect"login.asp"endif%><%dimu,p,conn,rsu=request.Form("user-name,)m=request.Form(',psw,')setconn=server.createobject(',adodb.connection")'建立一个连接对象conn.Open(',driver=MicrosoftAccessDriver(*.mdb);dbq=M&_Server.MapPath("Users.mdb")setrs=conn.Execute(,select*fromuser_infbwhereuser_name=andpassword='"&m&)ifrs.eofANDrs.bofthenresponse.write',<SCRIPTIangUage=JaVaSCriPt>alert('用户名或密码不正确！response,write11javascripchistory.go(-1)<SCR1PT>"elsesession("user_name")=uresponse.Redirect("index.asp")endifconn.close()%>新用户注册<fbrmaction=11r.asp"method=',post"name='*form,><tablewidth="35011border=',0"align="center,'cellpadding="O'rcellspacing=,O,'><tr><imgsrc="imglogel.png'7><tdwidth="72"><td><tdalign="center"><p><p><spanClaSs="STY1.E2">用户注册<span><td><tr><tr><tdWidth="72">用户名：<td><tdwidth="232"><inputname="user-name,'type=,text,'size=1,25"><spanclass=,STY1.E'>*<span><td><tr><tr><td>密码：<td><td><inputname="pwd"type="text"size="25”/><spanclass="STY1.El,>*<span><td><tr><tr><td>确认密码：<td><td><inputname="repwd"type="password"size=,27"/><spanclass="STY1.El'>>*<span><td><tr><tr><tdcolspan=,2,>以下为您的私人资料<td><tr><tr><td>真实姓名：<td><td><inputname="rename,'type=,text"size=',25"/><spanclass="STY1.El'>>*<span><td><tr><tr><td>性另J:<td><td><spanclass="STY1.E'><selectname="gender"><optionvalue="">-<option><optionVaIUe="男">男<oPtion><optionvalue=",><option><select>*<span><td><tr><tr><td>联系：<td><td><inputname="tel"type=,text"size=',25"/><td><tr><tr><td>t:<td><td><inputname="address"type=',text"size=',25"><td><tr><tr><td>E-maik<td><td><inputname="e_mail"type="text"size=',25,'><spanclass="STY1.El',>*<span><td><tr><tr><tdcolspan="2"> </td><tr><tr><tdcolspan=,'2"><divalign=,center"><inputtype="submit"name="Submit"value="注册"> <inputtype="reset"name=,reset11value=,fiW."><div><td><tr><table><form>新用户注册判断<%dimu,m,ml,l,k,j,i,v,conn,rs'将上表单中的值传过来赋给变量u=request.Form("user_namen)m=request.Form(,pwd")m1=request.Form(',repwd")l=request.Form(,rename11)k=request.Form(,gender,')j=request.Form("te,)i=request.Form("address")v=request.Form("e-mai,)setconn=SerVer.createobject("adodb.connection")'建立一个连接对象conn.Open(,driver=MicrosoftAccessDriver(*.mdb);dbq="&_Server.MapPath("Users.mdb")ifU=1*11then'判断输入信息是否合理response.write"<SCRIPTIangUage=JaVaSCriPt>alert('用户名不能为空！response.write"javascripChistory.go(-l)<SCRIPT>"response.endendififm=H"thenresponse.write,<SCRIPTIangUage=JaVaSCriPt>alert('密码不能为空!response.write,javascripChistory.go(-1)<SCRIPT>"response.endendififml=,thenresponse.write"<SCRIPTIangUage=JaVaSCriPt>alert('再次输入密码不能为空！response.wrile"javascripthislory.go(-1)<SCRIPT>"response.endendififm<>mlthenresponse.write,<SCRIPTIangUage=JaVaSCriPt>alert('密码不一致！response.write,javascripChistory.go(-l)<SCRIPT>"response.endendififl=,"thenresponse.write',<SCR1PTIangUage=JaVaSCriPt>alert('真实姓名不能为空!');*response,write"javascript:history.go(-1)<SCRIPT>"response.endendififk=,thenresponse.write"<SCRIPTIangUage=JaVaSCriPt>alert(性别选项不能为空!)；"response,write"javascript:history.go(-1)<SCRIPT>"response.endendififv='u,thenresponse.write"<SCRIPTIangUage=JaVaSCriPt>alert('E-mail地址不能为空！response,w11te,javascriptzhistory.go(-1)<SCRIPT>"response.endendifsetrs=conn.Execute("select*fromuser_infbwhereuser_name="'&u&""')ifrs.eofANDrs.bofthensetrs=conn.Execute("insertintouser_infb(user_name,password,realname,gender,tel,address,e_mail)valuesresponse.Redirect"login.asp?MeSSage=注册成功！”session("username")=uelseresponse.write"<SCRIPTIangUage=JaVaSCriPt>alert('用户名已存在，请重新输入！response.write"javascript:history.go(-l)</SCRIPT>"conn.closeconn=nullendif%>新闻信息显示页面<tablewidth="100%"border="。"align="center"cellpadding="O"celkpacing="O"><tr><td> </td><tr><table>cablewidth="95%"border="0"align="center,'cellpadding="O"cellspacing="'bgcolor="#000000"><tr><tdheight="25"align="center"bgcolor="#CCCCCC">ID</td><tdalign=kenter"bgcolor="#CCCCCe”>新闻标题<d><tdwidth="10%,talign="center,bgcolor="#CCCCCC”>发布者<td><tdwidth="10%malign="center"bgcolor="#CCeCCC”>发布日期<td><tdwidth=,20%,'align=,center,bgcolor="#CCCCCC'>文章描述<td><tdwidth="10%11align="Center”bgcolor="#CCCCCC">操作<td><tr><%age=clng(request("page")dimconn,rssetConn=Serverxreateobject("adodb.connection")建立一个连接对象conn.open(,driver=(microsoftaccessdriver(*.mdb)dbq="&_server.mappath(,'.datanews.mdb")Setrs=Server.CreateObject("ADODB.RecordSet'()sql="select*fromnewsorderbyiddesc"rs.0pensql,conn,l,lrs.PageSize=3'分页显不第一次显示没有页码，默认显示第一页IfRequest(,'page")<>',11TheniPage=Cint(Request("page")IfiPage<1TheniPage=1'页码小于1,那么显示第一页'当大于总页数的时候，显示最后一页IfiPage>rs.PageCountTheniPage=rs.PageCountElseiPage=1EndIfReSpOnSe.Write("当前第"&iPage&"页,共"&rs.PageCount&"页")rs.AbsolutePage=iPageforj=ltors.PageSize%><trbgcolor="#FFFFFF”>'将数据库中的信息显示于页面<tdheight=,22"align=,'center"><%=rs(,id,)%><td><td><ahref=".zixun.asp7id=<%=rs("id")%>11target=,-blank,headline=1'<%=rs(',headline")%>"><%=left(rs("headline"),12)%><a><td><tdalign="center"><%=left(rs("poster"),3)%><td><tdalign="center"><%=rs("addate")%><td><tdalign="center"><%=rs("description',)%><td><tdalign="center"><ahref="adminjnfomodi.asp7id=<%=rs(',id")%>">1<a><ahref="admin_infodel.asp?id=<%=rs("id")%>">册IJ除<a><td><tr><%rs.movenextifrs.eofthenexitfornext%><table>Cablewidth="95%,'border="0"align="center,'cellpadding="O"cellspacing="O,'><tr><td> </td><tr><trbgcolor="#FFFFFF”><fbrmmethod=Postaction="adminjnf.asp,'><tdheight=,30"align=',center"><%IfiPageolThen%>'优化分页<AHREF="admin_info.asp?Page=I">第一页<A><AHREF="admin_info.asp?page=<%=iPage-1%>”>上一页<A><%EndIf'当前是最后一页的时候，不显示最后页IFiPage<>rs.PageCountThen%><AHREF="admin_info.asp?page=<%=iPage+l%>">下一页<A><AHREF="admin_info.asp?Page=<%=rs.pageCount%>”>最后页<A><%EndIfconn.close()%><td><form><tr><table>删除新闻信息<%dimCOnn,rssetconn=SerVer.createobject("adodb.cormection")'建立一个连接对象conn.Open(',driver=MicrosoftAccessDriver(*.mdb);dbq="&_Server.MapPath(,.datanews.mdb")Setrs=Sen/er.CreateObject("ADODB.RecordSet")rs.0pen"delete*fromnewswhereid="&request.QueryString("id"),conn,1,1setrs=nothingresponse.write"<scriptlanguage=javascript'>"&chr(13)response.write"alert(删除成功！&Chr(13)response.write,window.document.location.href='admin_infb.asp'"&Chr(13)response.write',<script>"&Chr(l3)Response.End%>修改新闻信息<tablewidth="90%"border="0,'align="center,'cellpadding="O,'cellspacing=",2"><formname="addnews"method="post"action="admin_infomodi_ok.asp?no=modi"onSubmit="returnCheckForm();"><tralign="center"bgcolor="#FFFFEE"><tdheight=',30"colspan=",2"><fontCOlor="#OOOOFF"size="+1"><strong>修改新闻<strong><fnt><td><tr><tr><tdwidth=,l5%"height="24"bgcolor=',FFFFEE"><fontcolor="#FFOOOO">*</font>新闻标题：<ld><tdWidth="80%"VaIign="top"bgcolor="#FFFFEE"><inputname="headline"type="text"class="input"value="<%=rs("headline")%>"size="30"><td><tr><tr><tdwidth=*'l5%"height="24,'bgcolor="#FFFFEE"><fontcolor="#FFOOOO">*</font>简单描述：<td><tdWidth="80%"Valign="top"bgcolor="#FFFFEE"><inputname=',des,'type=,text"class=',inut,value="<%=rs(,'description,)%>"size="30"><td><tr><tr><tdvalign=',top"bgcolor="#FFFFEE"xfontCoIOr="#FFOOoo”>*<font>新闻内容：<td><tdValign="top"bgcolor="#FFFFEE"><textareaname=',content"rows=',20"cols="50"id="<%=id%>>,><%=rs("artike')%><textarea><td><tr><tr><tdheight=,24"bgcolor="#FFFFEE"xfbntCc)IOr="#FFOo(Xr>*<font>发布人：<td><tdvalign=,top"bgcolor="#FFFFEE"xinputname="editer"type=',text"class="input11size="30"value=,'<%=rs(,poster',)%>,><td><tr><tr><tdwidth="15%"height="24"bgcolor=,FFFFEE"><fontcolor="#FF0000">*<fontCoIOr="#000000”>发布人<font><font>E-MAI1.：<td><tdwidth=,80%"valign="top,'bgcolor="#FFFFEE''><inputname=',email"type="text"class=',input,'value="<%=rs("email")%>"size="30"><td><tr><tr><tdwidth="15%"height="24,'bgcolor=,FFFFEE"><fontcolor="FFOOOO,>*<font>发布时间：<td><tdwidth="80%"valign="top",bgcolor="#FFFFEE"><inputname="addtime"type=,text"class="input11value=<'<%=rs(',addate")%>"size="30"><td><tr><tr><tdbgcolor="#FFFFEE"><td><tr><tralign="center,><tdheight=,35"colspan="2'bgcolor="#FFFFEE”><inputlype="submit"name="Submit"value="提交"class="input"><inputtype=,'hidden'fname=,idvalue-'<%=id%>"><inputtype="reset"name="Submit2"value="重置"class="input"><td><tr><frm><table><%rs.closesetrs=nothingendif%>修改新闻信息判断<%ifsession("admin")=""then'判断管理员是否登录response.redirect"admin_login.asp"response.endendif%><%ifreque,st("no,1)=',modi"then'将表单数据传值给变量id=request(',id")headline=request("headline,r)des=request("des")content=request("content")editer=request("editerH)em=request("email")addtime=request("addtime")dimconn,rssetConn=Serverxreateobject("adodb.connection")i建立数据库连接对象conn.open(,driver=microsoftaccessdriver(*.mdb);dbq="&_server.mappath(,'.datanews.mdb")setrs=server.createobject("adodb.recordset")sql=,'select*fromnewswhereid="&idrs.opensql,conn,1,3rs("headline")=headline'将新的数据信息传入表中rs("description")=desrs("artikel")=contentrs("poster")=editerrs("email")=emrs("addate")=addtimers.updaters.closesetrs=nothingresponse.write,<scriptlanguage='javascript,>,'&chr(13)response.write"alertC新闻修改成功!');*&Chr(13)response.write"window.document.location.href='adtnin-info.asp,f,(fcChr(l3)response.write,<script>"&Chr(13)Response.Endendif%>将后台新闻调用于前台<%dimconn,rs,tsetconn=server.createobject("adodb.connectionM),建立一个连接对象conn.Open("driver=MicrosoftAccessDriver(*.mdb);dbq="&_Server.MapPath(,'datanews.mdb")Setrs=Server.CreateObject("ADODB.RecordSet")sql="SE1.ECT*fromnewsorderbyid"rs.0pensql,connjJifnotRs.eofthen'循环输出dowhilenotrs.eoft=t+l%><tdalign="center"width="400"bgcolor="#flflf,background=',imgbg3.png">,将数据库中的数据传入 <%=rs(Hidn)%> <ahref="zixun-l.asp7id=<%=rs(,id',)%>"><%=rs(,headline")%><a><td>'超链接到具体新闻页面<tdvalign="top"width="400,'bgcolor="#flflf,background="imgbg3.png">Anbsp<%=rs(',description,)%><td><tdalign="center"width=,350"bgcolor="#flflfl"background="imgbg3.png"> <%=rs("poster,)%><fenbsp;更新时间：<%=rs(,'addate")%><td><tr><%ift>=IOthenexitdors.movenextloopelseresponse.write,<tr><tdalign=centercolspan=2bgcolor=#E8E8F4>尚无收录<td><tr>"endifrs.close%>5课程设计体会在
