新闻管理系统课程设计论文文档格式.docx

1、36147.3 杨志姝，冯小飞等.ASP+SQL Server基础练习+典型案例M。清华大学出版社,2006。8.完成期限 1920周 专业负责人 2011 年 7 月 8 日第1章 系统分析1。1 开发背景 21世纪是信息的时代，是网络的时代，进入信息社会高速发展的时代，数字化革命给所有领域带来新的改变.随着Internet的普及,无论人们相隔多么遥远,都有天涯若比邻的感觉。足不出户，便可知天下新近之大事，便可与大洋彼岸的朋友畅谈无阻。网页逐渐融入人们的生活，快速及时地浏览新闻，获取五彩缤纷 的网上信息，已成为人们日常生活的一部分，与此同时越来越多的企业建立了自己的Web网站，企业通过网站可

2、以展示产品，发布最新动态，与用户进行交流和沟通,与合作伙伴建立联系，以及开展电子商务等。互联网的世界里蕴藏着无限生机，这里只有想不到的、没有做不到的。网络发展前景无限，及早与网络结合，与信息时代同步，与高科技汇合，定会给社会各行各业的发展注入新鲜的活力。在网络技术的领域里，传统的商务网站的管理方式有两种,一是静态HTML页面，更新信息时需要重新制作页面然后上传页面并修改相应链接,然而随着Internet的进一步发展，这种静态Web站点的开发与维护变得越来越困难，而且不能与浏览者进行有效交互,从而使得这种方法已不多用.二是基于ASP、PHP1或者JSP和脚本语言，将动态网页和数据库结合，通过应用

3、程序来处理信息，这是目前较为流行的做法.本文论述的就是采用A +Visual Studio 2005 + SqlServer开发环境开发动态的Web网络新闻发布系统。 本文为互联网收集，请勿用作商业用途个人收集整理，勿做商业用途2 系统需求分析随着信息化产业逐渐进入各行各业,并成为整个国民经济的基础，对实行信息化必须有一个明确的方向，这也是客不容缓的事。新闻信息作为当前信息化的重要组成部分，而新闻管理作为新闻信息中的一个重要环节，必须同信息化同步,以促使整个国民经济和新闻事业的发展。本系统功能模块包括：新闻管理，新闻分类管理，会员管理,添加新闻模块.数据的操作主要是：数据添加、数据修改、数据查

4、询。我做的“后台管理”窗体实现的功能如下：一、“新闻管理”窗体是对新闻添加、修改、删除，通过数据库绑定控件实现对息直接的增、删、改.二、“分类管理”窗体实现的功能是对新闻的分类进行管理。三、“会员管理”是对后台的用户进行管理，用户信息的修改、添加、删除。四、“添加新闻”窗体实现的功能是添加新闻.3 开发环境数据库是数据管理的最新技术，是计算机科学的重要分支。十年来，数据库管理系统已从专用的应用程序包发展成为通用系统软件。由于数据库具有数据的结构化、可控冗余度、较高的程序与数据独立性、易于扩充、易于编制应用程序等优点，较大的信息系统都是建立在数据库设计之上的。由于用到的数据表格多，另外考虑到实际

5、情况,如学生基本信息的变动，我们选用SQL Server作为数据库开发，而不用Access,主要是因为Access存放的记录,在实际运用中不适合此系统；而SQL Server是一种常用的关系数据库,能存放和读取大量的数据，管理众多并发的用户，故选用SQL Server数据库。用VB语言进行编码。VB 编程语言是微软在。NET计划中重要的开发语言，它具有语法简单，功能强大，快速应用，语言自由，强大的Web服务器控件，支持跨平台，与XML相融合等。因此选择VB编程语言。ASP。NET是Active Server Page.NET Framework的缩写，意为“基于动态WEB应用程序的技术服务器网

6、页”2。ASP. NET是微软公司开发的代替ASP的一种应用，它可以与数据库和其它程序进行交互,是一种方便功能强大的编程工具.ASP. NET的网页文件的格式是.aspx，现在常用于各种动态网站中. ASP。net是一服务器端脚本编写环境,可以用来创建和运行动态网页或Web应用程序。net网页可以包含HTML标记、普通文本、脚本命令、.css、以及COM组件等。利用ASP。NET可以向网页中添加交互式内容（如在线表单），也可以创建使用HTML网页作为用户界面的Web应用程序。 与HTML相比,ASP。NET网页具有以下特点： （1）利用ASP。NET可以实现突破静态网页的一些功能限制,实现动态

