基于ASP的校园新闻发布系统的设计与制作

你了解电脑开机时都做了些什么吗

基于ASP的校园新闻发布系统的设计与制作.txt∞-一人行,必会发情二人行,必会激情三人行,必有奸情就不会被珍惜。真实的女孩不完美，完美的女孩不真实。得之坦然，失之淡然，顺其自然，争其必然。 本文由xiong_ddcl贡献
doc文档可能在WAP端浏览体验不佳。建议您优先选择TXT，或下载源文件到本机查看。
博州广播电视大学
开放教育专科
毕业设计论文
论文题目：基于 WEB 的新闻发布系统的设计与制作 论文题目： 的新闻发布系统的设计与制作
专
业：计算机信息管理
班
级：2009 秋计算机信息管理专科
学
号：09650014
姓
名： 陈
峰
辅导老师： 辅导老师： 陈
亮
目
录
第一章 诸论 …… 4
第一节 开发工具的选用及介绍 …… 4 第二节 ASP 技术访问 WEB 数据库 …… 5
第二章 系统分析与总体设计 …… 9
第一节 系统功能描述 …… 9 第二节 系统功能模块划分 …… 10 第三节 系统流程分析 …… 12
数据库结构设计与实现 第三章 数据库结构设计与实现 …… 13
第一节 创建数据库 …… 13 第二节 数据库逻辑结构设计 …… 13
第四章 系统的设计与实现 …… 15
第一节 目录结构 …… 15 第二节 通用模块 …… 15 第三节 设计主界面 …… 20 第四节 设计管理界面 …… 25 第五节 设计新闻类别管理界面 …… 31 第六节 新闻发布管理模块 …… 40
第五章 调试与安装 …… 57
第一节 安装 IIS …… 57 第二节 ASP 硬件要求…… 58
结束语 …… 59 参 考 文 献 …… 59
【摘要】 我们从建站的实际情况出发， 经过对有关网站新闻发布事项的一番考察和分析， 确立了新闻发布系统的具体实现功能。 并阐述系统的结构设计和功能设计， 实现新闻的分类 显示，最近新闻的提示，新闻滚动功能等。经过授权的用户可以通过 Web 浏览器，以人机 交互式的客户端程序实现对学校新闻的发布、管理、实时的进行行为统计和记录。本系统是 学校网站的一个子系统， 具有很好的外部接口， 能够很好的配合站点的其它子系统服务于网 站的新闻发布.该系统是一个基于新闻发布和内容管理的全站管理系统；基于 B/S 模式 WEBMIS 系统，本系统可以将杂乱无章的信息（包括文字、图片和影音）经过组
织，合理 而且有序地呈现在大家面前。简单的说,新闻发布系统就是充当一个网络新闻媒介的功能。 主要实现对新闻的分类，审核，发布，模拟了一般新闻媒介的发布的过程 【关键词】ASP 新闻发布 WEB
前言
在 Internet 飞速发展的今天，互联网成为人们快速获取、发布和传递信息的重要渠

你了解电脑开机时都做了些什么吗

道， 它在人们政治、经济、生活等各个方面发挥着重要的作用。Internet 上发布信息主要是通过 网站来实现的，获取信息也是要在 Internet“海洋”中按照一定的检索方式将所需要的信息从 网站上下载下来。因此网站建设在 Internet 应用上的地位显而易见，它已成为政府、企事业 单位信息化建设中的重要组成部分，从而倍受人们的重视。
第一章
第一节 开发工具的选用及介绍
诸论
1. ASP 的优势：Active Server Pages：“动态服务器网页”，一般简称为“ASP”，ASP 之所 以能受到大家的重视与使用的原因，主要在于所产生的执行结果都是标准的 HTML 格式， 而且这些程序是在网络服务端中执行，使用一般的浏览器（如 IE 或 Netscape）都可以正确 地获得 ASP 的“执行”结果， 并且将这 ASP 执行的结果直接在浏览器中“浏览”， 不像 VBScript 或 JavaScript 是在客户端（Client）的浏览器上执行，若使用 VBScript 来设计程序，客户端 （Client）在 IE 浏览器中可以显示程序执行的结果，可是，客户端（Client）若使用 Netscape 浏览器就无法显示 VBScript 的执行结果。 2.ASP 的特点： 任何开发工具皆可发展 ASP。 只要使用一般的文书编辑程序， Windows 如 记事本，就可以编辑。当然，其他网页发展工具，例如，FrontPage Express、 FrontPage 等 也都可以；不过还是建议你用记事本来写，既省钱又方便，若是使用那些所见即所得的网页 编辑来写 ASP，可能会发生一些意想不到的离奇状态。 3.通吃各家浏览由于 ASP 程序是在网络服务器端中执行，执行结果所产生的 HTML 文
件适用于不同的浏览器。 4.语言相容性高：ASP 与所有的 ActiveX Script 语言都相容，除了可结合 HTML， VBScript、Java Script、Active X 服务器组件来设计外，并可经由“plug-In（外挂组件模组） 的方式，使用其他厂商（Third Party）所提供的语言。 隐密安全性高。如果我们在浏览器中直接查看网页的原始代码，就只能看到ＨＴＭＬ文件， 原始的 ASP 程序代码是看不到的！这是因杰 ASP 程序先于网站服务（Ｗeb Server）端执行 后，将结果转换成标准ＨＴＭＬ文件，再传送到客户端（Client）的浏览器上，因此，我们 所辛苦撰写的 ASP 程序并不会轻易地被看见进而被盗用。 5.易于操控数据库： ASP 可以轻易地通过 ODBC(Open Database Connectivity)驱动程序连 接各种不同的数据库，例如：Acess、Foxpro、dBase、Oracle
等等，另外，ASP 亦可将“文 本文件”或是”Excel” 文件当成数据库用。 6.面向对象学习容易：ASP 具备有面向对象（Object-Oriented）功能，学习容易，ASP 提供了五种方便能力强大的内建对象：Request、Response、Sever、Application 以

