asp课程设计新闻发布系统

1、课程设计说明书 No.33新闻发布系统1课程设计目的随着Internet的普及，越来越多的企业建立了自己的WWW网站，企业通过网站可以展示产品，发布最新动态，与用户进行交流和沟通，与合作伙伴建立联系，以及开展电子商务等。其中新闻管理系统是构成企业网站的一个重要组成部分。利用ASP.NET和数据库技术开发新闻发布管理系统，实现了网站前台动态显示和后台的新闻动态管理，使得对信息的查看和管理更加及时、高效，大大提高了的用户查看效率和管理员的工作效率。用Internet的普及，来改造新闻信息发布的形式，让更多的人们可以在信息化的时代更真实地感受到网站给大家生活带来的便利，同时加强人们了解企业动态，进一

2、步提高校园办公的效率。同时提高综合应用所学知识的能力，积累Web程序的编程经验，提高编程与调试能力。2总体设计2.1前台和后台功能根据网站新闻发布管理的实际需求，系统应能实现在首页中应能显示热门新闻、和最近发布的几条新闻,还能通过查找模块（新闻标题、用户）检索到用户感兴趣的新闻。在后台管理中，因为有权限的管理员才能登录管理后台，所以需要有个登录验证模块，在管理新闻时，当数据少时管理起来还比较方便，如果一多则想找到某条新闻或某个用户就很难，所以需要有个查找（新闻标题、用户）模块用于查找新闻或用户。前台显示新闻部分（1）用户登录区（2）显示最热门的前几条新闻（3）显示最新的前几条新闻（4）搜索新闻

3、功能（5）显示所有新闻分类（6）按分类显示其下的所有新闻（7）新闻详细信息浏览阅读后台管理部分（1） 登录验证（2）分类管理（3） 添加新闻（4 ）修改和删除新闻新闻发布系统是一些机构和企业中不可缺少的信息交流门户和平台，所以能否设计一个简单，易用，方便管理，扩展性强的信息发布系统就很重要。浏览网站浏览新闻删除新闻收索新闻添加新闻普通用户管理员图2.1新闻发布系统功能模块示意图2.2逻辑设计ASP.NET结构是一个三层系统：UI层、业务逻辑层和数据层UI层负责与用户交互，收用户的输入并将服务器端传来的数据呈现给客户。 图2.2基于ASP.NET技术的系统结构模型业务逻辑层负责接收浏览器传来的请

4、求并将请求传给数据层，同时将请求处理结果发给浏览器。它由Web表单、XML Web服务和组件服务组成。其中Web表单是ASP.NET应用程序的核心所在，它是向客户呈现数据和信息的基础，也是响应和处理客户与显示的Web表单交互生成的信息和数据的基础。数据层是通过ADO.NET操纵数据为事务逻辑层提供数据服务，如存储数据操作结果、返回数据检索结果等。2.3数据库设计本网站是信息类网站，目的在于及时的让用户了解最新的国内及国外资讯，属于小型新闻类网站，数据处理不是很复杂，主要处理新闻信息，图片显示，以及用户信息，搜索查询等，故采用sql数据库开发。该系统使用sql作为应用程序的数据库，建立了有3张数

5、据表：users表用于存储帐户的信息， news表用于存储新闻内容, newstype表用于存储新闻类别。(1)users表图2.3存储帐户的信息(2)news表图2.4存储新闻内容(3)newstype表图2.5存储新闻类别3详细设计从系统的实现上来看，共有8个页面，对于每个页面的功能实现和说明如下：defaut.asps页面 新闻首页面，用来浏览新闻内容shownew.aspx页面 新闻详细信息显示页面morenew.aspx页面 更多新闻信息查看和收缩页面login.aspx页面 管理员登陆页面manage.aspx页面 新闻管理里主页面addnew.aspx页面 添加新闻页面updat

6、enew.aspx页面 修改和删除新闻页面modify.Aspxy页面 实现修改和删除功能的页面首先应该进入新闻的首页面defaut.asps，在这里可以看到很多新闻内容，如果想浏览新闻的详细信息，点击标题进入Shownew.aspx页面，如果想查看更多新闻信息进入Morenew.aspx页面，如果管理员相对新闻信息进行管理，首先应该登陆Login.aspx页面，进入Manage.aspx页面，可以对新闻进行添加addnew.aspx页面，也可以对新闻进行修改和删除updatenew.aspx页面，可以对新闻的详细内容进行修改和删除modify.Aspxy页面。（1）defaut.asps页面

