《ASP网络程序设计与应用》-第9章_新闻发布及管理系统.ppt

1、第9章 新闻发布及管理系统,本章内容要点 系统分析及总体设计 数据库分析和设计 新闻发布系统的开发 新闻管理系统的开发 新闻阅读及查询系统的开发 新闻评论系统的开发 新闻发布管理系统开发小结,9.1系统分析与总体设计,很多网站都提供新闻栏目，例如搜狐、新浪等著名网站的新闻专栏。许多企业和个人网站也需要定期发布一些关于企业或网站的新闻。因为网络中新闻发布的频率非常高，如果使用静态网页作为新闻页面，则维护工作将非常繁琐，管理员每天需要制作大量的网页，从而浪费很多时间和精力。 使用新闻发布及管理系统可以使新闻发布和管理变得很轻松，管理员只需设置标题、内容和图片等新闻就可以了，系统将自动生成对应的网页

2、。 本节将首先对新闻发布及管理系统进行系统分析与总体设计。,9.1.1系统功能描述,1新闻类别管理 新闻类别的录入，包括类别编号和类别名称等信息； 新闻类别的修改； 新闻类别的删除； 新闻类别的查询。 2新闻发布管理 基本新闻信息的录入，包括新闻标题、新闻雷同和所属类别等； 基本新闻信息的修改； 基本新闻信息的删除。 3图片处理模块 选择图片文件； 上传图片文件； 储存图片新闻； 修改新闻图片； 删除新闻图片； 在网页中浏览新闻图片。,9.1.1系统功能描述,4新闻查询模块 按照新闻类别分页显示新闻； 按照日期分页显示新闻。 5网友留言模块 网友对某条新闻发表评论； 管理员可以删除新闻评论。

3、6系统用户管理功能 系统用户信息的录入，包括用户名和密码等信息； 系统用户信息的修改； 系统用户信息的删除。,9.1.2系统功能模块划分,9.1.3系统流程分析,9.2.3创建表的脚本文件,1创建表Category 创建表Category的脚本文件为Category.sql，它的代码如下： = USE news GO CREATE TABLE Category ( CateId Int IDENTTTY PRIMARY KEY, CateName Varchar(50) NOT NULL ) GO =,9.2.3创建表的脚本文件,2创建表News 创建表News的脚本文件为“News.sql”

4、，它的代码如下： = USE news GO CREATE TABLE News ( Id Int IDENTTTY PRIMARY KEY, Title Varchar(100) NOT NULL, Content Text, PostTime Datetime, Poster Varchar(50) CateId Int, Attpic Int DEFAULT 0, ReadCount Int DEFALT 0 ) GO =,9.2.3创建表的脚本文件,3创建表Discuss 创建表Discuss的脚本文件为Discuss.sql，它的代码如下： = USE news GO CREATE

5、TABLE Discuss ( Id Int IDENTTTY PRIMARY KEY, UserId Varchar(20), PostTime Smalldatetime, Content Varchar(4000) NewsId Int ) GO =,9.2.3创建表的脚本文件,4创建表Users 创建表Users的脚本文件为Users.sql，它的代码如下： = USEnews GO CREATE TABLE Users ( UserId Int Primary Key IDENTTTY, UserName Varchar(50)NOT NULL, UserPwd Varchar(50

6、)NOT NULL, Ename Varchar(50), Email Varchar(50) ) GO INSERT INTO Users(UserName, UserPwd, Ename, Email)VALUES(Admin, 111111,“,”) GO =,9.3目录结构与通用模块,9.3.1目录机构 在运行实例时，需要将news目录复制到IIS（或PWS）的根目录下，例如C:Inetpubwwwroot。 news目录下，包含下面两个子目录： images 用于存储上传的新闻图片； pic 用于存储网页中的图片文件； 其它ASP和HTM文件都保存在news目录下。 9.3.2通用模

7、块 本实例中包含一些通用模块，这些模块以文件的形式保存，可以在其他文件中使用#include语句包含这些模块，使用其中定义的功能。,9.4系统主界面与登录程序设计,9.4.1设计主界面 下面介绍default.asp的主要代码。 = =,9.4.2登录程序设计,9.4.3设计管理界面,Index.asp将新闻按照分类显示，每个新闻类别只显示最新的20条新闻。显示新闻类别的代码如下: = | =,9.5新闻类别管理模块设计,新闻类别管理模块可以实现以下功能： 添加新的新闻类别记录； 修改新闻类别记录； 删除新闻类别记录。 只有Admin用户才有权限进入新闻类别管理模块，在index.asp中，单