你了解电脑开机时都做了些什么吗

及 Session， 同时，若使用 ASP 内建的“Application”对象或”Session”对象所撰写出来的 ASP 程序可以在 多个网页之间暂时保存必要的信息。 ASP 的六大内部对象 Request、Response、Server、Session、Application、ObjectContext 从客户端取得信息将信息送给客户端提供一些 Web 服务器工具储存在一个 Session 内的用户 信息，该信息仅可被该用户访问在一个 ASP-Application 中让不同的客户端共享信息可以用 来配合 Microsoft Transaction 服务器进行分布式事务处理。 所以我选择了 ASP 结合 Frontpage 架构网站。在此期间本人将使用 Macromedia Dreamweaver MX 2004 进行 ASP 页面的编码，并使用 IIS6.0 对页面进行调试。
第二节
ASP 技术访问 WEB 数据库
一．访问 WEB 数据库的多种方案 目前在 WINDOWS 环境下有多种访问 WEB 数据库的技术，主要有： (1).公共网关接口 CGI(Common Gateway Interface) CGI 是较早实现的技术。适用于多种服务器平台，如 UNIX、WINDOWS 等，但 CGI 的开发成本高、维护困难、功能有限、不具备事务处理功能、占用服务器资源较多。 (2). INTERNET 数据库连接器 IDC(Internet Database Connector)。
IDC 集成在 ISAPI(Internet Server API)中， 充分利用了 DLL 技术， 易扩充， 但编程较 CGI 更为复杂，只适用于小型数据库系统。 (3). 先进数据库连接器 ADC(Advance Database Connector) ADC 提供了 ActiveX Control 来访问数据库，它的主要特点是数据查询由用户端浏览器 执行，因而需将服务器端数据库中的部分记录下载到用户端，系统开销较大、响应慢，只适 用于特别频繁的数据库查询操作。 (4). JAVA/JDBC 语言编程 JAVA 语言是一种面向对象、易移植、多线程控制的语言，可通过 JDBC 去连接数据库。 用 JAVA/JDBC 编写的软件可移植性强，适用于多种操作系统，但其执行效率和执行速度还 不理想，目前无法建立高效、高速的应用。 (5). 动态服务器页面 ASP(Active Server Page) ASP 是微软公司最新推出的 WEB 应用开发技术，着重于处理动态网页和 WEB 数据库 的开发，编程灵活、简洁，具有较高的性能，是目前访问 WEB 数据库的最佳选择。
二．ASP 简介 1.ASP 访问数据库的原理 ASP 是服务器端的脚本执行环境， 可用来产生和执行动态的高性能的 WEB 服务器程序。 当用户使用浏览器请求 ASP 主页时，WEB 服务器响应，调用 ASP 引擎来执行 ASP 文 件，并解释其中的脚本语言(JScript 或 VBScript)，通过 OD
BC 连接数据库，由数据库访问 组件 ADO(ActiveX Data Objects)完成数据库操作，最后 ASP 生成包含有数据查询结果的 HTML 主页返回用户端显示。 由于 ASP 在服务器端运行，运行结果以 HTML 主页形式返回用户浏览器，因而 ASP 源程序不会泄密，增加了

你了解电脑开机时都做了些什么吗

系统的安全保密性。此外，ASP 是面向对象的脚本环境，用 户可自行增加 ActiveX 组件来扩充其功能，拓展应用范围。 2.ASP 页面的结构： ASP 的程序代码简单、通用，文件名由.asp 结尾，ASP 文件通常由四部分构成： (1) 标准的 HTML 标记：所有的 HTML 标记均可使用。 (2) ASP 语法命令：位于<% %> 标签内的 ASP 代码。 (3) 服务器端的 include 语句：可用#include 语句调入其它 ASP 代码，增强了编程 的灵活性。
(4) 脚本语言：ASP 自带 JScript 和 VBScript 两种脚本语言，增加了 ASP 的编程功能， 用户也可安装其它脚本语言，如 Perl、Rexx 等。 3.ASP 的运行环境 目前 ASP 可运行在三种环境下。 (1) WINDOWS NT server 4.0 运行 IIS 3.0(Internet Information Server)以上。 (2) WINDOWS NT workstation 4.0 运行 Peer Web Server 3.0 以上。 (3) WINDOWS 95/98 运行 PWS(Personal Web Server)。 其中以 NT server 上的 IIS 功能最强，提供了对 ASP 的全面支持，是创建高速、稳 定的 ASP 主页的最佳选择。 4.ASP 的内建对象 ASP 提供了六个内建对象，供用户直接调用： (1) Application 对象：负责管理所有会话信息，可用来在指定的应用程序的所有用 户之间共享信息。 (2) Session 对象： 存贮特定用户的会话信息， 只被该用户访问， 当用户在不同 WEB 页面跳转时， Session 中的变量在用户整个会话过程中一直保存。 Session 对象需 cookie 支持。 (3) Request 对象：从用户端取得信息传递给服务器，是 ASP 读取用户输入的主要方法。 (4) Response 对象：服务器将输出内容发送到用户端。 (5) Server 对象：提供对服务器有关方法和属性的访问。 (6) Object Context 对象：IIS 4.0 新增的对象，用来进行事务处理。此项功能需得到 MTS(Microsoft Transcation Server)管理的支持。 5. ASP 的主要内置组件： (1) Ad Rotator 组件：用来按指定计划在同一页上自动轮换显示广告，用于 WWW 上日益重要的广告服务。 (2) Browser Capabilities 组件：确定访问 WEB 站点的用户浏览器的功能数据，包括 类型、性能、版本等。 (3) Database Access 组件： 提供 ADO (ActiveX Data Objects)来访问支持 ODBC 的数 据库。 (4) File Access 组件：提供对服务器端文件的读写功能。 (5) Content Linking 组件：生成 WEB 页内容列表，并将各页顺序连接，用于制作导 航条。
此外，还可安装 Myinfo、Counters、Content Rotator、Page Count 等组件，用户也 可自行编制 Actiive 组件，以提高系统的实用性。 6. Database Access 组件 ADO WWW 上很重要的应用是访问 WEB 数据库，用
ASP 访问 WEB 数据库时，必须使 用 ADO 组件，ADO 是 ASP 内置的 ActiveX 服务器组件(ActiveX Server Component)，通过 在 WEB 服务器上设置 ODBC 和 OLEDB 可连接多种数据库：如 SYBASE、ORACLE、 INFOR

