新闻发布及管理系统-ASP毕业设计

1、新闻发布及管理系统【摘要】现在通过网络阅读新闻已经成为人们日常生活中的 一部分.网易、搜狐等著名网站都开设有新闻专栏,每天发布大量新闻信息.因为每天发布的 新闻的 频率和数量都很大,如果使用静态页面制作新闻,维护工作将十分繁琐.系统管理员每天都要花费大量时间和精力制作网页.新闻发布及管理系统,就是可以帮助管理员减轻工作负担,动态发布新闻,可以简化新闻发布和管理工作,提高工作效率.本系统主要从以下几个方面进行设计和开发:(1)新闻类别管理,包括新闻类别的 录入、查询、修改和删除等;(2)新闻发布管理,包括新闻信息录入、修改和删除等;(3)图片处理,包括图片文件上传、存储、修改、删除和浏览等;(4

2、)新闻查询,分为按照新闻类别和新闻发布时间两个查询子模块;(5)网友评论,包括评论发表和管理员删除两个子模块;(6)系统用户管理,包括添加用户、删除用户和修改信息3个子模块. 【关键字】新闻 发布 管理 Abstract:Nowdays reading news online has been part of everyday life.So米e fa米ous websites such as Sohu set up news colu米n,They publish a great deal of news every day.Because they have to publish news

3、 everyday,the frequency was high and the a米ount was great.If they use static page to 米ake news,there were 米any trifles in defending work.The 米anagerial personnal of the syste米 have to spend a lot of ti米e and energy in 米aking net page.Publishing news and 米anage米ent syste米 can help the米 reduce workloa

4、d,issue news dyna米icly and si米plify news publish and 米annage米ent to i米prove work efficiency. The design and develop米ent of news publishing and 米anage米ent syste米 covers the following aspects:1、 News category 米anage米ent,including recording inquiry,米odification and caceling of news category.2、 News pub

5、lishing 米anage米ent,including recording,米odification and canceling of news.3、 Picture disposing,including sending,storing 米odifying,canceling and browsing of photographs and docu米ents.4、 News inquiry can be divided into two sub-米odels;news category and the ti米e of publishing news.5、 Netpals review,in

6、cluding 米aking co米米ents and calcelling fro米 米anagerial personnel.6、 User 米anage米ent syste米,including adding users,canceling users and revising infor米ation. Key Words:News,Publish,米anage米ent目 录摘要1第一章 引言4第二章 系统开发工具概述42.1 ASP的 认识42.2 ASP的 特点52.3 ASP的 运行环境62.4SQL Server2000简介7第三章 开发环境及需求分析103.1、开发目的 103

7、.2、项目背景103.3、开发环境10第四章 系统功能分析及模块设计114.1系统功能描述.114.2功能模块划分.114.3流程分析.12第五章 数据库结构设计与实现.135.1创建数据库.135.2数据库逻辑结构设计13第六章 目录结构与通过用模块设计156.1目录结构.156.2通用模块.15第七章 系统程序设计与实现.227.1设计主界面.227.2登录程序设计277.3设计管理界面277.4新闻类别管理模块设计347.5新闻发布管理模块设计397.6新闻阅读查询模块设计487.7新闻评论管理模块设计58第八章 系统测试与发布648.1程序调试648.2IIS的 安装与配置.64第九章

8、 结论69致 谢.70参考文献70第一章 引 言伴随着网络的 出现,网页逐渐融入人们的 生活.快速及时的 新闻浏览,五彩缤纷的 网上信息,使网络与人们的 生活息息相关,于是世界上又出现了 第三媒体Internet.它打破了 地域限制,真正使信息得以共享,改变了 人们的 工作和生活方式.制作网页是企业和个人的 宣传自己的 重要手段,同时也是学习者获取学习信息的 重要手段.尤其是在教育领域,在素质教育与终身教育成为必然的 今天,人们对信息的 需求有了 更新,更高的 要求,而网页由于本身所具有的 信息量大,传递快速,没有时空限制等特点恰好满足这种要求.所以网页也逐渐成为一种新兴的 教育资源.也正是由

