《ASP网络程序设计与应用张应辉电子教案第9章节新闻发布及管理系统》由会员分享，可在线阅读，更多相关《ASP网络程序设计与应用张应辉电子教案第9章节新闻发布及管理系统（37页珍藏版）》请在金锄头文库上搜索。
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.
9、QueryString(“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 = “ & CateName & “ And CateId=“ & Operid Set rs = conn.Execute(sql)
10、If Rs.EOF Then 如果原类别编号和新类别名称不存在，则表示类别名称发生变化 Set rs = Nothing 此时判断是否存在此类别名称 sql = “SELECT * FROM Category WHERE CateName=“ & CateName & “ Set rs = Conn.Execute(sql) If Rs.EOF Then 新类别不存在 conn.Execute(“UPDATE Category SET CateName=“ & CateName & “ WHERE CateId=“ & Operid) Response.Write “新闻类别已经成功修改！“
11、Else Response.Write “已经存在此类别名称“ End if End If End If % =,9.5.4删除新闻类别,1选择全部复选框 在Cate_Admin.asp中，定义“全选”按钮的代码如下： 在单击“全选”按钮时，将执行sltA11()函数，代码如下： = Function sltA11() Var nn=self.document.all.item(Cate) For(j=0;jnn.length;j+) Self.document.all.item(Cate,j).ckecked=true; =,9.6新闻发布管理模块设计,系统用户都可以发布新闻，新闻发布管理模块包含以下功能： 发布新新闻； 修改新闻； 删除新闻。,9.6.1添加新闻,9.6.2新闻图片上传,9.6.3修改新闻,数据提交后，将由newsUpdate.asp进行处理，它的主要代码如下： = “) ChangeChr = Replace( ChangeChr, “ “, “) ChangeC