你了解电脑开机时都做了些什么吗

MIX、SQL SERVER、ACCESS、VFP 等，是对目前微软所支持的数据库进行操作的 最有效和最简单直接的方法。 ADO 组件主要提供了以下七个对象和四个集合来访问数据库。 (1) Connection 对象：建立与后台数据库的连接。 (2) Command 对象：执行 SQL 指令，访问数据库。 (3) Parameters 对象和 Parameters 集合：为 Command 对象提供数据和参数。 (4) RecordSet 对象：存放访问数据库后的数据信息，是最经常使用的对象。 (5) Field 对象和 Field 集合： 提供对 RecordSet 中当前记录的各个字段进行访问的功 能。 (6) Property 对象和 Properties 集合：提供有关信息，供 Connection、Command、 RecordSet、Field 对象使用。 (7) Error 对象和 Errors 集合：提供访问数据库时的错误信息。
第二章 系统分析与总体设计
很多网站都提供新闻栏目，例如搜狐、新浪等著名网站的新闻专栏。许多企业和个人网 站也需要定期发布一些关于企业或网站的新闻。 因为网络中新闻发布的频率非常高， 如果使 用静态网页作为新闻页面，则维护工作将非常繁琐，管理员每天需要制作大量的网页，从而 浪费很多时间和精力。 使用新闻发布及管理系统可以使新闻发布和管理变得很轻松， 管理员 只需设置标题、内容和图片等新闻就可以了，系统将自动生成对应的网页。本文将对新闻发 布及管理系统进行系统分析与总体设计。
第一节 系统功能描述
新闻发布及管理系统包括新闻类别管理、新闻发布管理、图片处理、新闻查询、网友评 论和用户管理等模块。具体描述如下： 1．新闻类别管理： (1)新闻类别的录入，包括类别编号和类别名称等信息； (2)新闻类别的修改； (3)新闻类别的删除； (4)新闻类别的查询。 2．新闻发布管理： (1)基本新闻信息的录入，包括新闻标题、新闻内容和所属类别等； (2)基本新闻信息的修改； (3)基本新闻信息的删除； 3．图片处理模块： (1)选择图片文件； (2)上传图片文件； (3)存储图片新闻； (4)修改新闻图片； (5)删除新闻图片； (6)在网页中浏览新闻图片。 4．新闻查询模块：
(1)按照新闻类别分页显示新闻； (2)按照日期分页显示新闻。 5．网友留言模块： (1)网友对某条新闻发表评论； (2)管理员可以删除新闻评论。 6．系统用户管理功能：
-
(1)系统用户信息的录入，包括用户名和密码等
信息； (2)系统用户信息的修改； (3)系统用户信息的删除。
第二节 系统功能模块划分
从功能描述的内容可以看到，本实例可以实现 6 个完整的功能。我们根据这些功能，设 计出系统的功能模块，如图 1 所示。
新闻发布及管理系统
新 闻 类 别 管 理 理 管 及 布 发 闻

你了解电脑开机时都做了些什么吗

新 图 片 处 理 模 块
新 闻 查 询 模 块 块 模 评 论 网 友
系 统 用 户 管 理
图 1 新闻发布及管理系统功能模块示意图 新闻发布及管理系统的功能模块之间的关系如图 2 所示。
新 闻 类 别 管 理
后台系统 本 提供数据
询
数据库
发布
闻 查 管 理
新
新闻图
发布
前台系统 发 表 网 友 评 论
图 2 新闻发布及管理系统的功能模块关系图 在本系统中，用户管理模块的功能比较简单。在系统初始化时，有一个默认的“系统管 理员”用户 Admin，由程序设计人员手动地添加到数据库中。Admin 用户可以创建用户、 修改和删除用户；普通用户则只能修改自己的用户名和密码。 用户管理功能模块的关系如图 3 所示。
Admin 用户
系 统 用 户 信 息 管 理
修改 Admin 用户的密码
创建、修改、删除普通用户
普通用户 修改自 的
图 3 用户管理功能模块的关系图
第三节 系统流程分析
为了使读者进一步了解本实例系统的设计， 本小节将对系统进行流程分析。 多用户系统 的工作流程都是从用户登录模块开始， 对用户的身份进行认证。 身份认证可以分为以下两个 过程： (1)确认用户是否是有效的系统用户。 (2)确定用户的类型。 第 1 个过程决定用户能否进入系统。第 2 个过程根据用户的类型决定用户的操作权限， 从而决定用户的工作界面。 本系统分为前台系统和后台系统两个部分。 前台系统不需要进行身份认证， 任何人都可 以通过浏览器阅读已经发布的新闻、发表网友评论。 后台系统的流程分析如图 4 所示。 Admin 用户拥有所有的权限， 普通用户只能对自己发 布的新闻进行管理，包括修改新闻内容、删除新闻和删除网友评论。
开始 失败重试
用户登录
Admin
管理所有用户的信息 管理新闻类别，发布信息，所有新闻 信息的管理
管理自己的信息 普通用户 新闻发布，自己发布的新闻的管理
图 4 后台系统的流程分析
第三章 数据库结构设计与实现
作为毕业设计，本系统的数据主要是用于演示，数据存储量不是很大，因此本系统的数 据库采用 Access 2003 来创建，便于调试和使用，待投入到实际应用中去时，可随时将此数 据库转换到大型的网络数据库管理系统中去，如 SQL Server。
第一节 创建数据库
首先创建
一个 Access 2003 数据库 news.mdb，用来保存本系统的所有数据。如下图：
第二节 数据库逻辑结构设计
本系统数据库中包含以下 4 个表：新闻类别表：Category、新闻基本信息表：News、网 友评论信息表：Discuss 和用户信息表：users。 1．新闻类别