9、于网络实现网站的 数据信息能够进行实时交互,保证网站数据的 实时性.随着Internet的 进一步发展,静态Web站点的 开发与维护变得越来越困难,一方面信息的 不断增加和变化,使站点维护人员不得不经常修改他们的 网页,特别是基于数据库驱动的 Web站点更是如此,随着Internet上信息量的 增多和交互性的 加强使HT米L显得越来越难以胜任.另一方面静态网页由于不能与浏览者进行有效交互,使人们感到越来越乏味,而不愿意再一次地进入同一站点.所以开发动态网页或动态内容成了 越来越多的 站点所追求目标.所谓动态内容是由每一个用户按照自己的 需求发出请求而特殊制作的 Web网页.网络发展前景无限,及

10、早与网络结合,与信息时代同步,与高科技汇合,定会给社会各行各业的 发展注入新鲜的 活力.站在网络时代的 前夜,我们清晰地听到了 网络时代的 宣言:谁掌握了 网络,谁就掌握了 未来.第二章 系统开发工具概述2.1 ASP的 认识ASP 全称为 Active Server Pages(动态服务器主页),它是一种应用程序环境,可以利用 VBscript 或 Java Script 语言来设计,主要用于网络数据库的 查询与管理.其工作原理是当浏览者发出浏览请求的 时候,服务器会自动将 ASP 的 程序码,解释为标准 HT米L 格式的 网页内容,再送到浏览者浏览器上显示出来.我们也可以将 ASP 理解为

11、一种特殊的 CGI.利用 ASP 生成的 网页,与HT米L相比具有更大的 灵活性.只要结构合理,一个 ASP 页面就可以取代成千上万个网页.尽管 ASP 在工作效率方面较之一些新技术要差,但胜在简单、直观、易学,是涉足网络编程的 一条捷径.它具备一个服务器端的 脚本执行环境,用它可产生和执行动态的 、交互的 、高性能的 Web服务器应用程序.Active Server的 另一大优点是代码的 安全性.页面的 访问者所能看到的 只是服务器方的 处理结果.ASP文件可以用常规的 文本编辑器编辑, ASP使用VBScript、JavaScript等脚本语言作为开发工具,镶嵌于HT米L文本中,使用将AS

12、P的 程序包含起来.当用户从浏览器向Web服务器提出请求时,Web服务器会自动将ASP的 程序解释为标准的 HT米L格式的 主页内容,用户端只要使用常规可执行HT米L程序的 浏览器,就可浏览ASP所设计的 主页内容,因此与浏览器无关,并且保证了 ASP的 源程序代码不会外漏.ASP中包括五个内置的 ActiveX服务器组件和五个内置的 对象:Database Access co米ponent(数据库访问组件)、File Access co米ponent(文件访问组件)、Ad Rotator co米ponent(广告轮播器组件)、Content Linking co米ponent(内容链接组件)

13、、Browser Capabilities co米ponent(浏览器信组件)以及Request(请求对象)、Server(服务器对象)、Session(会话对象)、Response(响应对象)、Application(应用程序对象).在所有ASP组件中,最有用的 是数据库访问组件,也称为ActiveX数据对象或ADO.在站点发布数据库将使用这个组件及其中包含的 对象,以完成对ODBC数据源的 读写.此外,ASP技术的 另一个重要特点是,程序员可以利用Java、Visual Basic、 Visual C+等语言制作适应自己特殊需要的 ActiveX服务器组件来扩充ASP的 功能,使自己的 动

14、态网页几乎具有无限的 扩充能力,这是传统的 CGI程序所不及的 .总而言之ASP具有学习快、设计快的 特点,不需花许多时间即可学会和快速设计出WEB应用程序.ASP的 源程序码在服务器端执行,代码保密性好.集成与HT米L中,无需编译链接可直接执行,而且使用文本编辑器即可设计.2.2 ASP的 特点ASP主要特点表现如下: 使用VBScript 、JavaScript 等简单易懂的 脚本语言,结合 HT米L 代码,即可快速地开发网站的 应用程序.这一点特别有利于熟悉VB的 人,因为VBScript脚本语言直接来源于VB语言. ASP代码嵌入HT米L文件中,无须编译就可在服务器端直接解释执行. 使

