任务二 制作校园新闻显示页面

任务描述

校园新闻系统的主页面可显示数据库中新闻表最新的部分或全部新闻标题，单击任意新闻标题可由程序自动生成风格统一的新闻页面，并可显示上一篇、下一篇的新闻标题及链接。为使新闻页面更加灵活，同时使用滚动字幕显示最新新闻标题。

主页面中还包含管理员登录表单，用于管理员对新闻进行添加、修改、删除等管理。

任务分析

主页面中的管理员登录系统与以前的用户登录系统相类似。新闻显示页面则通过前台应用程序实现对新闻系统数据库新闻表中记录的查询、浏览等操作来完成。

本任务通过OLE DB驱动程序连接数据库中的新闻表。

方法与步骤

1．制作新闻系统主页面（index.asp） （1）制作管理员登录表单

打开news下的网页文件index.asp，输入网页标题“新闻网页”，然后设计如下页面，在左侧单元格“管理员入口”下部设计如下表单。

图5-2-1

设置表单属性：方法—POST、动作—login.asp（管理员登录文件）。 表单元素属性设置如下： 标签 账号 密码 zh mm b1 b2 名称 文本域 密码域 提交表单按钮 重设表单按钮 类型 值为“登录” 值为“重置” 属性设置 （2）新闻标题的显示（最新8条新闻） 在页面右侧单元格（“新闻动态”下部）加入一个2行1列的表格。

图5-2-2

打开“代码”视图，在表格的相应位置输入脚本代码，输入后的表格完整代码如下：

myconn.ConnectionString = \SOURCE =\& Server.MapPath(\ myconn.Open Set rs=Server.CreateObject(\ '执行select语句，获得一个记录集，按id降序排列 sql=\ rs.Open sql,myconn,3,2 '循环显示各新闻的标题，并使用变量id传递新闻的id号 Do While not rs.eof %>

“更多新闻”链接到分页显示新闻的morenew.asp文件。 （3）使用滚动字幕显示最新5条新闻标题

在网页表格下部“最新新闻……”处输入如下代码用于滚动显示最新5条新闻的标题：

rs.Close

sql=\

rs.Open sql,myconn,3,2 Do While not rs.eof

Response.Write(\href='disp.asp?id=\\

rs.MoveNext Loop %>……

完成后的校园新闻系统主页面。

rs(\& \& rs(\

图5-2-3

2．制作新闻代码转化文件（htmlenc.inc）

由于新闻内容中可能会存在一些HTML字符，所以如果想正确显示新闻内容，需要先将内容进行代码转化，即将新闻内容中可能存在的HTML字符转化为能够直接显示的字符，如，将“>”转化为“>”，将“回车符chr(32)”转化为“ ”等。

将常见的字符转化编写为一个函数以供显示新闻时调用，函数存放于一个inc文件中，所有用到代码转化的文件可直接使用include包含此文件。

htmlenc.inc文件代码如下： <%

function HTMLEncode(fString)

fString = Replace(fString, \ fString = Replace(fString, \

fString = Replace(fString, CHR(32), \ fString = Replace(fString, CHR(13), \

fString = Replace(fString, CHR(10) & CHR(10), \ fString = Replace(fString, CHR(10), \ HTMLEncode = fString