你了解电脑开机时都做了些什么吗

表 Category 新闻类别表 Category 用来保存新闻类别数据，结构如表 1 所示。 表 1 表 Category 的结构 编号 1 2 字段名称 CateId CateName 数据结构 数字 文本 说明 新闻类别编号 新闻类别名称
2．基本新闻表 News 基本新闻表 News 用来保存网上新闻的基本信息，结构如表 2 所示。 表 2 表 News 的结构
编号 1 2 3 4 5 6 7 8
字段名称 Id Title Content PostTime Poster CateId Attpic Readcount
数据结构 数字 文本 备注 日期/时间 文本 数字 文本 数字
说明 新闻编号 新闻标题 新闻内容 提交时间 提交人 新闻类别编号 是否有图片标记(0 没有；1 有) 阅读次数
3．网友评论信息表 Discuss 网友评论信息表 Discuss 用来保存网友对新闻的评论信息，结构如表 3 所示。 表 3 表 Discuss 的结构 编号 1 2 3 4 5 字段名称 id UserId Posttime Content Newsld 数据结构 数字 文本 日期/时间 备注 数字 说明 评论编号 评论人名称 提交时间 评论内容 新闻编号
4．用户信息表 Users 用户信息表 Users 用来保存用户的基本信息，结构如表 8．4 所示。 编号 1 2 3 4 5 字段名称 UserId UserName UserPwd Ename Email 数据结构 数字 文本 文本 文本 文本 说明 用户 ID 号 。 用户名 密码 用户姓名 电子邮箱
第四章 第四章 目录结构与通用模块
第一节 目录结构
在运行实例时，需要将 web 目录复制到 IIS/PWS 的根目录下，例如 目录下包含下面两个子目录： images 用于存储上传的新闻图片； pic 用于存储网页中的图片文件； data 用于存储系统的数据库文件； 其他 ASP 和 HTM 文件都保存在根目录下。
第二节 通用模块
本实例中包含一些通用模块，这些模块以文件的形式保存，可以在其他文件中使用 #include 语句包含这些模块，使用其中定义的功能。 1．ConnDB.asp ConnDB.asp 的功能是实现到数据库的连接， 因为在很多网页中都有连接数据库的操作， 所以把它保存在文件 ConnDB.asp 中，这样可以避免重复编程。ConnDB.asp 的代码如下： <% dim Conn dim ConnStr set Conn=server.createobject("adodb.connection") ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=data\news.mdb" Conn.Open ConnStr %> 在文件中引用此文件作为头文件就可以访问数据库，代码如下： 2．IsAdmin.asp 因为本实例中有些功能只有 Admin 用户才有权限使用，所以在进入这些网页之前，需 要判断用户是否是 Admin。IsAdmin.asp 的功能是判断当前用户是否是 Admin，如果不是，
则中断执行；如果是，则不执行任何操作，直接进入包含它的网页。 IsAdmin.asp 的代码如下： <% If Session(&qu
ot;UserName") <> "Admin" Then Response.Write("不是 Admin 用户，没有此权限") Response.End End If %> 在文件中引用此文件作为头文件，代码如下:

你了解电脑开机时都做了些什么吗

3．IsAuthor.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)当前用户不是指定新闻的作者。 使用 Response.End 可以结束网页的输出。 在文件中引用此文件作为头文件，代码如下： 4．template.asp 在添加和修改新闻内容时，需要对字体、字号、颜色和排列位置等属性进行设置。 Template.asp 可以实现这些功能。 Template.asp 的设计界面如图 5 所示。
图 5 Template.asp 的设计界面 在使用 template.asp 时，设置指定的选项，将会在新闻内容中生成相应的 HTML 代码。 例如，选中正文 abc，然后选择“楷体”、“1 号字”，将生成如下代码： abc [space]是自定义的符号，因为空格在转换成 HTML 格式时，将被替换为“&nbsp；”， 所以这里使用[space]表示空格。在显示新闻内容时，程序将会自动将[space]转换为空格。 因为 template.asp 的代码较多，这里仅以字体控制的代码为例说明。相关代码如下： 字体&nbsp;
在下拉菜单中，定义了系统支持的字体名称，下拉菜单的值与字体名称相同。 当下拉菜单的选择发生变化时，将触发 onChange 事件，程序中直接定义了对应的 JavaScript 代码。This 表示字体下拉菜单，this．selectedlndex 表示当前选择的菜单项目索引， This.options[this.selectedlndex].value 则表示选择下拉菜单的值，程序将其保存变量 C 中。 Selection.createRangeO.text 表示当前选择字符的内容，如果它不为空，则将其替换为如 下代码： selectio
n.createRange().text=''+selection.createRange().text+'' 也就是在它的两侧添加字体标识和。 如果没有选择字符，则在输入新闻内容的文本域中直接加入字体标识，用户可以在 和<／font>之问添加相应的文字，代码如下：
myf

你了解电脑开机时都做了些什么吗