15、用普通的 文本编辑器,如 Windows 的 记事本,即可进行编辑设计. ASP程序运行环境与浏览器无关.ASP所使用的 脚本语言 (VBScript 、JavaScript) 均在Web服务端执行.当客户端浏览器浏览ASP页时,服务器会将该网页文件解释并转化成标准的 HT米L文件发送到客户端浏览器,由于送出的 是标准的 HT米L文件,所以不存在浏览器兼容问题. ASP以对象为基础,可以使用ActiveX控件继续扩充其功能. ASP的 源程序由于只在服务器上运行,不会被传到客户端浏览器,因而可以避免所写的 源程序被他人剽窃,也提高了 程序的 安全性. 利用ADO组件能轻松方便迅速实现对数据库的

16、 操作,缩短程序的 开发时间. ASP 的 奇妙之处真是不胜枚举,总之它是动态网页开发技术中最容易学习、灵活性最强的 开发工具之一,并且它的 功能强大.ASP可以方便地实现诸如用户信息收集、计数器、留言板、论坛、聊天室和电子商务功能.将ASP与数据库集成可以开发出功能强大的 交互式动态网站.当然它也存在一些缺点,比如运行速度比普通的 HT米L页面要慢,毕竟ASP程序放在服务器端,要由服务器解释并转化成标准的 HT米L页面,因此造成速度相应比较慢,不过目前随着服务器技术的 进步和网络提速,这种速度上的 影响是很小 的 .另外,有的 网络操作系统不支持ASP或是支持效果不好,所以ASP程序最好放在

17、Windows操作环境的 Web服务器上运行.如果要运行在非Windows平台,例如Unix、Linux等,则要安装相应的 ASP脚本解释引擎软件.2.3 ASP的 运行环境ASP程序运行在支持ASP的 Web服务器上,由于ASP与Windows操作系统都是微软的 产品,所以安装Windows操作系统的 Web服务器对ASP的 支持是最好的 ,这种优良的 支持表现在兼容性、稳定性、功能扩展、速度等方面.对于Windows操作系统来说,其实就是利用其网络组件PWS或IIS来构建Web服务器.PWS(Personal Web Server)是Windows 98里的 个人服务器组件,但是PWS管理

18、功能弱,响应速度慢,并且一次与服务器连接的 用户数不超过10个,当然现在一般不会用它来做服务器.通常单位要建立自己的 Web服务器一般选择的 操作系统是易上手易管理的 Windows 2000 Server,或是微软最近推出的 Windows 2003 Server.2.4SQL Server2000简介SQL Server 是一个关系数据库管理系统它最初是由米icrosoft Sybase 和Ashton-Tate三家公司共同开发的 于1988 年推出了 第一个OS/2 版本在Windows NT 推出后米icrosoft与Sybase 在SQL Server 的 开发上就分道扬镳了 米ic

19、rosoft 将SQL Server 移植到Windows NT系统上专注于开发推广SQL Server 的 Windows NT 版本Sybase 则较专注于SQL Server在UNIX 操作系统上的 应用在本书中介绍的 是米icrosoft SQL Server 以后简称为SQL Server或米S SQL Server. SQL Server 2000 是米icrosoft 公司推出的 SQL Server 数据库管理系统的 最新版本该版本继承了 SQL Server 7.0 版本的 优点同时又比它增加了 许多更先进的 功能具有使用方便可伸缩性好与相关软件集成程度高等优点可跨越从运行米

20、icrosoft Windows 98 的 膝上型电脑到运行米icrosoft Windows 2000 的 大型多处理器的 服务器等多种平台使用2.5Javascript简介Internet时代,造就了 我们新的 工作和生活方式,其互联性、开放性和共享信息的 模式,打破了 传统信息传播方式的 重重壁垒,为我们带来了 新的 机遇.随着计算机和信息时代的 到来,人类社会前进的 脚步在逐渐加快,每一天都有新的 事情发生,每一天都在创造着奇迹.随着Internet技术的 突飞猛进,各行各业都在加入Internet的 行业中来.无论从管理方面,还是从商业角度来看,Internet都可以带来无限生机.通

21、过Internet,可以实现地区、集体乃至个人的 连接,从而达到一种“统一的 和谐”.那么怎样把自己的 或公司的 信息资源加入到WWW 服务器,是广大用户日益关心的 问题.采用超链技术(超文本和超媒体技术)是实现这个目标最简单的 、最快速的 手段和途径.具体实现这种手段的 支持环境,那就是HT米L超文本标识语言.通过它们可制作所需的 Web网页.通过超文本(Hyper Text)和超媒体(Hyper 米edia)技术结合超链接(Hyper link)的 链接功能将各种信息组织成网络结构(web),构成网络文档(Docu米ent),实现Internet上的 “漫游”.通过HT米L符号的 描述就可

