计算机科学与技术毕业论文--基于asp的网上新闻发布系统设计与实现

计算机科学与技术毕业论文--基于asp的网上新闻发布系统设计与实现内容摘要：

MS OPTION value Script MT Bold Script MT Bold OPTION value Stencil Stencil OPTION value Verdana Verdana OPTIONvalue Lucida Console Lucida Console 在下拉菜单中，定义了系统支持的字体名称，下拉菜单的值与字体名称相同。 当下拉菜单的选择发生变化时，将触发 onChange 事件，程序中直接定义了对应的 JavaScript 代码。 This 表示字体下拉菜单， this． selectedlndex 表示当前选择的菜单项目索引， [].value 则表示选择下拉菜单的值，程序将其保存变量 C 中。 表示当前选择字符的内容，如果它不为空，则将其替换为如下代码： .text 39。 font[space]face 39。 +c+39。 39。 + .text+39。 39。 也就是在它的两侧添加字体标识 和。 如果没有选择字符，则在输入新闻内容的文本域中直接加入字体标识，可以在 和 之间添加相应的文字，代码如下： mye 39。 font[space]face 39。 +c+39。 39。 +mye+39。 在添加和修改新闻内容的网页中，必须将表单定义为 myform，输入新闻内容的滚动文本框定义为 txtcontent，否则功能将无法 实现。 5 系统功能与主要模块设计 数据库连接设计 本主界面为 ，它的功能是显示新闻类别和每个类别中的 10 条新闻，并提供进入管理界面 的链接。 录入新闻类别和新闻内容后，。 下面介绍 的主要代码。 div align center font color blue size 3 新 闻 栏 目 % 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 类别编号 % ahref a % cid% fontstyle 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。 生成表格 tablewidth 39。 100%39。 cellspacing 1 cellpadding 2 39。 显示新闻类别，并设置书签 tdbgcolor ceceff a name aamp。 cidamp。 39。 显示新闻类别标题 stitle + 39。 生成另 一个表格，用于显示新闻标题 tablewidth 39。 100%39。 border 0 cellspacing 0cellpadding 0 39。 按提交时间的降序显示新闻标题 sql SELECT * FROM NewsWHERECateId amp。 cidamp。 ORDERBY 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。 显示新闻标题及链接，查看新闻的脚本文件为 tdwidth 39。 50%39。 aonClick 39。 returnnewwin。 39。 href 39。 ?id + cstr rs id + 39。 + rs Title + 39。 如果新闻中有图片，则在标题中显示（附图） If rs Attpic Then 附图 End If 39。 3 天内新闻标记 new 图片 If datediff d, rs Posttime , ndate+time 0 Then img SRC 39。 pic/39。 ALT 39。 最新的新闻。 39。 border 0 End If 39。 显示新闻提交的时间 tdwidth 39。 20%39。 +CStr rs Posttime + End If Loop 39。 设置返回顶部链接，跳转到书签 top palign right ahref top 39。 生成“更多新闻”链接，查看指定类别所有新闻的脚本为 atarget 39。 _self39。 href 39。 ?flag +CStr cid + 39。 更多新闻 ... loop % 显示新闻类别链接 将新闻按照分类显示，每个新闻类别只显示最新的 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 类别编号 % ahref a % cid% fontstyle 39。 TEXTDECORATION:none。 color:black39。 % stitle% | % Loop % 如果网页中显示的内容较多，通常需要通过定义书签的方法使用户快速到达指定的位置。 书签是网页中被标记的位置或被标记的选中文本。 在FrontPage 中选择“插入” /“书签”菜单项，可以在指定位置插入书签。 在本例中，因为书签位置是动态变化的，所以需要使用代码定义，方法如下： a name 书签名 添加新闻 在 中，“添加新闻”按钮的定义代码如下： input type button value 添加新闻 onclick newwin 39。 39。 name add 当单击“添加新闻”按钮时，将触发 onclick 事件，并调 newwin 39。 39。 函数，即在弹出的新窗口中执行 ． asp。 的运行界面如图 所示： 图 添加新闻 将新闻类别添加到下拉菜单中，代码如下： % Set rs 39。 将新闻类别装入下拉菜单中 sql SELECT * FROM xwlb ORDER BY ID Set rsCate sql DO WHILE Not stitle rsCate type cid rsCate ID % option value % cid% % stitle% % LOOP % 下拉菜单名为 Cate，值为新闻类别编号，显示的内容是新闻类别名称。 编辑新闻内容表单的定义代码如下： form action method POST name myform align center onsubmit return ValidationPassed 可以看到，表单名为 myfom，表单提交后，将由 处理表单数据。 在提交表单数据之前，程序将对 ValidationPassed 变量进行判断。 变量ValidationPassed 的值将在对数据有效性进行验证时被赋值。 在 中，定义“确定”按钮的代码如下： palign center input type submitvalue name B1onClick returnform_onsubmit 在单击“确定”按钮时，将执行 form_onsubmit ，进行数据有效性验证，代码如下 : function form_onsubmit obj ValidationPassed true。 if ctedIndex 0 alert 请选择新闻类别 ValidationPassed false。 return ValidationPassed。 if e alert 请填写新闻标题。 ValidationPassed false。 return ValidationPassed。 if e alert 请填写新闻内容。 ValidationPassed false。 re。