基于ASP的新闻发布管理系统设计

脚本语言与ASP技术实训南京xx职业技术学院 实训/实习报告设计题目： 新闻发布 班级名称： 学生姓名： 指导老师： 评阅老师： 同组人员： 2009年12月212009年12月254脚本语言与ASP技术课程实训任务书脚本语言与ASP程序设计是我院计算机网络专业集中实践性环节之一，是学习完脚本语言与ASP程序设计、网页制作、网络数据库课程后进行的一次全面的综合练习。其目的在于加深对网站开发的理解，掌握使用asp语言进行编程和用Dreamweaver制作网页的基本方法，提高开发网站实际操作的能力。一、基本要求 要求学生认真对待本次课程设计，积极利用机房、网络资源，积极了解网页设计的前景，学会用ASP和HTML进行网络编程以及Dreamweaver中各种菜单的使用，具备一定的网站开发能力。听从指导教师的安排，认真完成老师布置的各项任务，并以小组为单位，上交作品，同时交个人报告。二、实训目的 熟悉网站开发步骤； 掌握动态网页编程技术，综合运用所学动态网页知识； 掌握Response、Request和Session等ASP内置对象的综合应用。 掌握Connection、Recordset等ADO对象的综合应用 掌握SELECT、INSERT、UPDATE和DELETE等SQL语句的综合应用。三、任务和要求1、需求分析阶段主要任务是明确任务，书写需求分析报告，即告知你的系统是什么性质的系统，为谁服务的，使用对象是谁，需要具备那些功能模块，现有的知识技能能否实现你的系统。2、设计阶段包括界面设计，代码实现，这一阶段偏重于网页制作工具和技巧的应用，是整个论坛各个功能模块实现阶段。制作过程参考：1.划分模块；2.设计各模块的数据库；3.设计界面；4.编写代码。在代码编写过程中肯定会碰到问题，建议花课余时间把第六章的对象再好好学一下，分页显示要自己补充加强，再结合第九、十一、十二、十三章实例和网上查找资料，完成实训任务3、编写实训总结报告,提交任务要求的作品实训总结报告。最后上交实训总结报告和作品。目 录脚本语言与ASP技术课程实训任务书21、需求分析阶段22、设计阶段23、编写实训总结报告,提交任务要求的作品2第一章系统分析与总体设计11.1系统功能描述11.2系统功能模块划分21.3系统流程分析3第二章系统分析与总体设计42.1 创建数据库42.2数据库逻辑结构设计4第三章 目录结构与通用模块53.1 目录结构53.2 通用模块63.3 登录程序设计103.4 设计管理界面11第四章新闻查询管理164.1 新闻查询管理16总结29结束语29参 考 文 献29第一章 系统分析与总体设计很多网站都提供新闻栏目，例如搜狐、新浪等著名网站的新闻专栏。许多企业和个人网站也需要定期发布一些关于企业或网站的新闻。因为网络中新闻发布的频率非常高，如果使用静态网页作为新闻页面，则维护工作将非常繁琐，管理员每天需要制作大量的网页，从而浪费很多时间和精力。使用新闻发布及管理系统可以使新闻发布和管理变得很轻松，管理员只需设置标题、内容和图片等新闻就可以了，系统将自动生成对应的网页。本文将对新闻发布及管理系统进行系统分析与总体设计。1.1 系统功能描述新闻发布及管理系统包括新闻发布管理、图片处理、新闻查询和网友评论等模块。具体描述如下：1新闻发布管理：(1)基本新闻信息的录入，包括新闻标题、新闻内容和所属类别等；(2)基本新闻信息的修改；(3)基本新闻信息的删除；3图片处理模块：(1)选择图片文件；(2)上传图片文件；(3)存储图片新闻；(4)修改新闻图片；(5)删除新闻图片；(6)在网页中浏览新闻图片。4新闻查询模块：(1)按照新闻类别分页显示新闻； -(2)按照日期分页显示新闻。5网友留言模块：(1)网友对某条新闻发表评论；(2)管理员可以删除新闻评论。1.2 系统功能模块划分从功能描述的内容可以看到，本实例可以实现4个完整的功能。我们根据这些功能，设计出系统的功能模块，如图1所示。新闻发布及管理系统新闻发布及管理图片处理模块新闻查询模块网友评论模块图1 新闻发布及管理系统功能模块示意图新闻发布及管理系统的功能模块之间的关系如图2所示。后台系统 前台系统数据库基本信息发布新闻图片发布新闻查询管理发表网友评论图2 新闻发布及管理系统的功能模块关系图在本系统中，用户管理模块的功能比较简单。在系统初始化时，有一个默认的“系统管理员”用户Admin，由程序设计人员手动地添加到数据库中。普通用户则只能注册和登录。1.3 系统流程分析为了使读者进一步了解本实例系统的设计，本小节将对系统进行流程分析。多用户系统的工作流程都是从用户登录模块开始，对用户的身份进行认证。身份认证可以分为以下两个过程：(1)确认用户是否是有效的系统用户。(2)确定用户的类型。第1个过程决定用户能否进入系统。第2个过程根据用户的类型决定用户的操作权限。本系统分为前台系统和后台系统两个部分。前台系统不需要进行身份认证，任何人都可以通过浏览器阅读已经发布的新闻、发表网友评论。后台系统的流程分析如图3所示。Admin用户拥有所有的权限，普通用户只能查询新闻和查看新闻。开始用户登录失败重试管理所有的信息管理发布信息，所有新闻信息的管理查询新闻和查看新闻Admin普通用户图3 后台系统的流程分析Command、RecordSet、Field对象使用。第二章 系统分析与总体设计2.1 创建数据库首先创建一个数据库news，用来保存本系统的所有数据。创建数据库的脚本代码如下：CREATE DATABASE news GO可以在SQL查询分析器中执行该语句，创建数据库。2.2 数据库逻辑结构设计 本系统定义的数据库中包含以下4个表：新闻类别表：Category、新闻基本信息表：News、网友评论信息表：Discuss和用户信息表：users。下面分别介绍这些表的结构。1新闻类别表Category新闻类别表Category用来保存新闻类别数据，结构如表1所示。表1表Category的结构编号字段名称数据结构说明1CateIdint新闻类别编号2CateNamevarchar (50)新闻类别名称2基本新闻表News基本新闻表News用来保存网上新闻的基本信息，结构如表2所示。表2表News的结构编号字段名称数据结构 说明1 Idint新闻编号2Titlevarchar(100)新闻标题3Contenttext新闻内容4PostTimeVarchar(50)提交时间5Postervarchar(50)提交人6CateIdint新闻类别编号7Attpicbit是否有图片标记(0没有；1有)8Readcountint阅读次数3网友评论信息表Discuss网友评论信息表Discuss用来保存网友对新闻的评论信息，结构如表3所示。表3表Discuss的结构编号字段名称数据结构说明1idint评论编号2UserIdvarchar(20)评论人名称3Posttimesinaildatetime提交时间4Contentvarchar(4000)评论内容5Newsldint新闻编号4用户信息表Users用户信息表Users用来保存用户的基本信息，结构如表4所示。表4 表Users的结构编号字段名称数据结构说明1UserIdint用户ID号。2UserNamevarchar(50)用户名3UserPwdvarcahr(50)密码4Enamevarchar(50)用户姓名5Emailvarchar(50)电子邮箱第三章 目录结构与通用模块3.1 目录结构在运行实例时，需要将web目录复制到IIS/PWS的根目录下，例如目录下包含下面两个子目录：images用于存储上传的新闻图片；pic用于存储网页中的图片文件；其他ASP文件都保存在web目录下。3.2 通用模块本实例中包含一些通用模块，这些模块以文件的形式保存，可以在其他文件中使用#include语句包含这些模块，使用其中定义的功能。1ConnDB.aspConnDB.asp的功能是实现到数据库的连接，因为在很多网页中都有连接数据库的操作，所以把它保存在文件ConnDB.asp中，这样可以避免重复编程。ConnDB.asp的代码如下：在文件中引用此文件作为头文件就可以访问数据库，代码如下：2IsAdmin.asp因为本实例中有些功能只有Admin用户才有权限使用，所以在进入这些网页之前，需要判断用户是否是Admin。IsAdmin.asp的功能是判断当前用户是否是Admin，如果不是，则中断执行；如果是，则不执行任何操作，直接进入包含它的网页。IsAdmin.asp的代码如下：% If Session(UserName) Admin Then Response.Write(不是Admin用户，没有此权限) Response.End End If%在文件中引用此文件作为头文件，代码如下:3IsAuthor.asp在修改和删除新闻时，除了Admin用户拥有所有权限外，其他用户只能查询和查看新闻。所以在修改和删除新闻时，需要判断当前用户是否是Admin。IsAuthor.asp可以实现此功能，代码如下：% If Session(UserName) Admin Then NewsId = Request(Id) set rsNews = Server.CreateObject(ADODB.RecordSet) sql = SELECT * FROM News WHERE Id= & Trim(NewsId) set rsNews=Conn.Execute(sql) Set Rs=conn.Execute(sql) If rsNews.EOF Then Response.Write 指定新闻不存在 Response.End Else If rsNews(Poster) Session(UserName) Then Response.Write 不是Admin，无权修改！ Response.End End If End If End If%如果当前用户是Admin，则IsAuthor.asp不做任何操作；否则，程序将根据参数Id读取新闻信息，并将Poster字段的值与当前用户名进行比较。在两种情况下，IsAuthor.asp将阻止程序继续执行：(1)指定新闻不存在；(2)当前用户不是Admin。使用Response.End可以结束网页的输出。在文件中引用此文件作为头文件，代码如下：4template.asp在添加和修改新闻内容时，需要对字体、字号、颜色和排列位置等属性进行设置。Template.asp可以实现这些功能。Template.asp的设计界面如图5所示。图5 Template.asp的设计界面在使用template.asp时，设置指定的选项，将会在新闻内容中生成相应的HTML代码。相关代码如下：字体 SELECT onChange=var c=this.optionsthis.selectedIndex.value;if(selection.createRange().text!=)selection.createRange().text=+selection.createRange().text+elsemyform.txtcontent.value = +myform.txtcontent.value+ name=font style=FONT-SIZE: 9pt宋体楷体新宋体黑体隶书Andale MonoArialArial BlackBook AntiquaCentury GothicComic Sans MSCourier NewGeorgiaImpactTahomaTimes New RomanTrebuchet MSScript MT BoldStencilVerdanaLucida Console在下拉菜单中，定义了系统支持的字体名称，下拉菜单的值与字体名称相同。当下拉菜单的选择发生变化时，将触发onChange事件，程序中直接定义了对应的JavaScript代码。This表示字体下拉菜单，thisselectedlndex表示当前选择的菜单项目索引，This.optionsthis.selectedlndex.value则表示选择下拉菜单的值，程序将其保存变量C中。Selection.createRangeO.text表示当前选择字符的内容，如果它不为空，则将其替换为如下代码：selection.createRange().text=+selection.createRange().text+也就是在它的两侧添加字体标识和。如果没有选择字符，则在输入新闻内容的文本域中直接加入字体标识，用户可以在和之问添加相应的文字，代码如下：myform.txtcontent.value=+myform.txtcontent.value+在添加和修改新闻内容的网页中，必须将表单定义为myform，输入新闻内容的滚动文本框定义为txtcontent，否则此功能将无法实现。3.3 登录程序设计在对系统进行管理之前，需要通过系统的身份认证。本站中使用chkpwd.asp进行身份验证。对于需要登陆才能察看的网页可以在网页的最前端加上如下代码：这样为登陆的用户将看到如下界面：3.4 设计管理界面 管理界面的功能是对新闻类别和新闻提供管理界面，只有有权限的用户才能进入管理界面。本节将介绍管理界面index.asp的实现方法。录入新闻类别和新闻内容后，index.asp的界面如图5-7所示。 下面介绍index.asp的主要代码。(1)包含文件 在index.asp的开始部分添加下面的代码，这样在打开网页时，程序会自动连接到数据库，并进行身份验证。 (2)显示新闻类别链接index.asp将新闻按照分类显示，每个新闻类别只显示最新的20条新闻。显示新闻类别的代码如下：| a href=index.asp?flag= 在调用index.asp时，参数flag表示新闻类别。如果flag=0，则显示全部新闻，否则显示指定类别的新闻。(3)显示管理链接在index.asp中，将根据用户类型显示管理链接，包括“用户管理”和“退出登录”，只有Admin用户才能看到“类别管理”和“用户管理”链接。显示管理链接的代码如下：% If Session(UserName) = Admin Then Response.Write   类别管理 Response.Write    用户管理 sql_where = Else sql_where = Poster= & Session(UserName) & End If%Session(”UserName”)中保存着当前登录用户的用户名。当Session(”UserName”)=”Admin”时，才能显示“类别管理”和“用户管理”超级链接。从程序中可以看到，各项管理功能对应的页面如下：(1)更改密码PwdChange.asp；(2)类别管理CateAdmin.asp；(3)用户管理UserList.asp；(4)退出登录logout.asp。变量sql_where用来记录查询条件。如果当前用户是Admin，则sql_where=“”，即显示所有新闻；否则设置查询条件为“Poster=“”&Session(“UserName”)&“”，即只能管理自己创建的新闻。(4)分页显示新闻信息下面将根据指定的新闻类别和页码显示新闻标题列表，代码如下：% If iflag = Then If sql_where = Then sql = SELECT * FROM News ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE & sql_where & ORDER BY Posttime DESC End If Else If sql_where = then sql = SELECT * FROM News WHERE CateId= & iflag & ORDER BY Posttime DESC Else sql = SELECT * FROM News WHERE CateId= & iflag & And & sql_where & ORDER BY Posttime DESC End If End If rs.Open sql,conn,1,1 If rs.EOF Then Response.Write 目前还没有记录。 Elsers.PageSize = 20 Page = CLng(Request(Page) If Page rs.PageCount Then Page = rs.PageCountrs.AbsolutePage = Page For i = 1 to rs.PageSize if rs.EOF then Exit For% a href=newsView.asp?id= onClick=return newwin(this.href) a href=newsedit.asp?id= onClick=return newwin(this.href)修 改 input type=checkbox name=News id= style=font-size: 9pt value=ON 1 then Response.Write 分页： For i = 1 To rs.PageCount Response.Write Response.Write & i & Next Response.Write End If End If%这部分代码的关键部分是根据新闻类别和用户类型生成SELECT语句，查询指定的新闻记录。在调试程序时，可以使用下面的语句显示SELECT语句的内容。Response.write sql29第四章 新闻查询管理4.1 新闻查询管理如果系统中新闻数量比较多，那么只按照分类察看新闻显然是不够的。为了方便网友使用，本站中设计了新闻管理功能。新闻查询管理页面的脚本是search.asp，运行界面如图所示可以看到，新闻查询可以分为下面几种情况： (1)按发布日期查询。 (2)查询新闻标题和新闻内容中包括的文字。在search.asp中，用于编辑查询条件的表单为Form1，它的定义代码如下：当表单数据提交时，将执行searchResult.asp。为了验证用户录入数据的有效性，在search.asp中定义了一些函数，下面介绍这些函内容。1IsEmpty()函数IsEmpty()函数的功能是判断字符串是否为空，代码如下：function isEmpty (str) if (str=null)|(str.length=0) return true;else return(false);参数str表示要判断的字符串，如果它为空或长度为0则返回true，否则返回false。2IsDigital()函数IsDigital()函数的功能是判断字符串是否是数字类型，代码如下：function isDigit(s)var patrn=/0-91,20$/;if (!patrn.exec(s) return falsereturn true参数s表示要判断的字符串。变量patrn是一个正则表达式，正则表达式是由普通字符以及特殊字符组成的文字模式。该模式描述在查找文字主体时待匹配的一个或多个字符串。正则表达式作为一个模板，将某个字符模式与所搜索的字符串进行匹配。正则表达式中的Execute方法对指定的字符串执行正则表达式搜索。/表示正则表达式的开始，$/表示正则表达式的结束，09表示以09的数字为开始和结束，1,20表示长度为120。3IsInt()函数IsInt()函数的功能是判断指定的字符串是否是整型数据，代码如下：function isInt (theStr) var flag = true;if (isEmpty(theStr) flag=false; else for (var i=0; itheStr.length; i+) if (isDigit(theStr.substring(i,i+1) = false) flag = false; break;return(flag);参数theStr表示要判断的字符串。如果theStr为空，则返回false；否则对theStr中的每个字符进行判断，如果有一个字符不是数字类型(使用IsDigital函数判断)则返回false。如果上述情况都没有返回false，则返回true。4.IsBetween(、)函数IsBetween()函数的功能是判断指定数据是否在两个数字之间，代码如下：function isBetween (val, lo, hi) if (val hi) return(false); else return(true); 参数val表示要比较的数值，参数lo表示比较范围的下限，参数hi表示比较范围的上限。程序将val与lo、hi进行比较，如果val的值不在它们之间，则返回false，否则返回true。5IsIDate()函数IsDate()函数的功能是判断指定数据是否是日期型数据，代码如下：function isDate (theStr) var the1st = theStr.indexOf(-);var the2nd = theStr.lastIndexOf(-);if (the1st = the2nd) return(false); else var y = theStr.substring(0,the1st);var m = theStr.substring(the1st+1,the2nd);var d = theStr.substring(the2nd+1,theStr.length);var maxDays = 31;if (isInt(m)=false | isInt(d)=false | isInt(y)=false) return(false);else if (y.length 0) maxDays = 28;else if (y % 100 = 0 & y % 400 0) maxDays = 28;else maxDays = 29;if (isBetween(d, 1, maxDays) = false) return(false); else return(true); 可以看到前面定义的函数都是为了实现Isdate()函数的功能。在search.asp中，定义“开始”按钮的代码如下：当用户单击“开始”按钮时，将触发onclick事件，并执行Button2_onclick()函数，代码如下：function button2_onclick() / 字段不能都为空，如果发布日期为空，则查询条件不能空 if (form1.sdate.value= & form1.edate.value= & form1.searchcontent.value = ) alert(查询条件不能都为空！); form1.searchcontent.focus(); return (false); / 检查日期格式是否正确 if (form1.sdate.value.length0) if(!isDate(form1.sdate.value) alert(开始日期格式不正确，请重新输入！);form1.sdate.focus();return (false); if (form1.edate.value.length0) if(!isDate(form1.edate.value) alert(截至日期格式不正确，请重新输入！);form1.edate.focus();return (false);这段程序将判断用户输入的查询条件是否为空，并使用自定义函数IsDate()验证日期是否有效。下面介绍searchResult.asp的实现方法。它的主要功能是根据用户提交的查询条件生成SELECT语句，并以表格的形式显示查询结果。在searchResuIt.asp中，定义了一个函数GetUserName()，它的功能是根据用户名返回用户的真实姓名，代码如下：这里使用GetuserName()函数的作用是取得新闻提交人的姓名，并在查询结果中显示。如果将本系统用于企业内部的新闻发布平台，则通常需要显示提交人姓名。如果不需要此功能，也可以将相关代码去掉。searchResult.asp的最重要部分就是生成查询新闻的SELECT语句，代码如下：0 And Len(eDate)0 ThenstrSqlPTime = WHERE PostTime= & sDate & strSqlPTime = strSqlPTime & And PostTime0 And Len(eDate)=0 ThenstrSqlPTime = WHERE PostTime= & sDate & ElseIf Len(sDate)=0 And Len(eDate)0 ThenstrSqlPTime = WHERE PostTime= & eDate & End If 取得查询模式（精确查询或模糊查询），参见search.asp中的定义 searchcontent1 = Request(searchcontent) fanwei = Request(fanwei) If fanwei =all Then 精确查询searchcontent = searchcontent1 Else 模糊查询searchcontent = % & searchcontent1 & % End If 取得查询范围值 searchfanwei = Request(D1) If searchfanwei=title Then 只在新闻标题中查询Response.Write 按 信息标题 查询的结果strSQL = Title LIKE & searchcontent & ORDER BY PostTime DESC ElseIf searchfanwe=content Then 只在新闻内容中查询Response.Write 按 信息内容 查询的结果strSQL = Content LIKE & searchcontent1 & ORDER BY PostTime DESC End If 合并查询条件 If Len(strSqlPTime)=0 Then strSQL = WHERE & strSQL ElsestrSQL = strSqlPTime & And & strSQL End If 记录查找到的新闻序号 Dim ncnt ncnt = 0 输出表格 Response.Write Response.Write Response.Write 序号 Response.Write 信息标题 Response.Write 所属类别 Response.Write 内容长度 Response.Write 提交人 Response.Write 提交时间 Response.Write Dim rsSearch,rsCate Set rsSearch= Server.CreateObject(ADODB.RecordSet) Set rsCate = Server.CreateObject(ADODB.RecordSet) 生成查询语句 strSQL = SELECT * FROM News & strSQL Response.Write sql :& strSQL rsSearch.Open strSQL, Conn, 1, 3以上代码的工作过程如下：根据参数sdate和edate生成与日期相关的查询条件；根据查询模式(精确查询或模糊查询)生成相关的查询条件。如果是精确查询，则使用“=”；如果是模糊查询，则使用LIKE和通配符；根据查询范围生成相关的查询条件；将所有查询条件合并成WHERE子句；生成显示查询结果的表头；生成并执行SELECT语句。-接着程序将使用循环语句依次处理每条查询记录，代码如下：依次处理查询结果 Do While Not rsSearch.EOF ncnt = ncnt + 1 Response.Write Response.Write &ncnt& 输出新闻标题及链接 Response.Write &rsSearch(Title)& 判断是否有图片 If rsSearch(attpic) Then Response.Write (附图) End If Response.Write 取得信息分类名称 sql = SELECT * FROM Category WHERE CateId= & rsSearch(CateId) Set rsCate = Conn.Execute(sql) If NOT rsCate.EOF Then Response.Write &rsCate(CateName)& End If 计算内容大小 If rsSearch(Content)=- Then nlength=0 Else nlength = Len(rsSearch(Content) 输出内容大小、提交人姓名 Response.Write &nlength Bytes 显示提交人姓名 Response.Write &GetUserName(rsSearch(Poster)& 显示提交时间 Response.Write &rsSearch(PostTime)& Response.Write End If rsSearch.MoveNext() LOOP Response.Write Set rsSearch = Nothing Set rsCate = Nothing Set Conn = Nothing %输入时间：查询结果：输入查找内容：效果显示：查询无内容：总结经过那么多天的实训，通过自己的实践，我懂得了做好一个网站时那么的不容易，其中最主要的还是我们要认真打每一段代码，弄懂它们在整个网站中起到了什么作用，我们才能更好的运用代码，做好网站。结束语 经过老师耐心细致的指导，及设计小组同学们的密切合作，同时翻阅了大量的资料(包括网上资料，书本及学校的一些相关资料)经过近一个星期的努力，网站的设计制作终于完成。总结这次“新闻发布网站”开发制作过程，我们综合使用了目前因特网上的各种静态制作方法及交互式动态网站的制作设计手段，并对初步利用后台程序完成了网站的动态响应与生成网页的技术。在交互式网页设计学会了如何使用MYSQL建立数据库，以及对数据库浏览，修改，添加，查询。本次设计由于设计时间较紧，且相关模块比较多，加之设计经验的不足，在网站的整体设计及各模块功能可能设计的不完全，有待于进一步的完善和改进。 参 考 文 献 1、FrontPage2000入门与实战技术，人民邮电出版社2000年5月第1版。 2、互联网上提供的网页制作素材及特效。3 ASP+SQLSEVER项目开发。