一、建设新闻系统的准备工作
1、新闻系统需求分析
新闻系统分为前台显示和后台管理模块；
前台显示包括：列表显示和按类别显示；
后台管理包括：新闻分类管理和新闻管理；
实际上管理就是：添加、编辑、删除等操作。
2、站点的建立
1）站点文件夹news的建立；
2）将news设置虚拟目录或WEB共享；
3）DW中建立动态站点.
二、设计新闻数据库表
1、新闻类别表
字段 类型 说明
nt_id 自动编号 设置为主键
nt_name 文本 字段大小为30
按ctrl+w保存退出，表名为ntype.
2、新闻表
字段 类型 说明
n_id 自动编号 设置为主键
n_title 文本 字段大小为60
n_t_id 数字
n_time 日期/时间 默认值为：now()
n_content 备注
按ctrl+w保存退出，表名为news.
3、建设新闻类别与新闻表的关系
1）选择工具栏中的关系按钮，建立ntype和news表中nt_id与n_t_id一对多的关系；
2）选择查询对象，使用设计视图建立查询表，选中ntype和news两表，生成查询表tnews。
三、管理页面的设计
1、建立框架集:admin.asp；
2、设计框架集页面：top.asp、left.asp、main.asp；
top.asp页面： 欢迎 {Session.MM_Username} 管理登录ASP管理系统 ；
left.asp页面： 建立会员管理、新闻管理、留言本管理、论坛管理、博客管理等；
main.asp页面：ASP管理系统说明信息.
四、新闻类别管理
1、新闻类别添加页(addnt.asp)
1）在news文件夹内创建addnt.asp页面；
2）在页面中创建表单，添加单行文本t_name表单元素；
3）点击添加按钮，添加检查表单的行为；
4）选择服务器行为，添加插入记录；
5）选择服务器行为，添加用户身份检证中限制对页的访问。
2、新闻类别列表页（ntlist.asp）
1）绑定记录集ntype
2）设计新闻类别列表页
3）重复区域设计并添加分页导航条
4） 分别选中编辑、删除添加转到详细页面ntedit.asp、ntdel.asp
3、新闻类别编辑页（ntedit.asp）
1）设计修改新闻类别表单；
2）点击修改按钮，添加检查表单行为；
3）绑定记录集，筛选对象为nt_id.
4）绑定动态数据
5）更新记录
6）限制对页的访问
4、新闻类别删除页 (ntdel.asp)
1)绑定记录集，筛选对象为nt_id.
2)设计删除按钮表单
3)选择服务器行为，添加删除记录
4）设置访问权限（只有高级管理才行使用）
五、新闻信息管理
1、新闻添加页（addn.asp）
1）设计新闻添加页：包括了新闻标题、新闻类别、新闻内容和提交按钮；
2）绑定记录集ntype，无筛选无排序；
3）绑定新闻类别动态值,值nt_id,标签nt_name；
4）插入记录
5）插入系统时间隐藏域
6）限制对页的访问
2、新闻列表页（nlist.asp）
1）绑定记录集tnews，排序为降序；
2）设计新闻列表页:包括了新闻类别，新闻标题，新闻发布时间和操作；
3）重复区域
4）记录集导航条
5）添加超链接：点击编辑，删除转到详细页面，nedit.asp和ndel.asp。
6）限制对页的访问
3、新闻编辑页（nedit.asp）
1）绑定记录集tnews，无筛选，无排序；
2）设计新闻编辑页表单；
3）添加表单检查功能；
4）绑定动态数据；
5）更新记录
6）限制对页的访问
4、新闻删除页（ndel.asp）
1)绑定记录集news，筛选对象为n_id.
2)设计删除按钮表单
3)选择服务器行为，添加删除记录
4）设置访问权限（只有高级管理才行使用）
六、新闻显示
1、新闻列表显示(news.asp)
1) 在页中插入3行3列的表格，设置表头信息；
2）绑定记录集tnews ，筛选nt_id,排序按n_id降序；
3)选择高级添加变量：MMColParam，默认值为：1 or 1=1，运行值：Request.QueryString("nt_id") ；
3）插入字段到指定的单元格，并选中最后一行选择服务器行为设置重复区域；
4）选中新闻类别，设计详细页面（news.asp），传递参数nt_id；
5）选中新闻标题，设计详细页面（news_show.asp）。
2、详细新闻查看（news_show.asp）
1)插入一个4行3列的表格，设置表头；
2)绑定记录集tnews表，筛选n_id字段；
3)在指定的单元格插入字段；
3、为最新新闻添加标识（在新闻标题后面添加以下代码）
<%
Dim nowtime,newstime
nowtime=now()
newstime=Recordset1.Fields.Item("n_time").Value
if datediff("d",newstime,nowtime)<3 then
response.write("[最新]")
end if
%>
4、 新闻内容格式
1)在news_show.asp代码中输入以下代码：
<%
Function HTMLEncode(fstring)
if not isnull(fstring) then
fstring=replace(fstring,chr(13),"")
fstring=replace(fstring,chr(10),"<br/>")
fstring=replace(fstring,chr(10)&chr(10),"</p><p>")
HTMLEncode=fstring
end if
end function
%>
2）修改新闻主要内容部分为：
<%=HTMLEncode(Recordset1.Fields.Item("n_content").Value)%>
