毕业设计（论文）-ASP新闻发布系统

山西工商学院毕业论文（设计） 第1页摘 要新闻发布系统的主要作用是系统管理员通过Internet能够方便，快速，简洁的管理新闻；普通用户能够快速地浏览新闻。系统制作过程中基于windows xp平台，用asp 和Access进行系统开发。系统实现了新闻的分类浏览、添加、修改和删除等功能。系统以数据库为后台，采用ASP技术开发前台，其功能简单、鲜明、实用性强，且具有良好的外设接口，能够很好的配合站点的其它子系统服务于各种新闻发布。关键词：ASP，ADO，新闻管理，目录第一章 前言1第二章 编程环境、语言简介22.1 ASP组件的体系结构22.2 ASP的数据库功能32.2.1 ASP支持的数据库种类32.2.2 ASP的数据库特性32.2.3用ASP调用ACESS语句42.3 Access 数据库的概述42.3.1 数据库概念42.3.2 Access数据库特点42.3.3 创建新表52.3.4连接数据库62.4系统开发运行环境6第三章 需求分析73.1 功能需求73.2 性能需求7第四章 总体设计84.1 系统模块结构设计84.2 数据库的搭建114.3 数据库的结构设计114.4 建立与数据库的连接数据库连接文件(conn.asp):14第五章 详细设计155.1 系统变量的定义及应用155.2 模块详细设计16第六章 测试和维护446.1 测试方法446.2 系统维护46结 束 语48致 谢49参考文献50山西工商学院毕业论文（设计） 第50页第一章 前言随着Internet快速发展，Web已经对企业及个人的工作和生活产生了深远的影响。许多传统的信息和数据库系统正在被移植到互联网上，人们获得信息的来源已经不再只是报纸、电视、广播等传统媒体。一个新的信息传送媒体逐渐被人们青睐。范围广泛的、复杂的分布式应用正在Web环境中出现。新闻网作为一个新时代传媒的产物，早已超过了国界，使一分钟游遍整个世界不再是神话。它摒弃了传统媒体的不足，正在已不可预知的速度向前发展。新闻发布系统是企业网站中最常用的系统，它的一个基本作用就是为企业提供信息发布的。使用ASP技术可以动态生成新闻静态页面，可以使新闻的发布和管理变得很轻松。管理员只需设置标题、内容和图片等新闻信息元素就可以了，系统将自动生成对应的网页。而使用Access数据库，将减轻了维护人员的工作量，使系统便于维护和管理。第二章 编程环境、语言简介ASP是全新的可视化编程环境，是一种方便、快捷的Windows应用程序开发工具。它使用了Microsoft Windows图形用户界面的许多先进特性和设计思想，采用了可重复利用的完整的面向对象程序语言(Object-Oriented Language)、当今世界上最快的编辑器、最为领先的数据库技术。一些早期的具有OOP性能的程序语言C+等，虽然具有面向对象的特征，但不能轻松地画出可视化对象，与用户交互能力较差，程序员仍然要编写大量的代码。ASP的推出，填补了这项空白。它允许在一个具有真正OOP扩展的可视化编程环境中，使用它的Object Pascal语言。这种革命性的组合，使得可视化编程与面向对象的开发框架紧密地结合起来。2.1 ASP组件的体系结构学习使用ASP 进行编程，最基本的就是学习使用VCL组件。ASP类可以粗略地分成两部分：一部分是组件类，这些组件类通常以某种方式出现在组件面板上，当用户从组件面板上点取一个类的图标后，在程序中就自动生成了该类的对象（非可视组件除外）；另一部分是功能类，这此功能类的对象通常出现在程序代码中，起着不可代替的作用，这些功能类在组件面板上是找不到的。在ASP中，每一个类的祖先都是TObject类，整个类的层次结构就像一棵倒挂的树，在最顶层的树根即为Tobject类。这样，按照面向对象编程的基本思想，就使得用户可用Tobject类这个类型代替任何其它类的数据类型。实际上在ASP的类库中，Tobject类派生出了为数相当众多的子类，它们形成了一个庞大的体系，通常情况下，如果不自行开发组件，就不必了解整个类的体系结构，只用到类层次树的叶结点就足够了。组件在ASP程序的开发中是最显眼的角色。大家知道，在编写程序时一般都开始于在组件面板上选择组件并定义组件间的相互作用。但也有一些组件不在组件面板上，例如Tform和Tapplication（典型的非可视组件）。组件是Tcomponents派生出来的子类，可以流的形式存放在DFM文件中，具有事件和Publish属性。窗口组件类是窗口化的可视化组件类，在ASP的类库中占有最大的份额。在实际编程中，窗口组件类的对象都有句柄，可以接受输入焦点和包含其它组件。图形组件与窗口组件并列，是另一大类组件。图形组件不是基于窗口的，因而不能有窗口句柄，不能接受输入焦点和包含其它组件。非可视组件是与可视组件相并列的另一类组件，非可视组件在程序运行中是不可见的（除各种对话框组件之外，事实上有人认为对话框组件不能归入非可视组件，应该是另一种介于可视与非可视之间的组件）。最后要说明一下，常说的控件实际上是一种组件。也就是说组件这个概念要大于控件，控件在内涵上包含于组件中。控件由Windows系列操作系统提出并使用，而组件是Borland和其它厂商在对Windows控件做了必要的扩展之后提出来的概念，它们是在不同时期由不同的厂商提出的概念。2.2 ASP的数据库功能2.2.1 ASP支持的数据库种类在数据库应用程序中通过BDE或ADO可以连接到相应的数据库上，这里的数据库又可以分为两种。一种是本地数据库，如Paradox，dBASE，FoxPro，Access等，一般用于编写单层的数据库应用程序，即本地数据库应用程序。另一种是远程数据库服务器，如Interbase，Oracle，Sybase，Informix，Microsoft ACESS Server和DB2等，一般用于编写客户/服务器数据库应用程序和多层数据库应用程序。本程序用于单机应用，因此采用了广为流行的Access。ASP数据库应用程序是通过BDE或ADO获取他们所需的数据的，BDE或ADO与不同类型的数据源打交道。2.2.2 ASP的数据库特性ASP的部件板上提供了八页数据库应用程序开发涉及到的组件：BDE页（BDE）：用于通过BDE访问数据库；ADO页（ADO）：用于通过ADO访问数据库；数据访问页（Data Access）：用于连接BDE、ADO页的控件与Data Control页的控件；数据控制页（Data Control）：用来与用户交互、显示、修改数据库中的数据；数据分析页（Decision Cube）：用于对数据库种的数据进行分型并提供柱型图、饼图、线性图等直观的图表显示方式；多层数据库开发页（MIDAS）：用于开发多层客户/服务器应用程序；WEB应用程序开发页：实现基于Internet的数据库应用程序的开发及应用；QReport页：实现数据库应用程序中各种报表的设计及输出；InterBase部件页：提供了数据库应用程序直接访问InterBase数据库的功能；Server部件页：该部件组提供了数据库应用程序与Microsoft Office中Word,Excel等部件的集成。2.2.3用ASP调用ACESS语句ACESS是Structed Query Languge(结构化查询语言)的缩写。ACESS是专为数据库而建立的操作命令集，是一种功能齐全的数据库。在使用时，只需要发出“做什么”的命令，“怎么做”是不用使用者考虑的。ACESS功能强大、简单易学、使用方便，已经成为了数据库操作的基础，并且在几乎所有的数据库库均支持ACESS。ASP中可通过Query、ADOQuery两种控件来执行ACESS。它们分别用于BDE和ADO两种连接数据库方式。本进销存信息系统采用BDE连接数据库，操作数据全部采用ACESS语句。2.3 Access 数据库的概述2.3.1 数据库概念Microsoft Access是一种关系式数据库，关系式数据库由一系列表组成，表又由一系列行和列组成，每一行是一个记录，每一列是一个字段，每个字段有一个字段名，字段名在一个表中不能重复。Access数据库以文件形式保存，文件的扩展名是MDB。Access 数据库由七种对象组成，它们是表、查询、窗体、报表、宏、页和模块。2.3.2 Access数据库特点Access是一种关系型数据库管理系统，其主要特点如下：(1)面向对象Access是一个面向对象的开发工具，利用面向对象的方式将数据库系统中的各种功能对象化，将数据库管理的各种功能封装在各类对象中。它将一个应用系统当作是由一系列对象组成的，对每个对象它都定义一组方法和属性，以定义该对象的行为和外国，用户还可以按需要给对象扩展方法和属性。通过对象的方法、属性完成数据库的操作和管理，极大地简化了用户的开发工作。同时，这种基于面向对象的开发方式，使得开发应用程序更为简便。（2）界面友好、易操作Access是一个可视化工具，是风格与Windows完全一样，用户想要生成对象并应用，只要使用鼠标进行拖放即可，非常直观方便。系统还提供了表生成器、查询生成器、报表设计器以及数据库向导、表向导、查询向导、窗体向导、报表向导等工具，使得操作简便，容易使用和掌握。（3）集成环境、处理多种数据信息Access基于Windows操作系统下的集成开发环境，该环境集成了各种向导和生成器工具，极大地提高了开发人员的工作效率，使得建立数据库、创建表、设计用户界面、设计数据查询、报表打印等可以方便有序地进行。（4）Access使用兼容的文件格式。Access 2003使用Access 2000作为数据库的默认文件格式，同时提供了Access 2000 /2003文件格式。因此以前的Access用户可以在保持现有Access解决方法的前提下，升级为Access 2003。2.3.3 创建新表在数据库里创建里创建新表。如：在“news”数据库里创建新表。具体步骤如下：（1）打开“news”数据库。（2）在数据库窗口中，选择“对象”选项中的“表”选项。（3）双击右侧窗格中的“使用设计器创建表”选项，单击“数据库”窗口工具栏上的“新建”按钮，选择“设计视图”单击确定。（4）按照表结构，在窗口中“字段名称”列中输入相应的字段名，选择“数据类型”列中的数据为“文本”型，在“字段属性”中的“常规”中修改“字段大小”数值，在“格式”属性设置数据格式.（5）单击“保存”。2.3.4连接数据库微软的JET数据库引擎提供了与数据库打交道的途径，我们是通过它以及Visual Basic 来访问数据库并对其进行各种操作。Visual Basic、Access以及其他微软的软件产品都是通过共用JET数据库引擎，从而给用户提供了丰富的数据类型。DATA 控件在数据库中的信息与将信息显示给用户看的Visual Basic程序之间架起了一座桥梁。我们可以设置DATA控件的各个属性，告诉它要调用数据库的哪个部分。缺省情况下，DATA控件根据数据库中的一个或多个数据表建立一个dynaset-type（动态集合）类型的记录集合。一个记录集合是动态的也就意味着，当原来的数据表中的内容改变了以后，该记录集合中的记录也会随之改变。DATA控件还提供了用来浏览不同记录的各种跳转按钮。将DATA控件放置在窗体中之后，我们还必须在该控件与要处理的数据库之间建立联系。2.4系统开发运行环境 系统开发环境：Macromedia Dreamweaver 8系统开发语言：ASP运行平台：Windows XP数据库：Access 2000Web服务器：IIS5.1 第三章 需求分析3.1 功能需求新闻发布系统是构成企业网站的重要组成部分，它一方面用来发布企业的最新公告，另外一方面可以发布与企业相关的新闻动态。新闻发布系统可以实现以下功能。（1）为企业提供信息发布的平台，可以用来发布与企业相关的新闻信息。（2）任何注册和非注册人员都可以访问浏览系统上的新闻信息和新闻评论信息。（3）可以赋予用户权限，根据权限显示不同的功能模块。（4）管理员可以完成删除、修改和添加新闻信息等操作。（5）新闻信息可以按照新闻主题、新闻内容、新闻编号等条件进行搜索。（6）系统具有可设置是否必须注册才能发表评论；可设置是否只能管理员才能修改和删除评论信息；可以设置过滤词语；防灌水功能，可设置用户发表评论时间间隔等功能。3.2 性能需求(1) 操作应方便、灵活。(2) 系统应有较高的稳定性。(3) 系统应有较高的安全性。(4) 系统应有较高的容错性。(5) 速度上要求前台要能够很快地反应用户，后台操作不能出现超时现象。(6) 在结构上应具有很好的可扩展性，便于将来的功能扩展和维护。第四章 总体设计4.1 系统模块结构设计新闻发布系统前台功能结构，如图4-1所示：新闻发布系统后台功能结构，如图4-2所示：新闻发布系统E-R图，如图4-3所示：4.2 数据库的搭建 Access2000 就是关系数据库开发工具，数据库能汇集各种信息以供查询、存储和检索。Access 的优点在于它能使用数据表示图或自定义窗体收集信息。数据表示图提供了一种类似于 Excel 的电子表格，可以使数据库一目了然。另外，Access 允许创建自定义报表用于打印或输出数据库中的信息。Access也提供了数据存储库，可以使用桌面数据库文件把数据库文件置于网络文件服务器，与其他网络用户共享数据库。Access 是一种关系数据库工具，关系数据库是已开发的最通用的数据库之一。如上所述，Access 作为关系数据库开发具备了许多优点，可以在一个数据包中同时拥有桌面数据库的便利和关系数据库的强大功能。单击Microsft Access2000 的菜单“文件|新建”来建立数据库，将数据库保存在“ d:新闻发布系统data”文件夹，命名为“news.mdb”。然后，依次创建“adminInfo”、“discussInfo”等。具体过程略。4.3 数据库的结构设计adminInfo设计视图discussInfo设计视图gonggaoInfo设计视图newsclassInfo设计视图newsInfo设计视图VoteIP设计视图VoteItem设计视图4.4 建立与数据库的连接数据库连接文件(conn.asp): 第五章 详细设计5.1 系统变量的定义及应用在VBScript 中只有一个基本数据类型，即Variant,因此所有变量的数据类型都是variant.1.声明变量声明变量的常用方式是使用Dim 语句、Public语句和Private语句在脚本中显式声明。例如：声明多个变量时，中间使用逗号隔开，如另一种方式是在VBScript中直接使用变量，即隐式声明；要求变量在使用前声明的语句为：2.变量命名规则变量命名必须遵循VBScript的标准命名规则，必有遵循：第一个字符必须是字母；不能包含嵌入的句点；长度不能超过255个字符；在被声明的作用域内必须惟一。合法的变量名，例如Str1、MyVar1、j、k,不合法的变量名，例如1a、_abc、a.b等。3.变量的作用域与存活期变量的作用域由声明它的位置决定。如果在过程中声明变量，则只有该过程中的代码可以访问或更改变量值，此时变量具有局部作用域并被称为过程级变量。如果在过程之外声明变量，则该变量可以被脚本中所有过程识别，称为脚本级变量，具有脚本级作用域。变量存在的时间称为存活期。脚本级变量的存活期从被声明的一刻起，直到脚本运行结束。对于过程级变量，其存活期仅是该过程运行的时间，该过程结束后，变量随之消失。在执行过程时，局部变量是理想的临时存储空间。可以在不同过程中使用同名的局部变量，这是因为每个局部变量只被声明它的过程识别。4.标题变量与数组变量一般情况下，只需为声明的变量赋一个值。只包含一个值的变量被称为标题变量。有时候，将多个相关值赋给一个变量更为方便，因此可以创建包含一系列值的变量，称为数组变量。数组变量和标题变量是民相同的方式声明的，惟一的区别是声明数组变量时变量名后面带有括号（）。注：同时使用Preaerve关键字在重新调整大小时保留数组的内容。5.2 模块详细设计该系统主要分为三大功能模块，其中公用模块、前台系统功能模块和后台系统功能模块：公共模块此模块属于系统公用部分，系统中任何页面需要用此模块时直接调用即可。此模块包括数据库连接文件、层叠样式表文件、常量文件、数据转换和图片上传文件、公共版面文件。此模块负责与数据库的连接、定义页面风格、一些常用的常量以及进行数据转换和图片上传，把系统各页面的共同部分放在公共版面文件等。前台系统功能模块此模块实现了浏览者功能区的所有功能。此模块由用户浏览模块、新闻搜索模块、新闻投票模块组成。这三个模块的功能如下所示。（1）用户浏览模块：此模块包括系统首页、版块新闻标题浏览、浏览新闻信息发表评论、新闻评论信息浏览、公告信息浏览。此模块负责版块新闻标题信息的显示，新闻信息的显示、新闻评论信息的显示、公告信息的显示。该系统中所有的新闻信息和新闻评论信息以及版块信息和公告信息全在此模块中显示，用户在浏览新闻信息的同时还可以发表评论。访问者和管理员进入该系统必须首先进入该模块。此模块包括系统的首页，该页面显示所有新闻类别及部分新闻标题。关键代码 调用公共版面部分 显示热点新闻      热点新闻   【】a href=View.asp?classid=&newsid= target=_blank % If Rs1(images) ThenResponse.Write 图 End IfIf Len(Rs1(title)19 ThenResponse.Write Left(Rs1(title),18) & ElseResponse.Write Rs1(title) End If%  点击：次 显示最新公告    最新公告% response.write set Rs=server.CreateObject(adodb.recordset) sql=select * from gonggaoInfo Rs.open sql,conn,1,1 Do While not Rs.EOF response.write & Rs(title) &   Rs.MoveNextloop rs.close set rs=nothing response.write %显示最新新闻动态      最新 % classid1=Rs1(classid)Set Rs2 = Server.CreateObject(ADODB.Recordset) Sql2=Select Top 3 * From newsInfo Where classid=&classid1& Order By newstime DescRs2.Open Sql2,conn,3,3 If Rs2.Eof And Rs2.Bof ThenResponse.Write  Response.Write 本新闻版块暂无新闻信息！Response.Write ElseDo While not Rs2.EOF%   a href=View.asp?classid=&newsid= target=_blank % If Rs2(images) ThenResponse.Write 图 End IfIf Len(Rs2(title)30 ThenResponse.Write Left(Rs2(title),29) & ElseResponse.Write Rs2(title) End If %  a href=List.asp?classid=更多     （2）新闻搜索模块：此模块包括新闻搜索页。所有用户均可在论坛内搜索符合指定条件的新闻，单击新闻标题外国投资查看新闻详细信息。关键代码 创建网页表单 选择查询方式： 新闻编号 新闻主题 （请先输入查询关键字） 查询并显示新闻信息 新 闻 主 题 点击率 发表时间% If Session(name) Then %相关操作 % Set Rs = Server.CreateObject(ADODB.Recordset)If Request(action) = Find Thenkey = Trim(Request(key)If Request(select) = newsid ThenSql = Select * From newsInfo Where newsid Like %&key&% Order By newstime DescElseIf Request(select) = title ThenSql = Select * From newsInfo Where title Like %&key&% Order By newstime DescElseResponse.Write alert(查询错误！);Response.EndEnd IfElseSql = Select * From newsInfo Order By newstime DescEnd IfRs.Open Sql,conn,3,3If IsNumeric(Request(Page)=false Or Request(Page)= ThenPage=1ElsePage=CInt(Request(Page)End ifRs.PageSize=10 If Rs.Eof And Rs.Bof ThenResponse.Write 没有搜索到相关的新闻！ Response.EndElsemyPageSize=Rs.PageSizeRs.AbsolutePage=PageDo While not Rs.Eof And myPageSize0 %  a hre