orm.txtcontent.value=''+myform.txtcontent.value+' 在添加和修改新闻内容的网页中，必须将表单定义为 myform，输入新闻内容的滚动文 本框定义为 txtcontent，否则此功能将无法实现。
第五章
系统主界面与登录程序设计
第一节 设计主界面
本主界面为 default.asp，它的功能是显示新闻类别和每个类别中的 10 条新闻，并提供 进入管理界面(index.asp)的链接。 录入新闻类别和新闻内容后，default.asp 的界面如图 5-6 所示。
图 5-6 default.asp 的界面 下面介绍 default.asp 的主要代码。 1．显示新闻类别链接
default.asp 将新闻按照分类显示，每个新闻类别只显示最新的 10 条新闻。如果新闻类别 较多，则网页会被拉长，给用户阅读带来不便。为了解决这个问题，本实例使用书签来定义 新 闻类别的位置，书签格式为#a<类别编号>。例如，类别编号为 1 的新闻类别的书签名称为 #al。下面的代码将在网页中生成所有新闻类别的链接，每个链接都指相应新闻类别的书签。 这样，用户就可以通过单击链接直达新闻类别了。 <% '=====显示所有新闻类别供点击，点击不同类别显示该类别的新闻===== '按顺序读取所有新闻类别，保存在记录集 rsCate 中 sql = "SELECT * FROM Category ORDER BY CateId" Set rsCate = conn.Execute(sql) '显示所有新闻类别链接 Do While Not rsCate.EOF stitle = rsCate("CateName") cid = rsCate("CateId") '每个新闻类别标题被定义为一个书签，名为 #a 类别编号 %> ">"> <%
'将指针移至开始位置，分别显示每个分类中的新闻 If rsCate.BOF = False Then rsCate.MoveFirst End If '依次显示每个新闻类别中最新的 10 条新闻 DO WHILE Not rsCate.EOF stitle = rsCate("CateName") cid = rsCate("CateId") '变量 cnt 用来记录 cnt = 0 '生成表格 Response.Write "
" '显示新闻类别，并设置书签 Response.Write "&nbsp;==&nbsp;" '显示新闻类别标题 Response.Write stitle + "&nbsp;==" '生成另一个表格，用于显示新闻标题 Response.Write"
" '按提交时间的降序显示新闻标题 sql = "SELECT * FROM News WHERE CateId=" & cid & " ORDER BY Posttime DESC" rs.Open sql, conn, 1, 1 DO WHILE Not rs.EOF '计数 cnt = cnt + 1 '只显示 10 条新闻 If cnt < 11 Then Dim ndate ndate = DateAdd("d",-3,date()) '显示新闻标题及链接，查看新闻的脚本文件为 NewsView.asp Response.Write "
" '3 天内新闻标记 new 图片 If datediff("d", rs("Posttime"), ndate+time()) <= 0 Then Response.Write "" End If rs.MoveNext Loop Response.Write"" '设置返回顶部链接，跳转到书签#top Response.Write "
返回顶部&nbsp;&nbsp;&nb
sp;" '生成“更多新闻”链接，查看指定类别所有新闻的脚本为 Category.asp Response.Write "" rs.Close rsCate.MoveNext loop %> 因为在第 l 步中已经将各新闻类别的标题读取到记录集 rsC

你了解电脑开机时都做了些什么吗

ate 中， 所以只需要使用执 行 rsCate.MoveFirst 语句将指针复位就可以了。 使用 DO WHIIlE 循环语句依次处理每个新闻 类别，读取此类别中的所有新闻信息到记录集 rs 中，并在表格中显示新闻标题。请参照注 释理解。
第二节 登录程序设计
在对系统进行管理之前，需要通过系统的身份认证。本站中使用 chkpwd.asp 进行身份 验证。对于需要登陆才能察看的网页可以在网页的最前端加上如下代码： 这样为登陆的用户将看到如下界面：
第三节 设计管理界面
管理界面的功能是对新闻类别和新闻提供管理界面， 只有有权限的用户才能进入管理界 面。本节将介绍管理界面 index.asp 的实现方法。 录入新闻类别和新闻内容后，index.asp 的界面如图 5-7 所示。
下面介绍 index.asp 的主要代码。 (1)包含文件 在 index.asp 的开始部分添加下面的代码，这样在打开网页时，程序会自动连接到数据 库，并进行身份验证。 (2)显示新闻类别链接 index.asp 将新闻按照分类显示，每个新闻类别只显示最新的 20 条新闻。显示新闻类别 的代码如下： <% Dim rs,rsCate Set rs = Server.CreateObject("ADODB.RecordSet") set rsCate = Server.CreateObject("ADODB.RecordSet") '定义变量 Dim iflag,sql_where '参数 flag 表示指定的新闻类别 iflag = Request.QueryString("flag") '设置 SQL 语句，读取所有的新闻类别到 rs.Cate
sql = "SELECT * FROM Category ORDER BY CateId" Set rsCate = conn.Execute(sql) '显示新闻类别链接，注意根据类别编号设置参数 flag DO WHILE Not rsCate.EOF stitle = rsCate("CateName") cid = rsCate("CateId") %>| Session(”UserName”)中保存着当前登录用户的用户名。当 Session(”UserName”)=” Admin”时，才能显示“类别管理”和“用户管理”超级链接。 从程序中可以看到，各项管理功能对应的页面如下： (1)更改密码 PwdChange.asp； (2)类别管理 Cate—Admin.asp； (3)用户管理 UserList.asp； (4)退出登录 logout.asp。 变量 sql_where 用来记录查询条件。如果当前用户是 Admin，则 sql_where=“” ，即显 示所有新闻；否则设置查询条件为“Poster=“”&Session(“UserName”)&“”，即只能管 ” 理自己创建的新闻。 (4)分页显示新闻信息 下面将根据指定的新闻类别和页码显示新闻标题列表，代码如下： <% '根据参数 iflag 和 sql_where 变量设置 SQL 语句，读取新闻数据 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 N
ews WHERE CateId=" & iflag & " And " & sql_where & " ORDER BY Posttime DESC"
End If End If rs.Open sql

你了解电脑开机时都做了些什么吗

