新闻发布系统毕业设计.docx

新闻发布系统毕业设计.docx

《新闻发布系统毕业设计.docx》由会员分享，可在线阅读，更多相关《新闻发布系统毕业设计.docx（24页珍藏版）》请在冰点文库上搜索。

新闻发布系统毕业设计

摘要：

本课程论文在学习了ASP基本语法以及Web应用方法的基础上设计与实现了一个新闻发布系统的用户模块。

系统开发平台为Windows2000，系统开发结构为ASP+JavaScript，数据库采用Access2000，程序运行平台为Windows98/2000/XP。

实现了对用户的添加、用户的删除、用户信息的查看、用户的修改。

程序通过调试运行，初步实现了设计目标，并且经过适当完善后，可以应用在商业中解决实际问题。

关键词新闻发布系统；用户；ASP；JavaScript；Access2000

1引言

1.1课题背景及意义说明

随着Internet信息技术的高速发展，越来越多的企业已建立或计划建立自己的网站。

但是，为了建立和维护自己的网站而聘请专职的网络技术人员的成本对于一个中小型企业来说实在是太高了。

对于上面这类企业来说，他们最需要的就是一个现在的新闻发布系统，这样只需要会打字，会上网，就能利用新闻发布系统建立和维护自己的网站。

而且，目前许多企业网站的新闻大多是静态的HTML页面，每次更新信息需要做一个页面，然后FTP上传，再修改页面链接，这样维护非常麻烦，而网站新闻发布系统大大减轻了网站更新维护的工作量，通过新闻后台维护程序在浏览器上只需录入文字和上传图片就可以快速实现新闻维护，从而大大加快了信息的传播速度，时时保持网站的活动力和影响力。

作为一个在网上发布信息的网站，是用户浏览新闻和交流的重要平台，也是一个能够自动地发布各种信息的平台,它可使人们超越时间和空间的交流信息。

该系统实现的是用户浏览新闻，查找信息，发布留言的功能。

1.2课题使用技术简要说明

ASP是ActiveServerPage的缩写，意为“活动服务器网页”。

ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。

ASP的网页文件的格式是.asp，现在常用于各种动态网站中。

ASP是一种服务器端脚本编写环境，可以用来创建和运行动态网页或web应用程序。

ASP网页可以包含HTML标记、普通文本、脚本命令以及COM组件等。

利用ASP可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的web应用程序。

与HTML相比，ASP网页具有以下特点：

（1）利用ASP可以实现突破静态网页的一些功能限制，实现动态网页技术；

（2）ASP文件是包含在HTML代码所组成的文件中的，易于修改和测试；

（3）服务器上的ASP解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页；

（4）ASP提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强。

例如可以从web浏览器中获取用户通过HTML表单提交的信息，并在脚本中对这些信息进行处理，然后向web浏览器发送信息；

（5）ASP可以使用服务器端ActiveX组建来执行各种各样的任务，例如存取数据库、发现哦那个Email或访问文件系统等。

（6）由于服务器是将ASP程序执行的结果以HTML格式传回客户端浏览器，因此使用者不会看到ASP所编写的原始程序代码，可放置ASP程序代码被窃取。

ASP，活动服务器页面,就是一个编程环境，在其中，可以混合使用HTML、脚本语言以及组件来创建服务器端功能强大的Internet应用程序。

如果你以前创建过一个站点，其中混合了HTML、脚本语言以及组件，你就可以在其中加入ASP程序代码。

通过在HTML页面中加入脚本命令，你可以创建一个HTML用户界面，并且，还可以通过使用组件包含一些商业逻辑规则。

组件可以被脚本程序调用，也可以由其他的组件调用。

2需求分析

2.1功能性要求

图2-1管理员用例图

2.2非功能性需求

为方便管理员管理，本系统的界面要求简单、明朗。

系统涉及到用户信息，因此对安全性要求高一些。

系统采用权限技术，保证系统安全可靠。

系统的运行对运行环境还有一些要求：

●Windows2000或WindowsXP