8、击“类别管理”超级链接，可以打开类别管理页面Cate_Admin.asp。,9.5.1设计新闻类别管理界面,9.5.2添加新闻类别,在执行Cate_Admin.asp时，可以在url中包含参数，程序将根据参数Oper的值决定进行的操作，与添加数据相关的代码如下： = =,9.5.3修改新闻类别,在执行Cate_Admin.asp时，可以在url中包含参数，程序将根据参数Oper的值决定进行的操作，与修改数据相关的代码如下： = % 处理添加、修改和删除操作 dim Soperate Soperate = Request.QueryString(oper) Operid = Request.Qu

9、eryString(cid) 删除 If Soperate=delete Then . 添加 ElseIf Soperate = add then . 修改,9.5.3修改新闻类别,ElseIf Soperate = edit Then CateName = Request(txttitle) 如果新类别名称与旧名称不同，则判断是否存在此类别名称 sql = SELECT * FROM Category WHERE CateName = jnn.length;j+) Self.document.all.item(Cate,j).ckecked=true; =,9.6新闻发布管理模块设计,系统用

10、户都可以发布新闻，新闻发布管理模块包含以下功能： 发布新新闻； 修改新闻； 删除新闻。,9.6.1添加新闻,9.6.2新闻图片上传,9.6.3修改新闻,数据提交后，将由newsUpdate.asp进行处理，它的主要代码如下： = ) ChangeChr = Replace( ChangeChr, , ) ChangeChr = Replace( ChangeChr, chr(13), ) End Function rqtContent = ChangeChr(request(txtcontent) 替换函数 rqtContent = Replace(rqtContent,) 替换新闻标题中的半

11、角单引号 Dim title title = Request.Form(title) title = replace(title,) 设置附图标记 If Request.Form(attpic) Then attpic = 1 Else attpic = 0 End If 设置UPDATE语句，更新新闻信息 sql = UPDATE News SET Posttime= location.href = index.asp; =,9.7新闻阅读查询模块设计,本实例中规定，新闻阅读和查询没有权限控制，也就是不需要注册成为系统用户，也可以在网站中浏览新闻。本节将介绍阅读和查询新闻功能的实现方法。,9

12、.7.1阅读新闻,在indes.asp和default.asp页面中单击新闻链接，将在新窗口中打开查看新闻内容的页面。 查看新闻内容的页面为newsView.asp，参数id表示要查看的新闻编号。NewwView.asp重点要完成下面的工作： 读取并显示新闻类别信息； 读取并显示新闻信息，包括新闻标题和正文。在显示新闻正文之前，要对正文中的特殊符号进行替换处理。 将阅读次数增加1； 显示“发表评论”和“关闭本窗口”超级链接。,9.7.1阅读新闻,NewsView.asp的主要代码如下： = =,9.7.2查看分类新闻,Category.asp的主要代码如下： = ,9.7.2查看分类新闻, 新

13、闻列表 0 Then Response.Write 数据库出错,9.7.2查看分类新闻,Else If rs.EOF Then rs.close Response.Write 没有新闻 Else 获得类别信息 Dim newsCate Set newsCate = Server.CreateObject(ADODB.RecordSet) 设置SQL语句，读取新闻类别名称 sqlcate = SELECT CateName FROM Category WHERE CateId = & CInt(curcate) Set newsCate = Conn.Execute(sqlcate) 显示新闻类

14、别名称 If Not newsCate.EOF Then cateTitle = newsCate(CateName) End If % % dim i 分页显示新闻列表,9.7.2查看分类新闻,rs.PageSize = 20 设置当前页码 rs.AbsolutePage = curpage 画表头 Response.Write Response.Write + strcate + Response.Write + rs(Title) + 处理（附图）标记 If rs(Attpic) = true Then Response.Write (附图) End If 如果是最近3天发表的新闻，则显

15、示new图标 ndate=DateAdd(d,-3,date() If DateDiff(d, rs(Posttime), ndate+time() End If,9.7.2查看分类新闻,显示阅读数量 Response.Write + formatdatetime(rs(Posttime) + + cstr(rs(ReadCount) + 将指针移到下一条记录 rs.MoveNext 如果到达记录集结尾，则跳出循环 If rs.EOF Then i = i + 1 Exit For End If Next Response.Write 下面显示页码信息 Response.Write 第 + c

16、str(curpage) + 页/总 + cstr(rs.pagecount) + 页 Response.Write 本页 + cstr(i-1) + 条/总 + cstr(rs.recordcount) + 条 ,9.7.2查看分类新闻,If curpage = 1 Then Response.Write 首页 上一页 Else Response.Write 首页 上一页 End If If curpage = rs.PageCount then Response.Write 下一页 尾页 Else Response.Write 下一页 尾页 End If Response.Write rs.close End If End If Set rs = Nothing % 返回新闻中心 =,9.7.3新闻查询管理,9.8新闻评论管理模块设计,1.如何查看新闻评论? 2.添加新闻评