,conn,1,1 '如果记录集 rs 为空，则显示“目录还没有记录” If rs.EOF Then Response.Write "
目前还没有记录。 " Else '设置分页显示，每页显示 20 条新闻记录 rs.PageSize = 20 '读取参数 page，表示当前的页码，使用 CLng 将其转换为长整型 Page = CLng(Request("Page")) '处理不合法的页码 If Page < 1 Then Page = 1 If Page > rs.PageCount Then Page = rs.PageCount '设置当前页码为 Page rs.AbsolutePage = Page '循环显示当前页的记录 For i = 1 to rs.PageSize '如果到达记录集结尾，则跳出循环 if rs.EOF then Exit For %>
" onClick="return newwin(this.href)"><%=rs("title")%> <%If rs("attpic")=true then Response.write "(附图)" End If%> <%=rs("posttime")%> " onClick="return newwin(this.href)">修 改 " style="font-size: 9pt" value="ON">
<% rs.MoveNext() Next %> <% '显示分页页码 If rs.pagecount>1 then Response.Write "
分页：" For i = 1 To rs.PageCount Response.Write "" & i & "]" Next Response.Write "" End If End If %> 这部分代码的关键部分是根据新闻类别和用户类型生成 sELECT 语句， 查询指定的新闻 记录。在调试程序时，可以使用下面的语句显示 sELECT 语句的内容。 Response.write sql
第六章 新闻类别管理模块设计
新闻类别管理模块可以实现以下功能： (1)添加新的新闻类别记录； (2)修改新闻类别记录；
(3)删除新闻类别记录。 只有 Admin 用户才有权限进入新闻类别管理模块，在 index.asp 中，单击“类别管理” 超级链接，可以打开类别管理页面 cate_Admin.asp。
第一节 设计新闻类别管理界面
打开新闻类别管理界面，如图 6-9 所示。
图 6-9 新闻类别管理界面 下面将介绍 Cate_Admin.asp 中与界面显示相关的部分代码。 1．显示新闻类别信息 为了便于用户管理新闻类别，Cate_Admin.asp 以表格的形式显示新闻类别名称，并在后 面显示修改链接和删除复选框，代码如下：
新 闻 类 别 管 理
新闻管理 用户管理
类 别 修 改 选 择 <% Set rs = Server.CreateObject("ADODB.RecordSet") '读取所有的新闻类别数据到记录集 rs 中 sql = "SELECT * FROM Category ORDER BY CateId" rs.Open sql, conn, 1, 1 If rs.EOF Then '如果记录集为空，则显示“目前还没有记录” Response.Write "
&name=<%=rs("C ateName")%>">修 改
"> <% rs.MoveNext() LOOP %> 可以看到，修改新闻类别的页面也是 Cate_Admin．asp。参数 Oper 的值为 update，表 示当前操作为修
改新闻类别；参数 cid 表示要修改的新闻类别编号；参数 name 表示要修改 的新闻类别名称。新闻类别后面的复选框名为 Cate，它的 id 值与对应新闻类别的编号相同。 通常删除功能也可以通过超级超级链接来实现，就像本例中的‘ ‘修改’ ’ 超级链接。但是一次只能删除一条记录。本实例

你了解电脑开机时都做了些什么吗

介绍一种更方便的方法，即通 过复选框选择要删除的记录，然后单击 cc 删除， ，按钮，这样可以同时删除多 条记录。 2．显示功能按钮 如果存在新闻类别记录，则在表格下面显示“全选”“清空”和“删除” 、 按钮，这些按钮是为删除新闻类别记录服务的，代码如下： '如果记录数大于 0，则显示全选、清空和删除等按钮 If rs.RecordCount>0 then %> &nbsp;&nbsp; &nbsp;&nbsp; <%End If%> rs.RecordCount 返回当前记录集的记录数量。 3．显示添加或修改新闻类别的表单 在功能按钮的下面，将显示添加或修改新闻类别的表单。当 flag=update 时，将显示修改新闻类别的表单；否则显示添加新闻类别的表单，代码如下：
<% '如果当前状态为修改，则显示修改的表单，否则显示添加的表单 If Soperate = "update" Then sTitle = Request.QueryString("name") %>
&Oper=edit">
"> 类别名称 "> <%Else%>
类别名称 <%End If%> 添加和修改新闻类别的脚本都是 Cate_Admin.asp， 只是参数不同。 当参数 0per 等于 edit 时，程序将处理修改的新闻类别数据；当参数 Oper 等于 add 时，程序将处理添加的新闻类 别 数据。
第二节 添加新闻类别
在执行 Cate_Admin．asp 时，如果参数 Oper 不等于 update，页面的下方将显示添加数 据的表单 Aform。在文本域 txttitle 中输入新闻类别的名称，然后单击“添加’ ，按钮，将调 用 Cate_Admin.asp，参数 Oper 等于 add，表示插入新记录。 下面将介绍相关的代码。 在执行 Cate_Admin.asp 时，可以在 url 中包含参数，程序将根据参数 Oper 的值决定进 行的操作，与添加数据相关的代码如下： <% '处理添加、修改和删除操作 dim Soperate Soperate = Request.QueryString("oper") Operid = Request.QueryString("cid") '删除 If Soperate="delete" Then sql = "SELECT * FROM News WHERE CateId In (" & CStr(Operid) & ")" Set rs = Conn.Execute(sql) If rs.EOF Then sqldelt = "DELETE FROM Category WHERE CateId In(" & CStr(Operid) & ")" Conn.Execute(sqldelt) Response.Write "新闻类别已经成功删除！" Else Response.Write "新闻类别中包含新闻，不能删除" End If '添加 ElseIf Soperate = "add" then CateName = Request("txttitle") '判断是否已经存在此类别名称 sql = "SELECT * FROM Category WHERE CateName='" & CateName & "'" Set rs = Conn.Execute(sql)
'如果没有此类别名称，则创建新记录 If Rs.EOF Then sql = "INSERT INTO Category(CateName) VALUES('" & CateName & "')" Conn.Execute(sql) Response.Write"新闻类别已经成功添加！" Else Response.Write "已经存在此类别名称！" End If Set rs = Nothing ElseIf Soperate = "edit" Then CateName = Request(&quo
t;txttitle") '如果新类别名称与旧名称不同，则判断是否存在此类别名称 sql = "SELECT * FROM Category WHERE CateName = '" & CateName & "' And CateI

你了解电脑开机时都做了些什么吗

