云题海 - 专业文章范例文档资料分享平台

当前位置:首页 > 校园网新闻发布系统 - 图文

校园网新闻发布系统 - 图文

  • 62 次阅读
  • 3 次下载
  • 2025/6/18 3:58:10

四川师范大学成都学院专科毕业设计

else {

strid = strid + \} } }

strurl = \ if(!s) {

alert(\请选择要删除的新闻类别!\ return false; }

if (confirm(\你确定要删除这些新闻类别吗?\ form1.action = strurl; form1.submit(); } }

程序对每个复选框进行判断,如果复选框被选中,则将复选框的id值转换为字符串,并追加到变量strid中。因为复选框的id值与对应的新闻类别编号相同,所以最后strid中保存的是以逗号为分隔符的待删除的新闻类别编号。以strid的值为参数执行Cate_Admin.asp,参数Oper等于delete,就可以删除选中记录了。

在删除新闻类别之前,应该判断此新闻类别中是否包含新闻,如果有新闻,则不能删除,否则会产生没有新闻类别的垃圾新闻。

7 新闻发布管理模块设计

系统用户都可以发布新闻,新闻发布管理模块包含以下功能: (1)发布新新闻; (2)修改新闻; (3)删除新闻。 7.1 添加新闻

在index.asp中,“添加新闻”按钮的定义代码如下:

36

四川师范大学成都学院专科毕业设计

当单击“添加新闻”按钮时,将触发onclick事件,并调newwin('NewsAdd.asp')函数,即在弹出的新窗口中执行News.Add.asp。

NewsAdd.asp的运行界面如图7.1-1所示。

图7.1-1 NewsAdd.asp的运行界面

将新闻类别添加到下拉菜单中,代码如下: <%

Set rs = Server.CreateObject(\ '将新闻类别装入下拉菜单中

sql = \ Set rsCate = Conn.Execute(sql) DO WHILE Not rsCate.EOF stitle = rsCate(\ cid = rsCate(\%>

37

四川师范大学成都学院专科毕业设计

rsCate.movenext LOOP %>

下拉菜单名为Cate,值为新闻类别编号,显示的内容是新闻类别名称。编辑新闻内容表单的定义代码如下:

可以看到,表单名为myfom,表单提交后,将由newsSave.asp处理表单数据。在提交表单数据之前,程序将对ValidationPassed变量进行判断,只有当ValidationPassed=True时,才执行提交操作。变量ValidationPassed的值将在对数据有效性进行验证时被赋值。在.NewsAdd.asp中,定义“确定”按钮的代码如下:

在单击“确定”按钮时,将执行form_onsubmit(this.form),进行数据有效性验证,代码如下:

function form_onsubmit(obj) {

ValidationPassed = true; if(obj.Cate.selectedIndex <0) { alert(\请选择新闻类别\ ValidationPassed = false; return ValidationPassed; }

if(obj.title.value == \ alert(\请填写新闻标题\ ValidationPassed = false; return ValidationPassed; }

if(obj.txtcontent.value == \ alert(\请填写新闻内容!\ ValidationPassed = false;

38

四川师范大学成都学院专科毕业设计

return ValidationPassed; } }

这是一段JavaScript代码,参数obj接受this.form的值,表示表单myfom。程序将分别对新闻类别、新闻标题和新闻内容进行判断,这些信息是必须填写的。如果没有填写前面提到的信息,将弹出相关的对话框,ValidationPassed=false,这样表单数据将无法提交。

在NewsAdd.asp页面的相关位置使用#include命令包括template.asp,将可以显示控制模板。

下面介绍newSave.asp的部分代码。在newSave.asp中,有一个函数ChangeStr(),它的功能是替换新闻正文中的功能字符串,目的是使其能够成为HTML网页的一部分,在浏览网页时被正常显示。被替换的功能字符串包括以下内容:

[upload] 上传新闻 图片标记, 需要将其替换为:

[/upload] 与[upload]匹配使用,标记上传新闻图片的结束。需要将其替换为 “[space]border=0[space]width=300>

”;空格(””) 空格将被替换为:

“ ;”;chr(13) 回车符将被替换为
。 函数ChangeStr()的代码如下: Function ChangeChr(str)

ChangeChr=Replace(str,\

\ ChangeChr=Replace(ChangeChr,\\

ChangeChr = Replace( ChangeChr, \ ChangeChr = Replace( ChangeChr, chr(13), \End Function

新闻正文需要保存在数据库中,当从数据库中读取新闻正文的内容在网页中显示时,空格将被自动过滤掉,这样将无法被正确显示。为了避免这种情况发生,这里将空格表示为[space],并存入数据库,在读取数据时再将其转换为空格。

下面程序将接收从NewsAdd.asp传递来的数据,并将它们转换为能够保存到数据库

39

搜索更多关于: 校园网新闻发布系统 - 图文 的文档
下载文档10.00 元 加入VIP免费下载
推荐下载
本文作者:...

共分享92篇相关文档

文档简介:

四川师范大学成都学院专科毕业设计 else { strid = strid + \} } } strurl = \ if(!s) { alert(\请选择要删除的新闻类别!\ return false; } if (confirm(\你确定要删除这些新闻类别吗?\ form1.action = strurl; form1.submit(); } } 程序对每个复选框进行判断,如果复选框被选中,则将复选框的id值转换为字符串,并追加到变量strid中。因为复选框的id值与对应的新闻类别编号相同,所以最后strid中保存的是以逗号为分隔符的待删除的新闻类别编号。以strid的值为参数执行Cate_Admin.asp,参数Oper

相关推荐

× 游客快捷下载通道(下载后可以自由复制和排版)
单篇付费下载
限时特价:10 元/份 原价:20元
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
VIP包月下载
特价:29 元/月 原价:99元
低至 0.3 元/份 每月下载150
全站内容免费自由复制
注:下载文档有可能“只有目录或者内容不全”等情况,请下载之前注意辨别,如果您已付费且无法下载或内容有问题,请联系我们协助你处理。
微信:fanwen365 QQ:370150219
Copyright © 云题海 All Rights Reserved. 苏ICP备16052595号-3 网站地图 客服QQ:370150219 邮箱:370150219@qq.com