当前位置:首页 > 校园网新闻发布系统 - 图文
四川师范大学成都学院专科毕业设计
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(\%>
“ ;”;chr(13) 回车符将被替换为
。 函数ChangeStr()的代码如下: Function ChangeChr(str)
ChangeChr=Replace(str,\
\ ChangeChr=Replace(ChangeChr,\\
ChangeChr = Replace( ChangeChr, \ ChangeChr = Replace( ChangeChr, chr(13), \End Function
新闻正文需要保存在数据库中,当从数据库中读取新闻正文的内容在网页中显示时,空格将被自动过滤掉,这样
下面程序将接收从NewsAdd.asp传递来的数据,并将它们转换为能够保存到数据库
39
共分享92篇相关文档