d=" & Operid Set rs = conn.Execute(sql) 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 "新闻类别已经成功修改！" Else Response.Write "已经存在此类别名称" End if End If End If %>
注意，在插入新闻类别之前，应该判断此新闻类别是否已经存在。这样可以避免出现重 复的新闻类别。
第三节 修改新闻类别
在 Cate_Admin.asp 中，单击新闻类别后面的“修改’ ，超级链接，将再次执行 Cate_Admin.asp， 参数 Oper 等于 update。 此时， 页面的下方将显示修改数据的表单 Uform。 在文本域 txttitle 中输入新闻类别的名称，然后单击“修改”按钮，将调用 Cate_Admin.asp，参数 Oper 等于 edit，表示修改记录。下面将介绍相关的代码。在执行 Cate_Admin.asp 时，可以在 url 中包 含参数，程序将根据参数 Oper 的值决定进行的操作。 注意，在修改新闻类别之前，应该判断新的新闻类别是否已经存在。这样可以避免出现 重复的新闻类别。
第四节 删除新闻类别
在删除新闻类别之前，需要选中相应的复选框。下面介绍几个与选择复选框相关的 javaScript 函数。 1．选择全部复选框 在 Care_Admin.asp 中，定义“全选”按钮的代码如下： 当单击“全选”按钮时，将执行 sltAll()函数，代码如下： function sltAll() { var nn = self.document.all.item("Cate"); for(j=0;j<nn.length;j++) { self.document.all.item("Cate",j).checked = true; } } self 对象指当前页面， self.document.a11.item("Cate")返回当前页面中 Cate 复选框的数量。
程序通过 for 循环语句将所有的 Cate 复选框值设置为 true。 2．全部清除选择 在 Cate_Admin.asp 中，定义“清空”按钮的代码如下： 当单击“清空”按钮时，将执行 sltNull()函数，代码如下： function sltNull() { var nn = self.document.all.item("Cate"); for(j=0;j<nn.length;j++) { self.document.all.item("Cate",j).checked = false; } } 3．生成并提交删除编号列表 在 Cate_Admin.asp 中，定义“删除”按钮的代码如下： 当单击“删除”按钮时，将执行 SelectChk()函数，代码如下： function SelectChk() { var s = false; //用来记录是否存在被选中的复选框 var Cateid, n=0; var strid, strurl; var nn = self.document.all.item("Cate"); //返回复选框 Cate 的数量 for (j=0; j<nn.length; j++) { if (self.document.all.item("Cate",j).checked
) { n = n + 1; s = true; Cateid = self.document.all.item("Cate",j).id+""; //生成要删除新闻类别编号的列表 if(n==1) { //转换为字符串
strid = Cate

你了解电脑开机时都做了些什么吗

id; } else { strid = strid + "," + Cateid; } } } strurl = "Cate_Admin.asp?Oper=delete&cid=" + strid; if(!s) { alert("请选择要删除的新闻类别!"); return false; } if (confirm("你确定要删除这些新闻类别吗？")) { form1.action = strurl; form1.submit(); } } 程序对每个复选框进行判断，如果复选框被选中，则将复选框的 id 值转换为字符串， 并追加到变量 strid 中。因为复选框的 id 值与对应的新闻类别编号相同，所以最后 strid 中保 存的是以逗号为分隔符的待删除的新闻类别编号。以 strid 的值为参数执行 Cate_Admin.asp， 参数 Oper 等于 delete，就可以删除选中记录了。 在删除新闻类别之前， 应该判断此新闻类别中是否包含新闻， 如果有新闻， 则不能删除， 否则会产生没有新闻类别的垃圾新闻。
第七章 新闻发布管理模块设计
系统用户都可以发布新闻，新闻发布管理模块包含以下功能： (1)发布新新闻； (2)修改新闻； (3)删除新闻。
第一节 添加新闻
在 index.asp 中， “添加新闻”按钮的定义代码如下： 当单击“添加新闻”按钮时，将触发 onclick 事件，并调 newwin ('NewsAdd.asp')函数，即在弹出的新窗口中执行 News.Add．asp。 NewsAdd.asp 的运行界面如图 7-10 所示。
图 7-10 NewsAdd.asp 的运行界面 将新闻类别添加到下拉菜单中，代码如下： <% Set rs = Server.CreateObject("ADODB.RecordSet") '将新闻类别装入下拉菜单中 sql = "SELECT * FROM Category ORDER BY CateId" Set rsCate = Conn.Execute(sql) DO WHILE Not rsCate.EOF stitle = rsCate("CateName") cid = rsCate("CateId") %>
<% rsCate.movenext LOOP %> 下拉菜单名为 Cate，值为新闻类别编号，显示的内容是新闻类别名称。编辑新闻内容 表单的定义代码如下：
可以看到，表单名为 myfom，表单提交后，将由 newsSave.asp 处理表单数据。在提交 表单数据之前，程序将对 ValidationPassed 变量进行判断，只有当 ValidationPassed=True 时， 才执行提交操作。变量 ValidationPassed 的值将在对数据有效性进行验证时被赋值。 在．NewsAdd.asp 中，定义“确定”按钮的代码如下： 在单击“确定”按钮时，将执行 form_onsubmit(this.form)，进行数据有效性验证，代码 如下: function form_onsubmit(obj) { ValidationPassed = true; if(obj.Cate.selectedIndex <0) { alert("请选择新闻类别") ValidationPassed = false; return ValidationPassed; } if(obj.title.value == "") { alert("请填写新闻标题"); ValidationPassed = false; return ValidationPassed; } if(obj.txtcontent.value == "") {
alert("请填写新闻内容！");
ValidationPassed = false; return ValidationPassed; } } 这是一段 JavaScript 代码，参数 obj 接受 this.form 的值，表示表单 myfom。程序将分别 对新闻类别、新闻标题和新闻内容进行判断，这些信息是必须填写

你了解电脑开机时都做了些什么吗