●InternetInformationServices（IIS）5.0或6.0

●MicrosoftAccess2000

系统必须满足正确性，可靠性，必须有效率，完整性，易使用性，可测试性，可维护性，复用性，安全保密性。

尤其是在安全性方面，必须对用户的资料，注册信息做到良好的保密工作，还有数据库的安全性。

3概要设计

 3.1文档结构定义

本系统采用ASP+JavaScript的形式实现。

根据开发系统所需提供的页面文档定义ASP文档，表定义参见数据组织与定义部分的内容。

本课题的ASP包括：

admin_admin.asp：

该文档用于添加管理人员界面的设计。

admin_adminDel.asp：

该文档用于删除管理人员的设计。

admin_adminmodify.asp：

该文档用于修改管理人员信息的设计。

admin_adminsave.asp：

该文档用于对保存管理人员信息错误提示的设计。

它们之间的文档关联关系如下所示：

图2-2文档关联关系图

3.2相关数据组织与定义

建立管理人员信息Admin表。

图2-3　Admin表

3.3开发环境说明

ASP+JavaScript+Access2000.

4详细设计

4.1业务逻辑层定义

本模块的业务逻辑层实现主要用到了admin_admin.asp，admin_adminDel.asp,admin_adminmodify.asp和admin_adminsave.asp。

admin_admin.asp：

用于添加管理人员。

admin_adminDel.asp：

用于删除管理人员。

admin_adminmodify.asp:

用于修改管理人员信息。

admin_adminsave.asp：

用于保存管理人员信息时的错误提示。

4.2页面逻辑层实现

4.2.1admin_admin.asp

<%

Setrs=Server.CreateObject（"ADODB.RecordSet"）

sql="select*fromadminorderbyid"

rs.Opensql,conn,1,1

whilenotrs.eof

ifrs（"aleave"）="super"thenaleave="超级管理员"endif

ifrs（"aleave"）="check"thenaleave="普通管理员"endif

%>

id=<%=rs（"id"）%>">修改

id=<%=rs（"id"）%>">删除

<%rs.movenext

wend

rs.close

setrs=nothing

%>

添加管理员：

管理帐号：

管理权限：

超级管理员

普通管理员

管理密码：

图2-4添加管理员信息图

4.2.2admin_adminDel.asp

--#includefile="adminconn.inc"-->

<%

ifsession（"aleave"）=""then

response.redirect"adminlogin.asp"

response.end

endif

%>

<%ifsession（"aleave"）="check"then

response.write"alert（'对不起，你没有这个权限！

'）;"

response.write"javascript:

history.go（-1）"

response.end

endif%>

<%

setrs=server.CreateObject（"ADODB.RecordSet"）

rs.open"delete*fromadminwhereid="&request.QueryString（"id"）,conn,1

setrs=nothing

response.redirect"admin_admin.asp"

%>

4.2.3admin_adminmodify.asp

<%ifsession（"aleave"）="check"then

response.write"alert（'对不起，你没有这个权限！

'）;"

response.write"javascript:

history.go（-1）"

response.end

endif%>

<%id=request.QueryString（"id"）

setrs=server.createobject（"adodb.recordset"）

sql="select*fromadminwhereid="&id

rs.opensql,conn,1,1

ifrs.eofthen

response.write"alert（'服务器出错，请联系管理员！

'）;"

response.write"javascript:

history.go（-1）"

else

admin=rs（"admin"）

password=rs（"password"）

aleave=rs（"aleave"）

%>

修改管理员资料

用户名：

"size="20"class="input">

密码：

"size="20"class="input">

权限：

9pt"class="input">

selected<%endif%>>超级管理员

selected<%endif%>>普通管理员

图2-5修改管理员资料图

4.2.4admin_adminsave.asp

<%ifsession（"aleave"）="check"then

response.write"alert（'对不起，你没有这个权限！

'）;"

response.write"javascript:

history.go（-1）"

response.end

endif%>

<%

admin=request.form（"admin"）

password=request.form（"password"）

aleave=request.form（"aleave"）