7、网页技术； （2）ASP文件是包含在HTML代码所组成的文件中的,易于修改和测试;（3）服务器上的ASP.NET解释程序会在服务器端制定ASP程序，并将结果以HTML格式传送到客户端浏览器上，因此使用各种浏览器都可以正常浏览ASP所产生的网页3；（4）ASP。NET提供了一些内置对象，使用这些对象可以使服务器端脚本功能更强.例如可以从Web浏览器中获取用户通过HTML表单提交的信息,并在脚本中对这些信息进行处理，然后向Web浏览器发送信息；（5）ASP可以使用服务器端ActiveX组建来执行各种各样的任务，例如存取数据库、发现那个Email或访问文件系统等。第2章 系统设计2.1 系统架构 整

8、个系统分为两个部分,管理员和主界面。管理员进入管理系统后，应该能根据自己的需要进行新闻的管理.本系统是以Windows XP系统为操作平台，在.NET环境下编程实现.系统ER图:2.2 系统功能模块架构分析与设计：系统采用B/S模式5。功能模块如下:图2-2 系统功能模块图各模块介绍如下：管理员模块主要包括新闻管理，新闻分类管理,会员管理，添加新闻模块，修改管理员资料等.新闻管理。包括发布新闻信息、编辑新闻信息、对过期信息删除等。新闻类型管理。包括添加新闻类型、编辑新闻类型以及删除新闻类型。添加新闻。包括添加最新的新闻的操作。用户管理.包括更改用户的密码以及删除用户的所有信息。新闻管理用例图：

9、 图 2-3管理员用例图2。3 系统数据库设计综合以上分析，要实现上面的所有功能模块,需要建立以下的表4：（1）管理员表admin：用于存储管理员的信息。（2）会员表users：用于存储会员的信息，名称，密码等信息。（3）新闻信息表news：用于存储新闻编号、类别，标题等信息.（4）新闻类别classes：用于存储新闻编号，名称信息。（5）新闻评论表review:存储访问者的对相关新闻的评论信息。表2-1会员信息表字段名字段类型字段长度字段说明id自动编号长整型会员编号name文本50会员名称pwd会员密码email会员邮箱type数字会员级别 表22管理员信息表管理员自动编号username

10、管理员姓名password管理员密码管理员邮箱表23 新闻信息表NewsId新闻编号ClassId新闻类别Title新闻标题Author新闻作者Original新闻出处UpdateTime日期/时间新闻更新时间Content备注新闻内容表2-4 新闻栏目表Classesid新闻类别编号classesnametext新闻类别名称表2-5 新闻评论表ReViewID新闻评论自动编号NewsIDReViewTitle评论标题评论内容评论会员Email评论会员邮箱第3章 系统实现3.1 新闻管理系统登录页面当以管理员身份登录时，出现如下界面。输入用户名和密码，当与数据库中的内容相匹配时既可登录。图 3

11、1 登录界面代码如下: Dim i As Integer For i = 0 To ds.Tables（login）。Rows。Count - 1 If username.Text = ds.Tables（）.Rows（i）（0）.ToString（）。Trim（） And password。Text = ds.Tables（”login”）。Rows（i）（1）。ToString（）.Trim（） Then Response。Redirect（news.aspx） ElseWrite（scriptalert（该用户名或密码错误）”） End If Next3。2 新闻管理主界面 图32 新闻

12、管理主页面主要代码如下： Sub bind（） Dim conn As New OleDbConnection（Provider=SQLOLEDB.1;Integrated Security=SSPI；Persist Security Info=False;Initial Catalog=shun;Data Source=. Dim cmd As New OleDbCommand（select * from newsinfo, conn） Dim ds As New DataSet Dim adp As New OleDbDataAdapter（cmd） adp.Fill（ds, ”newsi

13、nfo”） addgridview.DataSource = ds。Tables（newsinfo”）。DefaultView addgridview.DataBind（） End SubProtected Sub addgridview_PageIndexChanging（ByVal sender As Object, ByVal e As System。Web。UI.WebControls。GridViewPageEventArgs） Handles addgridview.PageIndexChanging addgridview.PageIndex = e.NewPageIndex b

