毕业设计（论文）新闻发布系统的设计与实现.doc
学 号： 03306246 毕业设计（论文）说明书题目新闻发布系统的设计与实现学生姓名专业名称计算机应用与维护指导教师二00六年 六 月 十 日学 号： 03306246 河源职业技术学院毕业设计（论文）新闻发布系统的设计与实现王晓斌指导教师： 王 玉 信息技术系 专业名称： 计算机应用与维护 论文提交日期： 2006.5.26 论文答辩日期： 2005.6.20 论文评阅人： 摘 要 新闻发布系统是基于AccessAsp的网站管理系统，主要利用Macromedia 公司出品的网页制作三剑客开发完成，为公司的新闻发布，新闻更新带来方便，公司管理人员可以方便的进行信息发布、信息更新，删除，更改，内容丰富，功能强大，可以对其完善和扩充，为公司网站进一步发展打下了基础。 我们从公司的实际情况出发，经过对学校有关新闻发布事项的一番考察和分析，在公司对新闻需求的分析基础上，确立了新闻发布系统的具体实现功能。并阐述系统的结构设计和功能设计，经过授权的用户可以通过Web浏览器，以人机交互式的客户端程序实现对公司新闻的发布、管理。【关键词】ASP ACCSE 前台显示 新闻文章录入 后台管理 目 录第一章 绪 论 1第二章ASP的认识 2 第三章 网站的开发环境与需求 33.1 开发的目的 33.2 开发背景 33.3 系统开发环境 3 3.1.1 开发工具 3 3.1.2 运行需求 3 第四章 结构设计 4 4.1数据库的创建 4 4.2系统数据库 4 4.3字段名 名称 类型5第五章 功能设计 6 5.1 前台新闻显示 6 5.2后台管理 65.2.1登录验证,后台管理的第一步是管理员的登录 65.2.2新闻文章添加：添加新闻文章,界面 65.2.3新闻的增加,修改,删除 65.2.4管理员的管理,可以修改用户名,密码,增加和删除 7第六章 功能说明 8 6.1前台新闻显示,实现新闻动态显示的代码 96.2后台管理登录需要验证代码,否则返回登陆页面 9 6.3实现删除和修改的代码96.4后台实现新闻增加页面代码: 10 6.4.1实现数据库连接的包含文件代码:106.4.2 实现这个新闻增加的代码: 10 6.4.3后台管理员管理的代码: 13第七章 总结 19第八章 参考文献 致谢20第1章 绪论随着计算机网络技术的发展，网络技术对我们生活和工作显得月来越重要，特别是现在信息高度发达的今天，伴随着网络的出现，网页逐渐融入人们的生活。快速及时的新闻浏览，五彩缤纷的网上信息，使网络与人们的生活息息相关，于是世界上又出现了第三媒体Internet。它打破了地域限制，真正使信息得以共享，改变了人们的工作和生活方式。制作网页是企业和个人的宣传自己的重要手段，同时也是学习者获取学习信息的重要手段。尤其是在教育领域，在素质教育与终身教育成为必然的今天，人们对信息的需求有了更新，更高的要求，而网页由于本身所具有的信息量大，传递快速，没有时空限制等特点恰好满足这种要求。所以网页也逐渐成为一种新兴的教育资源。也正是由于网络实现网站的数据信息能够进行实时交互，保证网站数据的实时性。随着Internet的进一步发展,静态Web站点的开发与维护变得越来越困难,一方面信息的不断增加和变化,使站点维护人员不得不经常修改他们的网页,特别是基于数据库驱动的Web站点更是如此，随着Internet上信息量的增多和交互性的加强使HTML显得越来越难以胜任。另一方面静态网页由于不能与浏览者进行有效交互,使人们感到越来越乏味,而不愿意再一次地进入同一站点。所以开发动态网页或动态内容成了越来越多的站点所追求目标。所谓动态内容是由每一个用户按照自己的需求发出请求而特殊制作的Web网页。网络发展前景无限，及早与网络结合，与信息时代同步，与高科技汇合，定会给社会各行各业的发展注入新鲜的活力。所以开发动态网页或动态内容成了越来越多的站点和公司所追求目标，某些公司每天都有很多的信息和新闻发布到网上去，所以需要一个新闻发布系统，这个网站的设计正是根据公司的需要，为了节省人力物力而设计的。信息高度发达的今天，人们对最新信息的需求和发布迫切的需要及时性。而一些公司企业越来越迫切的需要这种条件，而动态交互式网页刚好提供了这些功能，本系统就是一个能够在网上实现公司新闻发布的网站。第2章 ASP的认识 ASP（Active Server Pages）微软公司提供的一种基于IIS（Internet Infomation Server）的WEB应用程序解决方案，它同IIS高度集成，既易于编写，执行效率也较高。Asp是一种服务器端的脚本编写环境，用户不需要了解过多的语言知识，只需学习相对较简单的脚本就可以完成对服务器端的多种操作，这使得它成为网络上流行的动态网页设计技术。 ASP 全称为 Active Server Pages（动态服务器主页），它是一种应用程序环境，可以利用 VBscript 或 Java Script 语言来设计，主要用于网络数据库的查询与管理。其工作原理是当浏览者发出浏览请求的时候，服务器会自动将 ASP 的程序码，解释为标准 HTML 格式的网页内容，再送到浏览者浏览器上显示出来。我们也可以将 ASP 理解为一种特殊的 CGI。 利用 ASP 生成的网页，与HTML相比具有更大的灵活性。只要结构合理，一个 ASP 页面就可以取代成千上万个网页。尽管 ASP 在工作效率方面较之一些新技术要差，但胜在简单、直观、易学，是涉足网络编程的一条捷径。它具备一个服务器端的脚本执行环境，用它可产生和执行动态的、交互的、高性能的Web服务器应用程序。 Active Server的另一大优点是代码的安全性。页面的访问者所能看到的只是服务器方的处理结果。ASP文件可以用常规的文本编辑器编辑， ASP使用VBScript、javascript等脚本语言作为开发工具，镶嵌于HTML文本中，使用"<%>"将ASP的程序包含起来。当用户从浏览器向Web服务器提出请求时，Web服务器会自动将ASP的程序解释为标准的HTML格式的主页内容，用户端只要使用常规可执行HTML程序的浏览器，就可浏览ASP所设计的主页内容，因此与浏览器无关，并且保证了ASP的源程序代码不会外漏。 ASP中包括五个内置的ActiveX服务器组件和五个内置的对象：Database Access component（数据库访问组件）、File Access component（文件访问组件）、Ad Rotator component（广告轮播器组件）、Content Linking component（内容链接组件）、Browser Capabilities component（浏览器信组件）以及Request（请求对象）、Server（服务器对象）、Session（会话对象）、Response（响应对象）、Application（应用程序对象）。在所有ASP组件中，最有用的是数据库访问组件，也称为ActiveX数据对象或ADO。在站点发布数据库将使用这个组件及其中包含的对象，以完成对ODBC数据源的读写。 ASP的源程序码在服务器端执行，代码保密性好。集成与HTML中，无需编译链接可直接执行，而且使用文本编辑器即可设计。第3章 开发环境及需求3.1开发的目的随着计算机网络技术技术的发展，网络技术对我们生活和工作显得月来越重要，特别是现在信息高度发达的今天，人们对最新信息的需求和发布迫切的需要及时性。而动态交互式网页刚好提供了这些功能，本系统就是一个能够在网上实现新闻的网上多用户发布，多栏目管理，不定时的进行更新，发布的系统。3.2开发背景 HTML作为一种样式语言，随着Internet上信息量的增多和交互性的加强使HTML显得越来越难以胜任的情况之下，特别是在那些不断更新的网站，大型网站，而这些都是ASP能够做到的，所以应运而生开发了这个系统。3.3系统开发环境 3.3.1开发工具 基于Web的系统开发工具应使开发者使用各种各样的技术来创建动态的Web应用程序，并且应是一个可视化的工具。我们采用了DreamweaverMX进行开发，它是用来快速创建数据驱动Web应用程序的基于团队的开发环境，支持ASP，以ODBC连接数据库，脚本语言为简单易学的javascript或VBScript。具体从以下可以看出： 3.3.2运行需求 正常使用时不应出错，若运行时遇到不可恢复的系统错误，也必须保证数据完好无损，对数据的精确度、时间特性、适应性等都有一定要求，要求系统运行时能够保证正确性、可靠性、高效性、完整性、易使用性、可维护性、可测试性、复用性、安全保密性、可移植性、互联性第4章 结构设计4.1 数据库的搭建 数据只有用数据库来管理才能有自动化管理的可能。数据的结构将影响整个管理机制的应用，而且一但建立以后要修改常会出现麻烦。所以一开始就要仔细慎重地搭建一个完整而合理的结构。Microsoft Access数据库相对其它的数据库来说要简单容易操作些，本新闻发布系统中的数据库文件就是Access类型的数据库6个表: 42 系统数据库 <%Set Conn = Server.CreateObject("ADODB.Connection")conn = "DBQ=" + server.mappath("xiao.mdb") + "DefaultDir=;DRIVER=Microsoft Access Driver (*.mdb);"'-安全转换-function HTMLEncode(fString)fString=replace(fString,"",";")fString=replace(fString,"<","<")fString=replace(fString,">",">")fString=replace(fString,"","\")fString=replace(fString,"-","--")fString=replace(fString,"'","'")fString=replace(fString,CHR(34),""")fString=replace(fString,vbCrlf,"<br>")HTMLEncode=fStringend function'-定义-title_name="晓斌新闻发布"%>43 首页的数据库连接: <%' FileName="Connection_odbc_conn_dsn.htm"' Type="ADO" ' DesigntimeType="ADO"' HTTP="false"' Catalog=""' Schema=""Dim MM_coon_STRINGMM_coon_STRING = "Driver=Microsoft Access Driver (*.mdb); DBQ="& server.mappath("xiao.mdb")%>第5章 功能设计5.1 前台新闻显示 可以根据网站的需要,进行各种方式的插入、删除、修改、增加,从而利于公司的更新,新闻发布。5.2后台管理 5.2.1. 登录验证,后台管理的第一步是管理员的登录,如下图所示: 5.2.2新闻文章添加：添加新闻文章,界面如下: 5.2.3新闻的增加,修改,删除页面: 5.2.4管理员的管理,可以修改用户名,密码,增加和删除,效果如图: 第6章 功能说明6.1前台新闻显示,实现新闻动态显示的代码如下:<%Dim rs1Dim rs1_numRowsSet rs1 = Server.CreateObject("ADODB.Recordset")rs1.ActiveConnection = MM_coon_STRINGrs1.Source = "SELECT * FROM title ORDER BY time DESC"rs1.CursorType = 0rs1.CursorLocation = 2rs1.LockType = 1rs1.Open()rs1_numRows = 0%><%Dim Repeat1_numRowsDim Repeat1_indexRepeat1_numRows = 7Repeat1_index = 0rs1_numRows = rs1_numRows + Repeat1_numRows%><%rs1.Close()Set rs1 = Nothing%>6.2后台管理登录需要验证代码,否则返回登陆页面,代码如下:<%set login=server.createobject("adodb.recordset")login.open "select * from admin where username='"&HTMLEncode(Request.Cookies("username")&"' and userpass='"&HTMLEncode(Request.Cookies("userpass")&"' ",conn,1,3if login.eof or login.bof then Response.Write("非法的登陆! <a href='admin.login.asp'>点击返回</a>")Response.EndEnd if%> 6.3实现删除和修改的代码:<%'-open delif Request("id")<>"" and Request("del")="del" thenResponse.Write("你确定删除吗?<a href=?del=yes&id="&Request("id")&"&title="&Request("title")&"&>Yes</a> <a href=?>No</a>")Response.EndEnd ifif Request("del")="yes" and Request("id")<>"" then set rsdel=server.createobject("adodb.recordset")rsdel.open "Delete * from title where id = "&Request("id")&" ",conn,1,3Response.Write("删除成功! <a href=?>返回</a> ")Response.Endrsdel.closeset rsdel = nothingEnd if'-open seeif Request("post")="see" and Request("id")<>"" and isnumeric(Request("id") then set rssee=server.createobject("adodb.recordset")rssee.open "select * from title where id = "&Request("id")&" ",conn,1,3if rssee("tshow")=false thenrssee("tshow")=Trueelserssee("tshow")=falseEnd ifrssee.updateResponse.Write("修改成功! <a href=?>返回</a> ")Response.Endrssee.closeset rssee = nothingEnd if'-open bookif Request("post")="book" and Request("id")<>"" and isnumeric(Request("id") then set rssee=server.createobject("adodb.recordset")rssee.open "select * from title where id = "&Request("id")&" ",conn,1,3if rssee("book")=false thenrssee("book")=Trueelserssee("book")=falseEnd ifrssee.updateResponse.Write("修改成功! <a href=?>返回</a> ")Response.Endrssee.closeset rssee = nothingEnd if%>6.4后台实现新闻增加页面代码: 6.4.1实现数据库连接的包含文件代码:<!-#include file="conn.Asp" -><!-#include file="inc/UBBCode.Asp" ->6.4.2 实现这个新闻增加的代码:<%if len(Request("title")>255 or Request("title")="" then error="标题长度不能大于255个字节! <a href=# onClick='history.go(-1)' >点击返回</a>"if len(Request("name")>50 or Request("name")="" then error="标题长度不能大于50个字节! <a href=# onClick='history.go(-1)' >点击返回</a>"if error<>"" thenResponse.Write(error)Response.EndElse%><p align="center"><b><font color="#FF0000">请仔细检查一下你提交的文章,如果确定无误</font></a></b><br><b><font color="#FF0000">请点击这里(</font><a href="?post=ok">完成提交</a><font color="#FF0000">) 如果发现错误请(</font><a href=# onClick='history.go(-1)' >返回</a><font color="#FF0000">)</font></b><p><%Response.Write "一级分类:"&HTMLEncode(Request("r1")&"<p>"Response.Write "二级分类:"&HTMLEncode(Request("r2")&"<p>"Response.Write "标题:"&HTMLEncode(Request("title")&"<p>"Response.Write "内容:"&UBBCode(HTMLEncode(Request("content"),1)&"<p>"Response.Write "作者:"&HTMLEncode(Request("name")&"<p>"Response.Write "时间:"&HTMLEncode(Request("time")&"<p>"Session("title_1")=HTMLEncode(Request("r1")Session("title_2")=HTMLEncode(Request("r2")Session("title")=HTMLEncode(Request("title")Session("text")=UBBCode(HTMLEncode(Request("content"),1)Session("name")=HTMLEncode(Request("name")Session("time")=HTMLEncode(Request("time")Session("ubb")=Request("content")Response.EndEnd ifEnd if%><%if Request("post")="ok" thenset rs = Server.CreateObject("adodb.recordset")rs.open "select * from title ",conn,1,3rs.addnewrs("title_1")=Session("title_1")rs("title_2")=Session("title_2")rs("title")=Session("title")rs("text")=Session("text")rs("name")=Session("name")rs("time")=date()rs("ubb")=Session("ubb")rs.updateResponse.Write("添加成功!正等待管理员的审核! <a href='index.asp'>点击返回</a>")Response.EndEnd if%><% '一级分类 set rsr1=server.createobject("adodb.recordset") rsr1.open "select * from title_1",conn,1,3 if not rsr1.eof then for r1 = 1 to rsr1.recordcount %> <option value="<%=rsr1("title_1")%>" <%if Request("r1")=rsr1("title_1") then Response.Write("selected")%>><%=rsr1("title_1")%></option> <% rsr1.movenext if rsr1.eof then exit for next End if rsr1.close set rsr1 = nothing %> </select> 请选择二级分类:<select name="r2"> <option selected >请选择二级分类</option> <% if Request("r1")<>"" then set rsr2=server.createobject("adodb.recordset") rsr2.open "select * from title_2 where title_1 = '"&HTMLEncode(Request("r1")&"' ",conn,1,3 if not rsr2.eof then for r2 = 1 to rsr2.recordcount %> <option value="<%=rsr2("title_2")%>" <%if Request("r2")=rsr2("title_2") then Response.Write("selected")%>><%=rsr2("title_2")%></option> <% rsr2.movenext if rsr2.eof then exit for next End if rsr2.close set rsr2 = nothing End if %> 6.4.3后台管理员管理的代码:<!-#include file="conn.asp"-><!-#include file="admin.Asp" -><!-#include file="md5.Asp" -><%'-open delif Request("id")<>"" and Request("del")="del" thenResponse.Write("你确定删除吗?<a href=?del=yes&id="&Request("id")&">Yes</a> <a href=?>No</a>")Response.EndEnd ifif Request("del")="yes" and Request("id")<>"" then set rsdel=server.createobject("adodb.recordset")rsdel.open "Delete * from admin where id = "&Request("id")&" ",conn,1,3Response.Write("删除成功! <a href=?>返回</a> ")Response.Endrsdel.closeset rsdel = nothingEnd if'-open addif Request("username")<>"" and Request.form("userpass")<>"" and Request("id")="" thenset rssee=server.createobject("adodb.recordset")rssee.open "select * from admin ",conn,1,3rssee.addnewrssee("username")=HTMLEncode(Request("username")rssee("userpass")=md5(Request("userpass")rssee.updateResponse.Write("添加成功! <a href=?>返回</a> ")Response.Endrssee.closeset rssee = nothingEnd if'-open updateif Request("username")<>"" and Request.form("userpass")<>"" and Request("id")<>"" and isnumeric(Request("id") then set rssee=server.createobject("adodb.recordset")rssee.open "select * from admin where id = "&Request("id")&" ",conn,1,3rssee("userpass")=md5(Request("userpass")rssee.updateResponse.Write("修改成功! <a href=?>返回</a> ")Response.Endrssee.closeset rssee = nothingEnd if'-exit%><div align="center"> <center> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; border: 4px double #808080; padding: 3" bordercolor="#111111" width="95%"> <tr> <td width="100%"> <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"> <tr> <td width="100%" height="35" align="center"><a href="admin.title.asp"> 栏目分类管理</a> <a href="admin.article.asp">文章管理</a> <a href="admin.link.asp">友情链接管理</a> <a href="admin.user.asp"> 管理员管理</a> <a href="admin.login.asp?post=quit">退出系统</a></td> </tr> <tr> <td width="100%" align="center"><hr noshade color="#808080" size="1"></td> </tr> <tr> <td width="100%" align="center"> <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse; padding-left:6; padding-right:6" bordercolor="#808080" width="923"> <tr> <td width="460" height="25" bgcolor="#F7F7F7" align="center">管理员名称</td> <td width="461" height="25" bgcolor="#F7F7F7" align="center">操作</td> </tr> <% set rs=server.createobject("adodb.recordset") rs.open "select * from admin ",conn,1,3 if not rs.eof then for i1= 1 to rs.recordcount %> <tr> <td width="460" align="center" height="30"> <p> <%=rs("username")%> </td> <td width="461" align="cen