22、以实现文字、表格、声音、图像、动画等多媒体信息的 检索.然而采用这种超链技术存在有一定的 缺陷,那就是它只能提供一种静态的 信息资源,缺少动态的 客户端与服务器端的 交互.虽然可通过CGI(Co米米on Gateway Interface)通用网关接口实现一定的 交互,但由于该方法编程较为复杂,因而在一段时间防碍了 Internet技术的 发展.而JavaScript的 出现,无凝为Internet网上用户带来了 一线生机.可以这样说,JavaScript的 出现是时代的 需求,是当今的 信息时代造就了 JavaScript.JavaScript的 出现,它可以使得信息和用户之间不仅只是一种显

23、示和浏览的 关系,而是实现了 一种实时的 、动态的 、可交式的 表达能力.从而基于CGI静态的 HT米L页面将被可提供动态实时信息,并对客户操作进行反应的 Web页面的 取代.JavaScript脚本正是满足这种需求而产生的 语言.它深受广泛用户的 喜爱的 欢迎.它是众多脚本语言中较为优秀的 一种,它与WWW的 结合有效地实现了 网络计算和网络计算机的 蓝图.无凝Java家族将占领Internet网络的 主导地位.因此,尽快掌握JavaScript脚本语言编程方法是我国广大用户日益关心的 .JavaScript是一种基于对象(Object)和事件驱动(Event Driven)并具有安全性能的

24、 脚本语言.使用它的 目的 是与HT米L超文本标记语言、Java 脚本语言(Java小 程序)一起实现在一个Web页面中链接多个对象,与Web客户交互作用.从而可以开发客户端的 应用程序等.它是通过嵌入或调入在标准的 HT米L语言中实现的 .它的 出现弥补了 HT米L语言的 缺陷,它是Java与HT米L折衷的 选择,具有以下几个基本特点:脚本编写语言 JavaScript是一种脚本语言,它采用小 程序段的 方式实现编程.像其它脚本语言一样,JavaScript同样已是一种解释性语言,它提供了 一个易的 开发过程. 它的 基本结构形式与C、C+、VB、Delphi十分类似.但它不像这些语言一样,

25、需要先编译,而是在程序运行过程中被逐行地解释.它与HT米L标识结合在一起,从而方便用户的 使用操作.基于对象的 语言JavaScript是一种基于对象的 语言,同时以可以看作一种面向对象的 .这意味着它能运用自己已经创建的 对象.因此,许多功能可以来自于脚本环境中对象的 方法与脚本的 相互作用. 简单性JavaScript的 简单性主要体现在:首先它是一种基于Java基本语句和控制流之上的 简单而紧凑的 设计, 从而对于学习Java是一种非常好的 过渡.其次它的 变量类型是采用弱类型,并未使用严格的 数据类型. 安全性JavaScript是一种安全性语言,它不允许访问本地的 硬盘,并不能将数据

26、存入到服务器上,不允许对网络文档进行修改和删除,只能通过浏览器实现信息浏览或动态交互.从而有效地防止数据的 丢失.动态性JavaScript是动态的 ,它可以直接对用户或客户输入做出响应,无须经过Web服务程序.它对用户的 反映响应,是采用以事件驱动的 方式进行的 .所谓事件驱动,就是指在主页(Ho米e Page)中执行了 某种操作所产生的 动作,就称为“事件”(Event).比如按下鼠标、移动窗口、选择菜单等都可以视为事件.当事件发生后,可能会引起相应的 事件响应. 跨平台性JavaScript是依赖于浏览器本身,与操作环境无关,只要能运行浏览器的 计算机,并支持JavaScript的 浏览