7、在界面上主要用到了两个DataGrid控件，这两个控件主要用来显示内部新闻和外部新闻，其ID号分别为dgnei和dawai，每个新闻还分别包括两个超链接，分别用来连接新闻管理和更多新闻页面。其界面设计如下图：图3.1default.aspx页面设计图在default.aspx.vb中编写代码，在编写前应该吧用到的命名空间引进来，在这里用到了两个，分别是：mports System.DataImports System.Data.SqlClient然后把用到的字符串也引入过来，即在窗体中声明一下，其代码如下：Private Sub Page_Load(ByVal sender As System

8、.Object, ByVal e As System.EventArgs) Handles MyBase.Load connectionstring=System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trimconn = New SqlConnection(connectionstring) End sub接着在窗体前声明所用到的对象，声明语句如下：Private connectionstring As StringDim conn As SqlConnec

9、tion其中用来显示新闻内容的两个DataGrid控件的代码实现是在page-load中，实现语句如下：Dim sql As String Dim sqlstr As String Dim mycmd As SqlCommand Dim cmd As SqlCommand Dim ds As DataSet = New DataSet sql = "select * from news where type='国际新闻'" mycmd = New SqlCommand(sql, conn) conn.Open() getdata = mycmd.Execut

10、eReader() dgwai.DataSource = getdata dgwai.DataBind() mycmd.Dispose() getdata.Close() sqlstr = "select * from news where type='国内新闻'" cmd = New SqlCommand(sqlstr, conn) getdata1 = cmd.ExecuteReader() dgnei.DataSource = getdata1 dgnei.DataBind() conn.Close() getdata1.Close() cmd.Dis

11、pose()（2）morenew.aspx页面在default.aspx显示的知识部分新闻的内容，如果要查看更多新闻，就要进入morenew.aspx页面，在此页面中可以对自己想浏览的新闻进行收索和查询其界面设计如下图。 图3.2 morenew.aspx页面设计图在morenew.aspx.vb中编写代码，在编写前首先应该把用到的命名空间引进来，在这里用到了两个命名空间，分别是：Imports System.Data.SqlClientImports System.Data接着在窗体织田声明用到的对象，声明语句如下：Private connectionstring As Stringim c

12、onn As SqlConnection在DataGrid控件中主要显示新闻的全部内容，其实现语句如下：Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim ds As DataSet = New DataSet sql = "select * from news " mycmd = New SqlCommand(sql, conn) conn.Open() getdata = mycmd.ExecuteReader() dgwen.DataSource = getdata dg

13、wen.DataBind() mycmd.Dispose() getdata.Close()查找”按钮”的代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim ds As DataSet = New DataSet sql = "select * from news

14、where author='" + TextBox1.Text + "'or contents='" + TextBox1.Text + "'or subjects='" + TextBox1.Text + "' " mycmd = New SqlCommand(sql, conn) 'conn.Open() getdata = mycmd.ExecuteReader() dgwen.DataSource = getdata dgwen.DataBind() mycmd

15、.Dispose() getdata.Close() conn.Close() End Sub（3）shownew.aspx页面在主页面中，当想查看新闻的详细信息时，可以通过点击标题超链接进入shownew.aspx页面查看此新闻的详细信息，在页面中文本框的内容都是只读的，非管理人员不能修改，其中还有一个标签用来显示浏览的次数，其界面设计图如下。图3.3shownew.aspx页面设计图在shownew.aspx.vb中的语句主要用来显示所点击 那个新闻的详细信息，显示新闻详细信息的代码如下：Session("subjects") = Page.Request("

16、subjects") txtsubject.Text = Session("subjects") 'see() Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim sqlstr As String Dim cm As SqlCommand sqlstr = "update news set seenum=seenum+1 where subjects='" + txtsubject.Text + " '"

17、 cm = New SqlCommand(sqlstr, conn) conn.Open() cm.ExecuteNonQuery() cm.Dispose() conn.Close()其中see（）函数是用来显示浏览人次数的，其函数定义如下：Sub see()Dim sqlstr As StringDim cm As SqlCommandsqlstr = "update news set seenum=seenum+1 where subjects='" + txtsubject.Text + " '"cm = New SqlComma

18、nd(sqlstr, conn)conn.Open()cm.ExecuteNonQuery()cm.Dispose()conn.Close()End Sub（4）login.aspx页面在管理人员登录页面中，主要是提供管理人员惊醒维护时所需要的身份验证，这里主要使用了常用的文本框，按钮和标签，其界面设计图如下 图4.4 login.aspx页面在login.aspx.vb文件中编写代码，确定按钮实现事件代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handle

19、s Button1.Click Dim ds As DataSet = New DataSet Dim sqlstr As String sqlstr = "select * from users where username='" + txtuname.Text + "' and userpwd='" + txtpwd.Text + "'" Dim da As SqlDataAdapter = New SqlDataAdapter(sqlstr, conn) conn.Open() da.Fill(d

20、s) If ds.Tables(0).Rows.Count = 0 Then Label1.Text = "验证失败! 请重新输入" Else Session("username") = txtuname.Text Response.Redirect("manage.aspx") End If conn.Close() ds.Clear() ds = Nothing sqlstr = "" End Sub“重填”按钮实现的代码如下：Private Sub Button2_Click(ByVal sender As

21、System.Object, ByVal e As System.EventArgs) Handles Button2.Click txtuname.Text = "" txtpwd.Text = "" End SubEnd Class（5）manage.aspx页面在管理首页面中，主要是使用几个超链接链接其他页面，提供管理人员主要能进行的操作，功能相对来说比较简单，其界面设计图如下。图4.5 manage.aspx页面（6）addnew.aspx页面在增加新闻页面时，主要用到了用来选择类别的下拉菜单dropdownlist，还有用来输入标题，内容和作则

22、的文本框以及HTML控件中的File Field控件用来输入图像，还有相应提交和取消时间的按钮，其界面设计图如下。图4.6 addnew.aspx页面设计图在addnew.aspx.vb中编写代码，“提交”按钮的代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String Dim mycmd As SqlCommand sql = "insert into news(subjects,a

23、uthor,contents,type,sysdate)values('" + txtsubject.Text + "','" + txtauthor.Text + "','" + txtcontent.Text + "','" + dl1.SelectedItem.Value + "','" + Now().Date + "')" conn.Open() mycmd = New SqlCommand(sq