14、ind（）3.3 添加新闻界面单击添加新闻按钮既可进入添加新闻界面，在文本框中输入相应内容，单击添加按钮既可添加一条新闻。图33 添加新闻界面图 Dim strsql As String strsql = insert into newsinfo（title，author,original,class,content,updatatime） values（” title.Text & ”, author。Text & ”，” & original。 ”,” class11。SelectedValue ， content。Text ”,” & DateTime。Now（） ”） Provider

15、=SQLOLEDB。1;Persist Security Info=False；Data Source=。 Dim cmd As New OleDbCommand（strsql， conn） conn.Open（） If cmd。ExecuteNonQuery（） Then Label1。Text = 添加成功” conn.Close（）3.4 分类管理界面单击分类管理按钮既可进入分类管理界面,在分类添加中输入相应内容，单击添加按钮既可添加一种分类. 图 3-4 分类管理界面图主要代码如下: Dim conn As New OleDbConnection（”Provider=SQLOLEDB。

16、Initial Catalog=shun；select from class”， conn） adp。Fill（ds, ”class classgridview.DataSource = ds.Tables（class）.DefaultView classgridview。DataBind（） Protected Sub classgridview_RowDeleting（ByVal sender As Object， ByVal e As System。UI。WebControls.GridViewDeleteEventArgs） Handles classgridview.RowDelet

17、ing Dim strsql As String strsql = ”delete from class where classid = + classgridview.DataKeys（e。RowIndex）。Value.ToString.Trim1；Integrated Security=SSPI; Dim cmd As New OleDbCommand（strsql, conn） cmd。ExecuteNonQuery（） conn。Close（） classgridview.EditIndex = 1 Protected Sub classgridview_RowUpdating（By

18、Val sender As Object， ByVal e As System.Web。GridViewUpdateEventArgs） Handles classgridview。RowUpdating Dim strclassname， strsql1 As String strclassname = CType（classgridview。Rows（e.RowIndex）。Cells（1）.Controls（0）， TextBox）.Text.ToString（）。Trim（） strsql1 = update class set classname = strclassname & w

19、here classid = ” & CInt（classgridview.DataKeys（e。Value.ToString） Dim conn As OleDbConnection = New OleDbConnection（”Provider=SQLOLEDB。Data Source=.”） Dim cmd As OleDbCommand = New OleDbCommand（strsql1, conn） cmd.ExecuteNonQuery（）EditIndex = -1 Protected Sub classgridview_RowCancelingEdit（ByVal sende

20、r As Object, ByVal e As System.Web。WebControls.GridViewCancelEditEventArgs） Handles classgridview。RowCancelingEdit classgridview.EditIndex = -1 Protected Sub classgridview_PageIndexChanging（ByVal sender As Object, ByVal e As System.Web.UI。WebControls.GridViewPageEventArgs） Handles classgridview.Page

21、IndexChangingPageIndex = e。NewPageIndex Protected Sub Button2_Click（ByVal sender As Object， ByVal e As System。EventArgs） Handles Button2。Click strsql = ”insert into class（classname） values（” TextBox1。4 会员管理界面单击会员管理按钮既可进入会员管理界面,在此页面可以对会员的相应信息进行管理。图 34 会员管理界面图Protected Sub GridView1_RowUpdating（ByVal

22、sender As Object， ByVal e As System.Web。UI.WebControls.GridViewUpdateEventArgs） Handles GridView1.RowUpdating Dim strname， strpwd, stremail, strtype， strsql1 As String strname = CType（GridView1.Rows（e。Cells（1）。Controls（0）, TextBox）.Text.ToString（）。 strpwd = CType（GridView1.Rows（e。RowIndex）.Cells（2）。

23、Controls（0）, TextBox）。Text。ToString（）。 stremail = CType（GridView1。Cells（3）.Controls（0）, TextBox）。Text.ToString（）。 strtype = CType（GridView1.Rows（e.RowIndex）.Cells（4）.Controls（0）， TextBox）。 strsql1 = ”update users set name = ” & strname & ， pwd = ” strpwd ， email = stremail , type = ” & strtype & where id = ” + GridView1.DataKeys（e。Value.ToString（） Dim conn As OleDbConnection = New OleDbConnection（”Provider=SQLOLEDB.1; Dim cmd As OleDbCommand = New OleDbCommand（strsql1， conn）Open（） GridView1.EditIndex = -1Sub bind（） Dim conn As New OleDbConnection（”Provider=SQLOLEDB