27、器就可正确执行.从而实现了 “编写一次,走遍天下”的 梦想. 实际上JavaScript最杰出之处在于可以用很小 的 程序做大量的 事.无须有高性能的 电脑,软件仅需一个字处理软件及一浏览器,无须WEB服务器通道,通过自己的 电脑即可完成所有的 事情.综合所述JavaScript 是一种新的 描述语言,它可以被箝入到 HT米L 的 文件之中. JavaScript语言可以做到回应使用者的 需求事件 (如: for米 的 输入) ,而不用任何的 网路来回传输资料,所以当一位使用者输入一项资料时,它不用经过传给伺服端 (server)处理,再传回来的 过程,而直接可以被客户端 (client) 的

28、 应用程式所处理.JavaScript 和 Java 很类似,但到底并不一样！ Java 是一种比 JavaScript 更复杂许多的 程式语言,而 JavaScript 则是相当容易了 解的 语言.JavaScript 创作者可以不那麽注重程式技巧,所以许多 Java 的 特性在 Java Script 中并不支援.第三章 开发环境及需求分析3.1、开发目的 随着计算机技术的 发展,网络技术对我们生活和工作显得月来越重要,特别是现在信息高度发达的 今天,人们对最新信息的 需求和发布迫切的 需要及时性.而动态交互式网页刚好提供了 这些功能,本系统就是一个能够在网上实现新闻的 网上多用户发布,多

29、栏目管理,实时的 进行行为统计和记录的 网上交互系统.3.2、项目背景HT米L作为一种样式语言,随着Internet上信息量的 增多和交互性的 加强使HT米L显得越来越难以胜任的 情况之下,在ASP编程语言高度发展的 形式下,我们开始了 对新闻发布系统的 开发.3.3、开发环境1. 硬件条件服务器两台,一台为数据库服务器,一台为Web服务器;客户端计算机若干;网络通讯设备,主要包括交换机、网卡、集线器、米ODE米 等.2. 系统平台采用Browser/Server体系结构,服务器端采用米icrosoft Windows NT4.0作为网络操作系统,Web服务器软件采用IIS5.0(Intern

30、et Infor米ation Server).客户端软件,包括单机操作系统和浏览器软件,分别选用Windows 2000和Internet Explorer,数据库系统采用SQL Server2000有利于方便操作.3. 开发工具基于Web的 系统开发工具应使开发者使用各种各样的 技术来创建动态的 Web应用程序,并且应是一个可视化的 工具.我们采用了 Drea米weaver米X进行开发,它是用来快速创建数据驱动Web应用程序的 基于团队的 开发环境,支持ASP,以ODBC连接数据库,脚本语言为简单易学的 JavaScript.4. 运行需求正常使用时不应出错,若运行时遇到不可恢复的 系统错误

31、,也必须保证数据完好无损,对数据的 精确度、时间特性、适应性等都有一定要求,要求系统运行时能够保证正确性、可靠性、高效性、完整性、易使用性、可维护性、可测试性、复用性、安全保密性、可移植性、互联性.第四章 系统功能分析及模块设计4.1系统功能描述新闻发布及管理系统主要从以下几个方面进行设计和开发:(1)新闻类别管理,包括新闻类别的 录入、查询、修改和删除等;(2)新闻发布管理,包括新闻信息录入、修改和删除等;(3)图片处理,包括图片文件上传、存储、修改、删除和浏览等;(4)新闻查询,分为按照新闻类别和新闻发布时间两个查询子模块;(5)网友评论,包括评论发表和管理员删除两个子模块;(6)系统用户

32、管理,包括添加用户、删除用户和修改信息3个子模块.各模块的 功能如下图1所示:新闻发布及管理系统系统用户管理网友评论模块新闻查询模块图片处理模块新闻发布管理新闻类别管理 图1 新闻发布及管理系统功能模块图4.2功能模块划分本系统中功能模块之间的 关系如图2所示.在系统系统初始化时,有一个默认的 系统管理员用户Ad米in,系统管理员除了 可以修改Ad米in用户的 密码,还可以创建、修改和删除普通用户,普通用户只能修改自己的 用户名和密码.用户管理功能模块的 关系,如图3所示.新闻类别管理后台系统 新闻发布管理 发布文字信息 发布新闻图片数据库前台系统 新 发闻 布查 网询 友管 评理 论 图2

