简易新闻发布系统网页设计

存档资料成绩：课程设计报告书课程名称网页制作案例教程题目简易新闻发布系统分院版权所有专业班级版权所有学号版权所有学生姓名指导教师版权所有2011年 6 月25日课程设计评阅意见评阅人__________职称________年月日目录第1章课程设计任务书 (1)一、课程设计题目 (1)二、课程设计工作： (1)三、课程设计的内容要求： (1)1、课程设计要求 (1)2、课程设计内容 (1)第2章课程设计目的 (2)第3章课程设计内容 (3)设计一设计功能需求 (3)设计二新闻系统业务流程图 (3)设计三新闻系统功能结构图 (3)设计四新闻系统模块设计 (4)设计五新闻数据库设计 (4)第4章课程设计步骤 (5)第5章课程设计心得 (5)第6章参考文献 (14)专业班级姓名一、课程设计题目简易新闻发布系统二、课程设计工作：自 2011年 6月 19日起至 2011 年 6月25日止三、课程设计的内容要求：1、课程设计要求（1）通过课程设计把课堂上讲的内容融会贯通，掌握表格在网页布局中的特点及应用，掌握如何通过表格来布局一个完整的界面。

学会使用Dreamweaver软件设计网页及Dreamweaver的表格功能进行网页布局。

使整个网页页面清新自然，整体界面美观大方，简洁高效，使之达到界面动与静的搭配合理，动而不乱，静而不僵和谐效果。

（2）1. 用DW进行设计页面；2. 数据库用Access 2003或者SQL Server 2000/2005/2008；3. 语言要求：ASP，JSP或等。

2、课程设计内容（1）设计一用户注册；（2）设计二用户登陆、修改个人资料等；（3）设计三用户发布新闻、修改、更新、删除等；（4）设计四用户评论新闻等；（5）设计五用户浏览新闻；学生签名：2011年 6 月 24 日通过本次课程设计是为了使我们了解和掌握开发一个实际项目的基本方法和步骤；提高了我们程序分析设计、动手能力、编程能力能力；培养了我们综合运用所学知识独立地分析问题和解决问题的能力。

把课堂上讲的内容融会贯通，掌握表格在网页布局中的特点及应用，掌握如何通过表格来布局一个完整的界面。

学会使用Dreamweaver软件设计网页及Dreamweaver的表格功能进行网页布局。

使用Dreamweaver设计页面、连接Access 2003数据库、利用JSP语言制作一个简易的新闻发布系统。

伴随着网络的出现，网页逐渐融入人们的生活。

快速及时的新闻浏览，五彩缤纷的网上信息，使网络与人们的生活息息相关，于是世界上又出现了第三媒体——Internet。

它打破了地域限制，真正使信息得以共享，改变了人们的工作和生活方式。

制作网页是企业和个人的宣传自己的重要手段，同时也是学习者获取学习信息的重要手段。

尤其是在新闻信息领域，各种新闻信息的发布分秒变换，人们对新闻信息的需求有了更新，更高的要求，而网页由于本身所具有的信息量大，传递快速，没有时空限制等特点恰好满足这种要求。

所以网页也逐渐成为一种新兴的信息发布资源。

也正是由于网络实现网站的数据信息能够进行实时交互，保证网站数据的实时性。

网络发展前景无限，及早与网络结合，与信息时代同步，与高科技汇合，定会给社会各行各业的发展注入新鲜的活力。

站在网络时代的前夜，我们清晰地听到了网络时代的宣言：谁掌握了网络，谁就掌握了未来。

本系统其功能灵活并易于使用，能够实现网站新闻的动态管理，使得对新闻的管理更加及时、高效。

设计一设计功能需求1、本新闻发布系统提供了不同类型新闻（如国际新闻、国内新闻和亚运新闻等）满足不同用户需求；2、系统将用户分为：普通用户，新闻管理员。

普通用户能在本系统中进行新闻浏览，阅读，新闻搜索。

