计算机科学与技术专业毕业论文--基于web的新闻发布系统

计算机科学与技术专业毕业论文--基于web的新闻发布系统内容摘要：

rpassword。 Database news ConnStr % 在文件中引用此文件作为头文件就可以访问数据库，代码如下： !include File 2． 因为本实例中有些功能只有 Admin 用户才有权限使用，所以在进入这些网页之前，需要判断用户是否是 Admin。 的功能是判断当前用户是否是Admin，如果不是，则中断执行；如果是，则不执行任何操作，直接进入包含它的网页。 的代码如下： % If Session UserName Admin Then 不是 Admin 用户，没有此权限 End If % 在文件中引用此文件作为头文件，代码如下 : !include File 3． 在修改和删除新闻时，除了 Admin 用户拥有所有权限外，其他用户只能修改自己创建的新闻。 所以在修改和删除新闻时，需要判断当前用户是否是 Admin或指定新闻的作者。 可以实现此功能，代码如下： % If Session UserName Admin Then NewsId Request Id 39。 根据新闻编号读取新闻信息 set rsNews sql SELECT * FROM News WHERE Id amp。 Trim NewsId set rsNews sql Set Rs sql If Then 指定新闻不存在 Else 39。 判断用户权限，是否可以维护新闻，管理员可以编辑所有新闻，编辑者只能修改自己的新闻 If rsNews Poster Session UserName Then 不是 Admin 或新闻的作者，无权修改。 End If End If End If % 如果当前用户是 Admin，则 不做任何操作；否则，程序将根据参数 Id 读取新闻信息，并将 Poster 字段的值与当前用户名进行比较。 在两种情况下， 将阻止程序继续执行： 1 指定新闻不存在； 2 当前用户不是指定新闻的作者。 使用 可以结束网页的输出。 在文件中引用此文件作为头文件，代码如下： !include File 4． 在添加和修改新闻内容时，需要对字体、字号、颜色和排列位置等属性进行设置。 可以实现这些功能。 的设计界面如图 5 所示。 图 5 的设计界面 在使用 时，设置指定的选项，将会在新闻内容中生成相应的HTML 代码。 例如，选中正文 abc，然后选择“楷体”、“ 1 号字”，将生成如下代码： font[space]face 楷体 _GB2312 font[space]size 1 abc [space]是自定义的符号，因为空格在转换成 HTML 格式时，将被替换为“ amp。 nbsp；”，所以这里使用 [space]表示空格。 在显示新 闻内容时，程序将会自动将 [space]转换为空格。 因为 的代码较多，这里仅以字体控制的代码为例说明。 相关代码如下： 字体 SELECT onChange var c [].value。 if .text! 39。 39。 .text 39。 font[space]face 39。 +c+39。 39。 + .text+39。 39。 else mye 39。 font[space]face 39。 +c+39。 39。 +mye+39。 39。 name font style 39。 FONTSIZE: 9pt39。 OPTION selected value 宋体 宋体 OPTION value 楷体 _GB2312 楷体 OPTION value 新宋体 新宋体 OPTION value 黑体 黑体 OPTION value 隶书 隶书 OPTION value Andale Mono Andale Mono OPTION value Arial Arial OPTION value Arial Black Arial Black OPTION value Book Antiqua Book Antiqua OPTION value Century Gothic Century Gothic OPTION value Comic Sans MS Comic Sans MS OPTION value Courier New Courier New OPTION value Geia Geia OPTION value Impact Impact OPTION value Tahoma Tahoma OPTION value Times New Roman Times New Roman OPTION value Trebuchet MS Trebuchet MS OPTION value Script MT Bold Script MT Bold OPTION value Stencil Stencil OPTION value Verdana Verdana OPTION value Lucida Console Lucida Console 在下拉菜单中，定义了系统支持的字体名称，下拉菜单的值与字体名称相同。 当下拉菜单的选择发生变化时，将触发 onChange 事件，程序中直接定义了对应的 JavaScript 代码。 This 表示字体下拉菜单， this． selectedlndex 表示当前选择的菜单项目索引， [].value 则表 示选择下拉菜单的值，程序将其保存变量 C 中。 表示当前选择字符的内容，如果它不为空，则将其替换为如下代码： .text 39。 font[space]face 39。 +c+39。 39。 + .text+39。 39。 也就是在它的两侧添加字体标识 和。 如果没有选择字符，则在输入新闻内容的文本域中直接加入字体标识，用户可以在 和 ／ font 之问添加相应的文字，代码如下： mye 39。 font[space]face 39。 +c+39。 39。 +mye+39。 在添加和修改新闻内容的网页中，必须将表单定义为 myform，输入新闻内容的滚动文本框定义为 txtcontent，否则此功能将无法实现。 系统主界面与登录程序设计 第一节 设计主界面 本主界面为 ，它的功能是显示新闻类别和每个类别中的 10 条新闻，并提供进入管理界面 的链接。 录入新闻类别和新闻内容后， 的界面如图 56 所示。 图 56 的界面 下面介绍 的主要代码。 1．显示新闻类别链接 将新闻按照分类显示，每个新闻类别只显示最新的 10 条新闻。 如果新闻类别 较多，则网页会被拉长，给用户阅读带来不便。 为了解决这个问题，本实例使用书签来定义新 闻类别的位置，书签格式为 a。 例如，类别编号为 1 的新闻类别的书签名称为 al。 下面的代码将在网页中生成所有新闻类别的链接，每个链接都指相应新闻类别的书签。 这样，用户就可以通过单击链接直达新闻类别了。 % 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% | % Loop % 如果网页中显示的内容较多，通常需要通过定义书签的方法使用户快速到达指定的位置。 书签是网页中被标记的位置或被标记的选中文本。 在FrontPage 中选择“插入” /“书签”菜单项，可以在指定位置插入书签。 在本例中，因为书签位置是动态变化的，所以需要使用代码定义，方法如 下： a name 书签名 2．“新闻管理”链接 系统管理员 Admin 或其他用户可以通过“新闻管理”链接进入新闻管理页面 a href font color red style 39。 TEXTDECORATION: none39。 新闻管理 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 类别编号 % a href a % cid% font style 39。 TEXTDECORATION: none。 color:black39。 % stitle% | % Loop % a href 39。 39。 font color red 新闻查询 | a href font color red style 39。 TEXTDECORATION: none39。 新闻管理 table align center width 100% cellspacing 0 cellpadding 0 border 0 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 2 39。 显示新闻类别，并设置书签 td bgcolor ceceff a name aamp。 cidamp。 39。 显示新闻类别标题 stitle + 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。 显示新闻标题及链接，查看新闻的脚本文件为 td width 39。 50%39。 a onClick 39。 return newwin。 39。 href 39。 ?id + cstr rs id + 39。 + rs Title + 39。 如果新闻中有图片，则在标题中显示（附图） If rs Attpic Then 附图 End If 39。 3 天内新闻标记 new 图片 If datediff d, rs Posttim。