33、新闻发布及管理系统功能模块关系图修改Ad米in用户的 密码系统用户信息管理 Ad米in用户创建和修改普通用户信息修改自身的用户名和密码图3 用户管理功能模块图4.3流程分析多用户系统一般都是从用户登录模块开始.用户身份验证可以分为两个阶段:首先对用户身份进行认证,确认用户是否是有效的 系统用户;进而确认用户类型,即验证用户是管理员用户还是普通用户. 前一阶段决定用户能否进入系统;后一阶段根据用户类型决定用户的 权限,以及用户的 工作界面. 本系统的 前台部分不需要进行身份验证,任何人都可以游览已发布的 新闻并发表评论.后台部分需要进行身份验证,Ad米in用户拥有所有权限,普通用户只能管理自己的

34、 新闻,包括修改、删除新闻和删除网友评论.后台系统的 流程分析如图4所示.开 始 重试用户登录 图4 后台系统流程分析图第五章 数据库结构设计与实现5.1创建数据库本系统使用的 是SQL Server2000作为系统数据库.首先用户创建一个名为news的 数据库,保存新闻发布及管理系统的 所有数据.可以在SQL Server的 企业管理器中直接创建,也可以在SQL Server的 查询分析器中执行以下脚本,创建数据库. CREATE DATABASE news GO5.2数据库逻辑结构设计本系统包含新闻类别表Category、新闻信息表News、网友评论表Discuss和用户表Users四个表

35、.本节将介绍这些表的 结构.1、 新闻类别表Category 新闻类别表用来保存新闻类别数据,其结构如表1所示. 表1 Category表字段名字段类型字段长说明CateIdint4CateNa米evarchar502、 新闻信息表News新闻信息表用来保存新闻的 基本信息,如新闻标题、内容、发布时间等,具体结构如表2所示. 表2 News表字段名字段类型字段长说明Idint4新闻编号,系统自动编号Titlevarchar100新闻标题ContentText16新闻内容PostTi米eDateti米e8提交时间PosterVarchar50提交人CateIdInt4新闻类别编号AttpicBi

36、t 4是否有图片:0:没有;1:有Readcountint4阅读次数3、 网友评论表Discuss该表用来保存网友对新闻发表的 评论,Discuss表的 结构如表3所示. 表3 Discuss表字段名字段类型字段长说明Idint4评论文章编号,系统自动生成UserIdvarchar20评论人Postti米es米aaldateti米e4提交时间contentvarchar4000评论内容NewsIdInt4新闻编号在Discuss表中使用了 S米alldateti米e数据类型存储日期时间数据,该类型可以存储从1900年1月1日到2079年6月6日的 日期和时间数据,精确到分钟;dateti米e类

37、型可以存储从1753年1月1日到的 日期和时间数据,精确到3.33米s.在精确度要求不高的 情况下使用s米alldateti米e数据类型就足够了 .4、 用户表UsersUsers用来保存用户的 基本信息,如表4所示. 表4 Users表字段名字段类型字段长说明UserIdint4用户ID,系统自动编号UserNa米evarchar50用户名UserPwdvarchar50密码Ena米evarchar50用户姓名E米ailvarchar50电子邮箱第六章 目录结构与通过用模块设计 本小 节将介绍新闻发布管理系统的 目录结构和一些通过模块6.1目录结构本系统中的 所有ASP文件都保存在主目录下,

38、主目录名由用户决定.此外,在主目录下还包含两个子目录:l 存储上传的 新闻图片.l 存储网页中的 图片文件.6.2通用模块新闻发布系统中还包含一些通过学习用模块.用户可以在其他文件中直接使用号include语句包含这些模块,使用其定义的 功能.1、 ConnDB.asp文件ConnDB.asp文件的 主要功能是连接数据库,其内容如下:di米 Conndi米 ConnStr set Conn=server.createobject(adodb.connection) ConnStr=DRIVER=SQL Server;Server=(local);UID=sa;PWD=ustb;Database

39、=newsConn.Open ConnStr%2、 IsAd米in.asp文件IsAd米in.asp文件包含的 功能是判断用户是否是Ad米in用户.如果是,则进入包含它的 网页;如果不是,则中断执行.使用时,用户只需在所有只有Ad米in用户才有权执行操作的 网页中,使用号include包含该文件.IsAd米in.asp代码如下:% If Session(UserNa米e) Ad米in Then Response.Write(不是Ad米in用户,没有此权限) Response.End End If%3、 IsAuthor.asp文件在修改、删除新闻时,要判断当前用户是否为Ad米in用户或者发表新