的。如果没有填写前面提 到的信息，将弹出相关的对话框，ValidationPassed=false，这样表单数据将无法提交。 在 NewsAdd.asp 页面的相关位置使用#include 命令包括 template.asp， 将可以显示控制模 板。 下面介绍 newSave.asp 的部分代码。在 newSave.asp 中，有一个函数 ChangeStr()，它的 功能是替换新闻正文中的功能字符串，目的是使其能够成为 HTML 网页的一部分，在浏览 网页时被正常显示。被替换的功能字符串包括以下内容： [upload] 上传新闻 图片标记， 需要将其替换为
“
” ；空格(” ”) 空格将被替换为“&nbsp；； ” chr(13) 回车符将被替换为
。 函数 ChangeStr()的代码如下： Function ChangeChr(str) ChangeChr = Replace( str, "[upload]", "
") ChangeChr = Replace( ChangeChr, " ", "&nbsp;") ChangeChr = Replace( ChangeChr, chr(13), "
") End Function 新闻正文需要保存在数据库中， 当从数据库中读取新闻正文的内容在网页中显示时， 空 格将被自动过滤掉，这样将无法被正确显示。为了避免这种情况发生，这
里将空格表示为[space]，并存入数据库，在读取数据时再将其转换为空格。 下面程序将接收从 NewsAdd.asp 传递来的数据，并将它们转换为能够保存到数据库中 的格式，代码如下： Dim title '新闻标题
Dim content '新闻内容 Dim category '新闻类别 Dim sql 'sql 语句字符串 Dim rs '记录集变量
title = Request("title") title = Replace(title,"'","‘") attpic = Request("attpic")
rqtContent = ChangeChr(request("txtcontent")) rqtContent = Replace(rqtContent,"'","‘")
'替换函数
因为在 sql 语句中，单引号(')是特殊字符，所以需要将新闻标题和正文中 的单引号替换为全角单引号(‘)，并使用 ChangeChr()函数对新闻正文进行转换。 接下来程序将保存新闻数据，代码如下： Set rs = Server.CreateObject("ADODB.RecordSet") '定义 sql 语句，为插入新闻记录定义记录集 sql="SELECT * FROM News" rs.Open sql, Conn, 1, 3 '使用 AddNew 和 Update 插入新记录 rs.AddNew rs("CateId") = CInt(Request("Cate")) rs("Title") = title rs("Content") = rqtContent rs("Posttime") = now() rs("Poster") = Session("UserName") rs("ReadCount") = 0
If attpic <> "" Then rs("attpic") = attpic End If rs.Update '释放资源，显示提示信息 set rs = nothing Response.Write "
添加成功！" 本节前面介绍插入新数据时，都是采用定义 INSERT 语句的方法。这里使 用一种新方法，在记录集中使用 rs.AddNe
w 插入新记录，然后依次对 rs 中各字段赋值， 最后使用 rs.Update 方法保存记录。
第二节 修改新闻
在 index.asp 中，每条新闻记录的后面都有一个修改超级链接。单击此链接，将打开 NewsEdit.asp，对指定新闻进行编辑。参数 id 表示新闻编号。 本节将介

你了解电脑开机时都做了些什么吗

绍如何使用 NewsEdit.asp 修改新闻内容。在 NewsEdit.asp 的开始部分，将使 用下面的代码包含相关文件，从而连接到数据库，并判断用户的编辑权限。 在 Newsedit.asp 中程序将首先根据参数 ID 的值读取新闻数据，代码如下: Set rsNews = Server.CreateObject("ADODB.RecordSet") Set rsCate = Server.CreateObject("ADODB.RecordSet") '读取指定新闻数据 Set rsNews = Conn.Execute("SELECT * FROM News WHERE Request.QueryString("id")) 因为新闻正文数据在存储前进行过替换处理，所以这里需要将数据还原，代码如下： If Not rsNews.EOF Then '对新闻内容进行替换 txtcontent = rsNews("content") txtcontent = replace(txtcontent, "
", chr(13)) id = " &
txtcontent = replace(txtcontent, "&nbsp;", " ") rqtContent = replace(txtcontent, "''", "'") 替换数据的目的是使它能够在表单的滚动文本域 txtcontent 中正确显示。代码中省略的 部分包括生成新闻类别下拉菜单，以及根据新闻数据对表单中的各组件赋值。 在 NewsEdit.asp 中，定义了一个隐藏域，代码如下： "> 它的作用是记录当前编辑新闻的编号。 编辑新闻信息表单的定义代码如下：
与 userAdd.asp 相似，在提交新闻信息时，需要首先执行 form_onsubmit 函数，对用户 输入数据的有效性进行验证。 数据提交后，将由。newsupdate.asp 进行处理，它的主要代码如下： <% '对新闻正文进行替换的函数 Function ChangeChr(str) ChangeChr = Replace( str, "[upload]", "
") ChangeChr = Replace( ChangeChr, " ", "&nbsp;") ChangeChr = Replace( ChangeChr, chr(13), "
") End Function rqtContent = ChangeChr(request("txtcontent")) rqtContent = Replace(rqtContent,"'","‘") '替换新闻标题中的半角单引号 Dim title title = Request.Form("title") title = replace(title,"'","‘") '设置附图标记 '替换函数
If Request.Form("attpic")<>"" Then attpic = 1 Else attpic = 0 End If '设置 UPDATE 语句，更新新闻信息 sql = "UPDATE News SET Posttime='" & now() &"', Attpic=" & attpic & ", Title = '" & title _ & "', CateID = " & CInt(Request("Cate")) & "," & "Content='" & rqtContent & "' WHERE Id=" & CInt(Request("Id")) conn.Execute(sql) Response.Write "
修改成功！" %> 程序首先定义了替换函数 ChangeChr()， 然后接收从 NewsEdit.asp 中传递来的新闻数据， 最后定义了 update 语句，根据接收到的数据更新新闻信息。 NewsEdit.asp 的显示界面与 NewsAdd.asp 相似，处理过程也有相同之处，请读者参照理 解。
第三节 删除新闻
在删除新闻之前，需要选中相应的复
选框。这与删除新闻类别时的操作相似，所以在 index.asp 中，也定义了操作复选框的函数，包括选择全部复选框的 sltAll()清除全部选择的 sltNull()和生成并提交删除编号列表的 SelectChk()等。 处理删除新闻操作的脚本为 NewsDelt.asp， 参数 id