每条新闻的标题被做成一个链接，用户点击它们就能跳转页面进行新闻阅读；3、新闻阅读页面,每条新闻的详细信息将被取出，包括内容、标题等；用户能根据自己的需要搜索新闻，如可以通过新闻标题或新闻内容对新闻进行搜索,这样可以快速地找到符合条件的新闻，并输出搜索结果；4、系统管理员可以进行新闻分类管理、添加新闻、修改新闻和删除新闻，同时系统管理员能完成用户管，如添加用户和更改账号、密码等。

设计二新闻系统业务流程图设计三新闻系统功能结构图设计四新闻系统模块设计该系统主要包括5个功能模块：（1）用户注册模块，该模块能吸收新成员，使游客拥有用户的权利。

（2）用户登陆等模块，该模块能够使用户修改自己的个人资料，以及账号密码的更改。

（3）用户新闻管理模块，该模块包括发布新闻、修改新闻、更新新闻、删除新闻等功能。

（4）用户评论新闻等模块，该模块能够使用户发表对新闻的看法和建议，更好的收集民意。

（5）用户浏览新闻模块，该模块是实现用户基本权利最有力的保障，够实现友情链接的添加与删除。

设计五新闻数据库设计1、tb_news（新闻信息表），新闻信息表主要用来保存新闻的基本信息。

2、tb_admin（管理员信息表），管理员信息表主要用来记录管理员的信息。

3、tb_link（友情链接表），友情连接表主要用来保存友情链接的相关信息。