ifadmin=""orpassword=""then

response.write"alert（'管理员名称和密码都不能为空！

'）;"

response.write"javascript:

history.go（-1）"

Response.End

endif

setrs=server.CreateObject（"ADODB.RecordSet"）

ifrequest（"act"）="edit"andrequest.QueryString（"id"）<>""then

id=request（"id"）

sql="select*fromadminwhereid="&request.QueryString（"id"）

rs.opensql,conn,3,2

ifnotrs.eofthen

rs（"aleave"）=aleave

rs（"admin"）=admin

rs（"password"）=encrypt（password）

rs.update

endif

rs.close

elseifrequest（"act"）="add"then

sql="select*fromadminwhereadmin='"&admin&"'"

rs.opensql,conn,3,2

if（rs.eofandrs.bof）then

rs.addnew

rs（"aleave"）=aleave

rs（"admin"）=admin

rs（"password"）=encrypt（password）

rs.update

endif

rs.close

endif

setrs=nothing

conn.close

setconn=nothing

response.redirect"admin_admin.asp"

%>

图2-6错误信息图

5代码调试与测试

　程序调试运行在软件设计中是关键的一步。

　首先解压新闻发布系统到某一文件夹下，在此我们存放于D:

\新闻发布管理系统。

图2-７解压目录

第二步：

配置IIS[Internet信息服务（IIS）管理器]。

图2-８建立虚拟目录图

图2-９创建向导图

图2-10选择路径图

图2-11设置访问权限图

第三步：

设置IIS管理器属性。

图2-12IP地址设置图

图2-13主目录设置图

第四步通过以上步骤，基本上配置完成新闻发布系统的运行环境。

右击站点名称，选择“浏览（B）”，我们看到右侧显示框显示的效果。

图2-14主页效果图

小结

本课程设计实现了新闻发布系统的用户管理模块，在可以运行的前提下，实现了对管理员的添加、修改、删除、浏览等功能。

通过本次课程设计，我对软件工程这门课程有了更进一步的了解，把原来的课本知识真正的转化为实际的东西，理解了开发一个项目的般过程。

在这次设计过程中学到了很多方面有用的思想和技巧，特别在对设计过程中所出现的种种错误的解决过程中受益匪浅，尤其是解决问题和分析问题的能力。

由于作者能力水平有限，加之写作时间仓促，不当之处在所难免，恳请批评指正。

参考文献

[1]邵丽萍，张后，扬朱兵，陈学东编著.动态网页制作ASP[M].北京:

电子工业出版社，2003.

[2]新东方电脑教材研发室，石志国编著.ASP动态网站编程.北京：

清华大学出版社,2001.

[3]weissingerA编著.冯延晖，王永庆，刘海明译.ASP技术手册[M].北京：

中国电力出版社，2001.

[4]andersonR等编著.刘福太等译.ASP3高级编程[M].北京：

机械工业出版社，2000.

[5]美ChristophWilleChristianKoller.24小时学通ASP.北京：

人民邮电出版社出版,2000年

附录：

//程序名称：

admin_admin.asp

//程序功能：

完成添加管理人员。

//程序作者：

吴敬素

//最后修改日期：

2007-6-29

--#includefile="adminconn.inc"-->

<%

ifsession（"aleave"）=""then

response.redirect"adminlogin.asp"

response.end

endif

%>

ID

用户

密码（加密）

权限

修改

删除

<%Setrs=Server.CreateObject（"ADODB.RecordSet"）

sql="select*fromadminorderbyid"

rs.Opensql,conn,1,1

whilenotrs.eof

ifrs（"aleave"）="super"thenaleave="超级管理员"endif

ifrs（"aleave"）="check"thenaleave="普通管理员"endif%>

<%=rs（"id"）%>

<%=rs（"admin"）%>

<%=rs（"password"）%>

<%=aleave%>

id=<%=rs（"id"）%>">修改

id=<%=rs（"id"）%>">删除

<%rs.movenext

wend

rs.close

setrs=nothing%>

添加管理员：

管理帐号：