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

第9章新闻发布及管理系统本章内容要点系统分析及总体设计数据库分析和设计新闻发布系统的开发新闻管理系统的开发新闻阅读及查询系统的开发新闻评论系统的开发新闻发布管理系统开发小结开始前页后页结束9.1系统分析与总体设计很多网站都提供新闻栏目，例如搜狐、新浪等著名网站的新闻专栏。许多企业和个人网站也需要定期发布一些关于企业或网站的新闻。因为网络中新闻发布的频率非常高，如果使用静态网页作为新闻页面，则维护工作将非常繁琐，管理员每天需要制作大量的网页，从而浪费很多时间和精力。使用新闻发布及管理系统可以使新闻发布和管理变得很轻松，管理员只需设置标题、内容和图片等新闻就可以了，系统将自动生成对应的网页。本节将首先对新闻发布及管理系统进行系统分析与总体设计。开始前页后页结束9.1.1系统功能描述1．新闻类别管理新闻类别的录入，包括类别编号和类别名称等信息；新闻类别的修改；新闻类别的删除；新闻类别的查询。2．新闻发布管理基本新闻信息的录入，包括新闻标题、新闻雷同和所属类别等；基本新闻信息的修改；基本新闻信息的删除。3．图片处理模块选择图片文件；上传图片文件；储存图片新闻；修改新闻图片；删除新闻图片；在网页中浏览新闻图片。开始前页后页结束9.1.1系统功能描述4．新闻查询模块按照新闻类别分页显示新闻；按照日期分页显示新闻。5．网友留言模块网友对某条新闻发表评论；管理员可以删除新闻评论。6．系统用户管理功能系统用户信息的录入，包括用户名和密码等信息；系统用户信息的修改；系统用户信息的删除。开始前页后页结束9.1.2系统功能模块划分开始前页后页结束9.1.3系统流程分析开始前页后页结束9.2.3创建表的脚本文件1．创建表Category创建表Category的脚本文件为Category.sql，它的代码如下：======================================================================USEnewsGOCREATETABLECategory(CateIdIntIDENTTTYPRIMARYKEY,CateNameVarchar(50)NOTNULL)GO======================================================================开始前页后页结束9.2.3创建表的脚本文件2．创建表News创建表News的脚本文件为“News.sql”，它的代码如下：======================================================================USEnewsGOCREATETABLENews(IdIntIDENTTTYPRIMARYKEY,TitleVarchar(100)NOTNULL,ContentText,PostTimeDatetime,PosterVarchar(50)CateIdInt,AttpicIntDEFAULT0,ReadCountIntDEFALT0)GO======================================================================开始前页后页结束9.2.3创建表的脚本文件3．创建表Discuss创建表Discuss的脚本文件为Discuss.sql，它的代码如下：======================================================================USEnewsGOCREATETABLEDiscuss(IdIntIDENTTTYPRIMARYKEY,UserIdVarchar(20),PostTimeSmalldatetime,ContentVarchar(4000)NewsIdInt)GO======================================================================开始前页后页结束9.2.3创建表的脚本文件4．创建表Users创建表Users的脚本文件为Users.sql，它的代码如下：======================================================================USEnewsGOCREATETABLEUsers(UserIdIntPrimaryKeyIDENTTTY,UserNameVarchar(50)NOTNULL,UserPwdVarchar(50)NOTNULL,EnameVarchar(50),EmailVarchar(50))GOINSERTINTOUsers(UserName,UserPwd,Ename,Email)VALUES(‘Admin’,‘111111’,“,”)GO======================================================================开始前页后页结束9.3目录结构与通用模块9.3.1目录机构在运行实例时，需要将news目录复制到IIS（或PWS）的根目录下，例如C:\Inetpub\。news目录下，包含下面两个子目录：images用于存储上传的新闻图片；pic用于存储网页中的图片文件；其它ASP和HTM文件都保存在news目录下。9.3.2通用模块本实例中包含一些通用模块，这些模块以文件的形式保存，可以在其他文件中使用#include语句包含这些模块，使用其中定义的功能。开始前页后页结束9.4系统主界面与登录程序设计9.4.1设计主界面下面介绍default.asp的主要代码。======================================================================%′=====显示所有新闻类别供点击，点击不同类别显示该类别的新闻=====′按顺序读取所有新闻类别，保存在记录集rsCate中Sql=″SELECT*FROMCategoryORDERBYCateId″SetrsCate=conn.Execute(sql)′显示所以新闻类别链接DoWhileNotrsCate(″CateName″)cid=rsCate(″CateId″)′每个新闻类别标题被定义为一个书签，名为＃a类别编号％ahref=″#a%=cid″fontstyle=TEXT-DECORATOION:none;color:black′%=stitle%font/a%rsCate.MoveNextLoop％======================================================================开始前页后页结束9.4.2登录程序设计开始前页后页结束9.4.3设计管理界面Index.asp将新闻按照分类显示，每个新闻类别只显示最新的20条新闻。显示新闻类别的代码如下:======================================================================％Dimrs.rsCateSetrs=Server.CreateObject(″ADODB.RecordSet″)SetrsCate=Server.CreateObject(″ADODB.RecordSet″)′定义变量Dimiflag,sql_where′参数flag表示指定的新闻类别Iflag=Request.QueryString(″flag″)′设置SQL语句，读取所有的新闻类别到rs.CateAql=″SELECT*TROMCategoryORDERBYCateId″SetrsCate=conn.Executr(sql)′显示新闻类别链接，注意根据类别编号设置参数flagDOWHILENotrsCate.EOFStitle=rsCate(″CateName″)cid=rsCate(″CateId″)%|ahref=′index.asp?flag=%=cid%′fontstyle=′TEXT-DECORATION:none;color:black′%=stitle%/font/a%rsCate.MoveNextLoop%======================================================================开始前页后页结束9.5新闻类别管理模块设计新闻类别管理模块可以实现以下功能：添加新的新闻类别记录；修改新闻类别记录；删除新闻类别记录。只有Admin用户才有权限进入新闻类别管理模块，在index.asp中，单击“类别管理”超级链接，可以打开类别管理页面Cate_Admin.asp。开始前页后页结束9.5.1设计新闻类别管理界面开始前页后页结束9.5.2添加新闻类别在执行Cate_Admin.asp时，可以在url中包含参数，程序将根据参数Oper的值决定进行的操作，与添加数据相关的代码如下：======================================================================%'处理添加、修改和删除操作dimSoperateSoperate=Request.QueryString(oper)Operid=Request.QueryString(cid)'删除IfSoperate=deleteThen......'添加ElseIfSoperate=addthen'读取表单域txttitle,表示插入的新闻类别名CateName=Request(txttitle)'判断是否已经存在此类别名称sql=SELECT*FROMCategoryWHERECateName='&CateName&'Setrs=Conn.Execute(sql)'如果没有此类别名称，则创建新记录IfRs.EOFThensql=INSERTINTOCategory(CateName)VALUES('&CateName&')Conn.Execute(sql)Response.Write新闻类别已经成功添加！ElseResponse.Write已经存在此类别名称！EndIfSetrs=Nothing'修改ElseIfSoperate=editThen......EndIf%======================================================================开始前页后页结束9.5.3修改新闻类别在执行Cate_Admin.asp时，可以在url中包含参数，程序将根据参数Oper的值决定进行的操作，与修改数据相关的代码如下：======================================================================%'处理添加、修改和删除操作dimSoperateSoperate=Request.QueryString(oper)Operid=Request.QueryString(cid)'删除IfSoperate=deleteThen.........'添加ElseIfSoperate=addthen.........'修改开始前页后页结束9.5.3修改新闻类别ElseIfSoperate=editThen