24、l, conn) mycmd.ExecuteNonQuery() mycmd.Dispose() conn.Close() sql = "" Response.Write("<script>javascript:alert('添加成功！');</script>") End Sub取消“按钮”的代码如下：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

25、Response.Redirect("default.aspx") End Sub Private Sub txtcontent_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles txtcontent.TextChanged End SubEnd Class（7）updatenew.aspx页面（8）modify.Aspxy页面在修改和删除新闻页面中，首先显示新闻的标题和发表时间，然后可以根据自己的需要查找新闻，其界面设计图如下。图4.7 updatenew.asp

26、x页面设计图其中在updatenew.aspx.vb文件中编写代码，在确定按钮中主要是根据DropDownlist下拉菜单中的内容判断新闻类别，在DataGrid控件中显示新闻，其代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim ds As DataSet = New Da

27、taSet sql = "select * from news where author='" + txttb.Text + "'or contents='" + txttb.Text + "'or subjects='" + txttb.Text + "' " mycmd = New SqlCommand(sql, conn) conn.Open() getdata = mycmd.ExecuteReader() dg.DataSource = getdata dg

28、.DataBind() mycmd.Dispose() getdata.Close() conn.Close() End Sub查找“按钮”的的代码如下：Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim sql As String Dim getdata As SqlDataReader Dim mycmd As SqlCommand Dim ds As DataSet = New DataSet sql = "

29、select * from news where type='" + TextBox1.Text + "'" mycmd = New SqlCommand(sql, conn) conn.Open() getdata = mycmd.ExecuteReader() dg.DataSource = getdata dg.DataBind() mycmd.Dispose() getdata.Close() conn.Close()End Sub把修改/删除链接到modify.Aspxy中来对相应的信息进行修改和删除。“更新”按钮的代码如下：Privat

30、e Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click connectionstring = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim conn = New SqlConnection(connectionstring) Dim sqlstr As String Dim s As String

31、= Page.Request("subjects") sqlstr = "update news set subjects='" + txtsubject.Text + "',contents='" + txtcontent.Text + "',author='" + txtauthor.Text + "'where subjects= '" + txtsubject.Text.ToString.Trim + "'&quo

32、t; If conn.State = ConnectionState.Closed Then conn.Open() End If 'conn.Open() mycmd = New SqlCommand(sqlstr, conn) mycmd.ExecuteNonQuery() mycmd.Dispose() conn.Close() 'sqlstr = "" Response.Write("<script>javascript:alert('更新成功！');</script>") Response

33、.Redirect("manage.aspx") End Sub图4.8modify.Aspxy页面设计图删除“按钮”的代码如下：Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim sql As String Dim s As String = Page.Request("subjects") sql = "delete from news where subjects=&#

34、39;" + txtsubject.Text.ToString.Trim + "'" mycmd = New SqlCommand(sql, conn) conn.Open() mycmd.ExecuteNonQuery() conn.Close() mycmd.Dispose() Response.Write("<script>javascript:alert('删除成功！');</script>") Response.Redirect("manage.aspx")End Sub4运行系统所需要的软，硬件环境硬件：奔腾PIII以上PC机.操作系统：WindowsXP.开发环境：IIS5.1。采用技术：ASP.net5：测试结果与分析1主页如图所示：图5.1主页页面2点击更多新闻显示所有新闻内容：5.2所有新闻内容页面3按作者查找文章：5.3按作者查找文