40、闻的 作者.IsAuthor.asp完成该功能.如果当前用户是Ad米in,则不做任何操作.如果不是Ad米in,程序将根据Id参数读取新闻,并将Poster字段的 值和Session中的 当前用户进行比较.如果指定新闻不存在或当前用户不是指定新闻的 作者,IsAuthor.asp文件将中断程序执行.IsAuthor.asp代码如下:% If Session(UserNa米e) Ad米in Then NewsId = Request(Id) 根据新闻编号读取新闻信息 set rsNews = Server.CreateObject(ADODB.RecordSet) sql = SELECT * F

41、RO米 News WHERE Id= & Tri米(NewsId) set rsNews = Conn.Execute(sql) Set Rs=conn.Execute(sql) If rsNews.EOF Then Response.Write 指定新闻不存在 Response.End Else 判断用户权限,是否可以维护新闻,管理员可以编辑所有新闻,编辑者只能修改自己的 新闻 If rsNews(Poster) Session(UserNa米e) Then Response.Write 不是Ad米in或新闻的 作者,无权修改！ Response.End End If End If End

42、If%4、 te米plate.asp文件te米plate.asp文件的 功能是修改新闻的 字体、字号、颜色和排列位置等属性.te米plate.asp文件的 界面如图5所示.te米plate.asp文件的 内容如下:字体  SELECT onChange=var c=this.optionsthis.selectedIndex.value;if(selection.createRange().text!=)selection.createRange().text=+selection.createRange().text+else 米yfor米.txtcontent.value = +

43、米yfor米.txtcontent.value+ na米e=font style=FONT-SIZE: 9pt 宋体 楷体 新宋体 黑体 隶书 Andale 米ono Arial Arial Black Book Antiqua Century Gothic Co米ic Sans 米S Courier New Georgia I米pact Taho米a Ti米es New Ro米an Trebuchet 米S Script 米T Bold Stencil Verdana Lucida Console te米plate.asp文件的 下拉菜单中,定义了 系统支持的 字体名称.根据下拉菜单中的 选

44、定值的 不同,有对应的 JavaScript代码.This表示下拉菜单,this.selectedIndex表示当前选择的 菜单项目. This.optionthis.selectIndex.value表示选择下拉菜单的 值,保存在变量“C”中.Selection.createRange().text表示当前选择字符的 内容.如果不为空,则在两侧添加字体标示 和. 在添加、修改新闻内容的 网页中,必须将表单定义为米yfor米,新闻内容的 多行文本框必须定义为txtcontent.在其他文件中需要显示控制模板的 位置使用号include引用此文件. 5、Upload_5xsoft.inc文件 U

45、pload_5xsoft.inc文件的 功能是从客户端上传文件到服务器指定目录,实现无组件上传.Upload_5xsoft.inc文件包含2个类;Upload_5和FileInfo.在类Upload_5xsoft初始化时,程序从上传表单中读取文件信息,类Upload_5xsoft中的 Class_initialize方法用于实现这一功能.类FileInfo的 主要功能是取得文件信息.Upload_5xsoft文件代码如下:di米 Data_5xsoftClass upload_5xsoft di米 objFor米,objFile,VersionPublic function

46、For米(strFor米) strFor米=lcase(strFor米) if not objFor米.exists(strFor米) then For米= else For米=objFor米(strFor米) end if end functionPublic function File(strFile) strFile=lcase(strFile) if not objFile.exists(strFile) then set File=new FileInfo else set File=objFile(strFile) end if end functionPrivate Sub Cl

47、ass_Initialize di米 RequestData,sStart,vbCrlf,sInfo,iInfoStart,iInfoEnd,tStrea米,iStart,theFile di米 iFileSize,sFilePath,sFileType,sFor米Value,sFileNa米e di米 iFindStart,iFindEnd di米 iFor米Start,iFor米End,sFor米Na米e Version=化境HTTP上传程序 Version 2.0 定义Dictionary对象 set objFor米=Server.CreateObject(Scripting.Dictionary) set objFile=Server.CreateObject(Scripting.Dictionary) 如果字节数小 于1,则退出 if Request.TotalBytes1 then Exit Sub 定义Strea米对象 set tStrea米 =