基于web的新闻发布系统说明书

基于web的新闻发布系统说明书内容摘要：

将新闻按照分类显示，每个新闻类别只显示最新的 10 条新闻。 如果新闻类别较多，则网页会被拉长，给用户阅读带来不便。 为了解决这个问题，本实例使用书签来定义新闻类别的位置，书签格式为 a类别编号。 例如，类别编号为 1 的新闻 类别的书签名称为 al。 下面的代码将在网页中生成所有新闻类别的链接，每个链接都指相应新闻类别的书签。 这样，用户就可以通过单击链接东华理工大学 数据库结构与设计 17 直达新闻类别了。 % 39。 =====显示所有新闻类别供点击，点击不同类别显示该类别的新闻 ===== 39。 按顺序读取所有新闻类别，保存在记录集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。 显示所有新闻类别链接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。 每个新闻类别标题被定义为一个书签，名为 a 类别编号 % a href=a%=cid%font style=39。 TEXTDECORATION: none。 color:black39。 %=stitle%/font/a | % Loop % 如果网页中显示的内容较多 ，通常需要通过定义书签的方法使用户快速到达指定的位置。 书签是网页中被标记的位置或被标记的选中文本。 在 FrontPage中选择“插入” /“书签”菜单项，可以在指定位置插入书签。 在本例中，因为书签位置是动态变化的，所以需要使用代码定义，方法如下： a name=书签名 /a 2．“新闻管理”链接 系统管理员 Admin 或其他用户可以通过“新闻管理”链接进入新闻管理页面 a href=font color=red style=39。 TEXTDECORATION: none39。 新闻管理 /font/a 3．显示各新闻类别中的最新新闻 的主要内容是显示新闻类别中的最新 10 条新闻，并将 3 天内的新闻使用 new 图片标记。 当然，如果新闻的内容经常更新，则可以将 3 天改为 1 天。 这部分代码如下 : % 39。 =====显示所有新闻类别供点击，点击不同类别显示该类别的新闻 ===== 39。 按顺序读取所有新闻类别，保存在记录集 rsCate 中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) 39。 显示所有新闻类别链接 Do While Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。 每个新闻类别标题被定义为一个书签，名为 a 类别编号 % 东华理工大学 数据库结构与设计 18 a href=a%=cid%font style=39。 TEXTDECORATION: none。 color:black39。 %=stitle%/font/a | % Loop % a href=39。 39。 font color=red新闻查询 /font/a | a href=font color=red style=39。 TEXTDECORATION: none39。 新闻管理 /font/a /div table align=center width=100% cellspacing=0 cellpadding=0 border=0 tr td width=* valign=TOP % 39。 将指针移至开始位置，分别显示每个分类中的新闻 If = False Then End If 39。 依次显示每个新闻类别中最新的 10 条新闻 DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) 39。 变量 t 用来记录 t = 0 39。 生成表格 table width=39。 100%39。 cellspacing=1 cellpadding=2tr 39。 显示新闻类别，并设置书签 td bgcolor=ceceffa name=aamp。 cidamp。 /a == 39。 显示新闻类别标题 stitle + ==/td/tr 39。 生成另一个表格，用于显示新闻标题 table width=39。 100%39。 border=0 cellspacing=0 cellpadding=0 39。 按提交时间的降序显示新闻标题 sql = SELECT * FROM News WHERE CateId= amp。 cid amp。 ORDER BY Posttime DESC sql, conn, 1, 1 DO WHILE Not 39。 计数 t = t + 1 39。 只显示 10 条新闻 If t 11 Then Dim ndate ndate = DateAdd(d,3,date()) 39。 显示新闻标题及链接，查看新闻的脚本文件为 trtd width=39。 50%39。 a onClick=39。 return newwin()。 39。 href=39。 ?id= + cstr(rs(id)) + 39。 + rs(Title) + 39。 如果新闻中有图片，则在标题中显示（附图） 东华理工大学 数据库结构与设计 19 If rs(Attpic) Then (附图 ) End If /a 39。 3 天内新闻标记 new 图片 If datediff(d, rs(Posttime), ndate+time()) = 0 Then img SRC=39。 pic/39。 ALT=39。 最新的新闻。 39。 border=0/td End If 39。 显示新闻提交的时间 td width=39。 20%39。 ( + CStr(rs(Posttime)) + )/td/tr End If Loop /table 39。 设置返回顶部链接，跳转到书签 top p align=righta href=top返回顶部 /a 39。 生成“更多新闻”链接，查看指定类别所有新闻的脚本为 a target=39。 _self39。 href=39。 ?flag= + CStr(cid) + 39。 更多新闻 .../a/p /td/tr/table/td/table loop % 因为在第 l 步中已经将各新闻类别的标题读取到记录集 rsCate 中，所以只需要使用执行 语句将指针复位就可以了。 使用 DO WHIIlE 循环语句依次处理每个新闻类别，读取此类别中的所有新闻信息到记录集 rs 中，并在表格中显示新闻标题。 请参照注释理解。 登录程序设计 在对系统进行管理之前，需要通过系统的身份认证。 本站中使用 进行身份验证。 对于需要登陆才能察看的网页可以在网页的最前端加上如下代码： !include file=”” 这样为登陆的用户将看到如下界面： 东华理工大学 数据库结构与设计 20 设计管理界面 管理界面的功能是对新闻类别和新闻提供管理界面，只有有权限的用户才能进入管理界面。 本节将介绍管理界面 的实现方法。 录入新闻类别和新闻内容后， 的界面如图 57 所示。 东华理工大学 数据库结构与设计 21 六：新闻发布管理模块设计 此部分由潘小林设计与实现 添加新闻 在 中，“添加新闻”按钮的定义代码如下： input type=button value=添加新闻 onclick=newwin(39。 39。 ) name=add 当单击“添加新闻”按钮时，将触发 onclick 事件，并调 newwin(39。 39。 )函数，即在弹出的新窗口中执行 ． asp。 的运行界面如图710 所示。 东华理工大学 数据库结构与设计 22 图 710 的运行界面 将新闻类别添加到下拉菜单中，代码如下： % Set rs = () 39。 将新闻类别装入下拉菜单中 sql = SELECT * FROM Category ORDER BY CateId Set rsCate = (sql) DO WHILE Not stitle = rsCate(CateName) cid = rsCate(CateId) % option value=%=cid%%=stitle%/option % LOOP % 下拉菜单名为 Cate，值为新闻类别编号，显示的内容是新闻类别名称。 编辑东华理工大学 数据库结构与设计 23 新闻内容表单的定义代码如下： form action= method=POST name=myform align=center onsubmit=return ValidationPassed 可以看到，表单名为 myfom，表单提交后，将由 处理表单数据。 在提交表单数据之前，程序将对 ValidationPassed 变量进行判断，只有当ValidationPassed=True 时，才 执行提交操作。 变量 ValidationPassed 的值将在对数据有效性进行验证时被赋值。 在． 中，定义“确定”按钮的代码如下： input type=submit value= 确 定 name=B1 onclick=return form_onsubmit() 在单击“确定”按钮时，将执行 form_onsubmit()，进行数据有效性验证，代码如下 : function form_onsubmit(obj) { ValidationPassed = true。 if( 0) { alert(请选择新闻类别 ) ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(请填写新闻标题 )。 ValidationPassed = false。 return ValidationPassed。 } if( == ) { alert(请填写新闻内容。 )。 ValidationPassed = false。 return ValidationPassed。 } } 这是一段 JavaScript 代码，参数 obj 接受 ，表示表单 myfom。 程序将分别对新闻类别、新闻标题和新闻内容进行判断，这些信息是必须填写的。 如果没有填写前面提到的信息，将弹出相关的对话框， ValidationPassed=false，这样 表单数据将无法提交。 在 页面的相关位置使用 include 命令包括 ，将可以显示控制模板。 修改新闻 在 中，每条新闻记录的后面都有一个修改超级链接。 单击此链接，东华理工大学 数据库结构与设计 24 将打开 ，对指定新闻进行编辑。 参数 id 表示新闻编号。 本节将介绍如何使用 修改新闻内容。 在 的开始部分，将使用下面的代码包含相关文件，从而连接到数据库，并判断用户的编辑权限。 !include file= !include file=。