第4章课程设计具体步骤一、用户首页设计实现代码登入界面图片如下:1、连接数据库的代码<%set conn = server.CreateObject("adodb.connection")conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("db\news.mdb")%>2、登录表的实现代码<form id="form1" name="form1" method="post" action="chkUser.asp"><label><br /><br /></label><table width="87%" height="95" border="0"><tr><td width="18%" height="27">用户名：</td><td width="25%"><input name="UserName" type="text" id="UserName" size="16" /></td> <td width="57%" rowspan="3"><img src="img/未标题-1.jpg" width="387" height="95"></td> </tr><tr><td height="37">密&nbsp; 码：</td><td><input name="Upwd" type="password" id="Upwd" size="16" /></td></tr><tr><td height="23"><input type="submit" name="button" id="button" value="登陆" /></td> <td><a href="3.html">注册</a></td></tr></table><label><br /></label></form>3、连接数据库显示数据库中新闻的代码<%set rs = Server.CreateObject("adodb.Recordset")strSql = "select top 5 * from news where Nclass='国内新闻' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>">-><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%></table></td><td><table width="100%" border="0" cellspacing="0"><%if rs.state then rs.closestrSql = "select top 5 * from news where Nclass='国外新闻' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>">-><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%></table></td><td><table width="100%" border="0" cellspacing="0"><%if rs.state then rs.closestrSql = "select top 5 * from news where Nclass='体育新闻' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>"> -><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%></table></td></tr><tr><td>娱乐新闻</td><td>IT新闻</td><td>生活常识</td></tr><tr><td><table width="100%" border="0" cellspacing="0"><%if rs.state then rs.closestrSql = "select top 5 * from news where Nclass='娱乐新闻' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>">-><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%></table></td><td><table width="100%" border="0" cellspacing="0"><%if rs.state then rs.closestrSql = "select top 5 * from news where Nclass='IT新闻' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>">-><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%></table></td><td><table width="100%" border="0" cellspacing="0"><%if rs.state then rs.closestrSql = "select top 5 * from news where Nclass='XXXXXXX' order by Ntime desc"rs.open strSql, conn, 1,1while not rs.eof%><tr><td><a href="viewNews.asp?Nid=<%=rs("Nid")%>">-><%=rs("Ntitle")%></a></td></tr><%rs.movenextwend%>二、用户注册代码注册界面图片如下:1、注册信息的要求：<script language="javascript">function chkF(){if(document.getElementById("Username").value==""){alert("用户名不能为空！");document.getElementById("Username").select();return false;}if(document.getElementById("Upwd").value==""){alert("密码不能为空！");document.getElementById("Upwd").select();return false;}if(document.getElementById("Upwd").value!=document.getElementById("conUpwd").value){ alert("密码不一致！");document.getElementById("conUpwd").select();return false;}}</script>2、用户注册表格中的代码<form id="form1" name="form1" method="post" action="reg.asp" onSubmit="return chkF();"><table width="300" border="0" align="center" cellpadding="0" cellspacing="5"><tr><td>&nbsp;</td><td align="center"><p>用户注册页面</p></td><td>&nbsp;</td></tr><tr><td align="right">用户名：</td><td><input type="text" name="Username" id="Username" /></td><td>&nbsp;</td></tr><tr><td align="right">密&nbsp;&nbsp;&nbsp;码：</td><td><input type="password" name="Upwd" id="Upwd" /></td><td>&nbsp;</td></tr><tr><td align="right">确认密码：</td><td><input type="password" name="conUpwd" id="conUpwd" /></td><td>&nbsp;</td></tr><tr><td align="right">邮&nbsp;&nbsp;&nbsp;箱：</td><td><input type="text" name="Uemail" id="Uemail" /></td><td>&nbsp;</td></tr><tr><td colspan="3" align="center"><input type="submit" name="button" id="button" value=" 注册 " /> &nbsp;<input type="reset" name="button2" id="button2" value=" 重填 " /></td></tr></table></form>三、新闻管理新闻管理界面图片如下1、修改中的代码<%action = request.Form("action")if action = "update" thenNtitle = request.Form("NewsTitle")NClass = request.Form("NewsClass")NContent = request.Form("NewsContent")Nid = request.Form("nId")strSql = "update News set Ntitle='"&Ntitle&"',NClass='"&NClass&"',NContent='"&NContent&"' where NId="&Nidconn.execute strSqlresponse.Write("<script>alert('新闻修改成功！');</script>")end ifnewsId = request("nid")set rs = Server.CreateObject("adodb.recordset")strSql = "select * from News where Nid="& newsIdrs.open strSql, conn%><form id="form1" name="form1" method="post" action="ModifyNews.asp"><table width="600" border="1" align="center"><tr><td colspan="3" align="center"><font size="+3">修改新闻</font></td></tr><tr><td align="right">新闻标题：</td><td><input name="NewsTitle" type="text" id="NewsTitle" size="60" value="<%=rs("Ntitle")%>" /></td><td>&nbsp;</td></tr><tr><td align="right">新闻类别：</td><td><select name="NewsClass" id="NewsClass"><option <%if rs("Nclass")="国内新闻" then response.Write("selected=selected")%>>国内新闻</option><option <%if rs("Nclass")="国外新闻" then response.Write("selected=selected")%>>国外新闻</option><option <%if rs("Nclass")="体育新闻" then response.Write("selected=selected")%>>体育新闻</option><option <%if rs("Nclass")="娱乐新闻" then response.Write("selected=selected")%>>娱乐新闻</option><option <%if rs("Nclass")="IT新闻" then response.Write("selected=selected")%>>IT新闻</option></select></td><td>&nbsp;</td></tr><tr><td align="right">新闻内容：</td><td><textarea name="NewsContent" id="NewsContent" cols="60" rows="15"><%=rs("nContent")%></textarea></td><td>&nbsp;</td></tr><tr><td align="right">&nbsp;</td><td><input type="submit" name="button" id="button" value=" 修改 " /><input type="reset" name="button2" id="button2" value=" 恢复 " /><input type="hidden" name="nid" id="nid" value="<%=newsId%>" /><input name="Action" type="hidden" id="Action" value="update" /></td><td>&nbsp;</td></tr></table></form>删除中的代码<%if Session("loginName") <> "" thenNewsNum = request.QueryString("nid")if NewsNum <> "" thenstrSql = "delete * from News where Nid="&NewsNumconn.execute strSqlend ifelseresponse.Write("<script>alert('非法登录或登录超时！\n\n请重新登录！');window.location.href='index.asp';</script>")end ifset rs = server.CreateObject("adodb.recordset")strSql = "select * from News order by Ntime desc"rs.open strSql,conn, 1,1%><a href="listNews.asp?nid=<%=rs("Nid")%>" onClick="if(!confirm('你确定要删除吗？')) return false;">删除</a>新闻修改代码新闻修改界面图片如下:第5章课程设计心得通过这次个人简易新闻发布系统网页的课程设计，我对课堂上讲的内容已经融会贯通，良好的掌握了表格在网页布局中的特点及应用，并通过表格来布局一个完整的界面。