新闻发布系统源程序代码.doc_第1页
新闻发布系统源程序代码.doc_第2页
新闻发布系统源程序代码.doc_第3页
新闻发布系统源程序代码.doc_第4页
新闻发布系统源程序代码.doc_第5页
已阅读5页,还剩19页未读 继续免费阅读

下载本文档

版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领

文档简介

系统源程序代码目录: 1 Conn.asp.12 Default.asp.13 Search.asp.44 Admin_admin.asp.65 Adminlogin.asp.86 Admin.asp.107 Admin_addinfo.asp.118 Admin_info.asp.159 Admin_type.asp.1810 Pinglun.asp.211 Conn.asp 的源程序代码:2 Default.asp 的源程序代码如下:点苍新闻发布系统 最新新闻 更多. 国内新闻   国际新闻 文体新闻 社会新闻 3 Search.asp 的源程序代码如下:%key=request(key)otype=request(otype)if key= then response.write alert(查找字符串不能为空!);history.back(); response.endend if%点苍新闻发布管理系统 % Set rs= Server.CreateObject(ADODB.Recordset)if otype=title thensql=select * from NEWS where title Like %& key &% order by id descelseif otype=msg thensql=select * from NEWS where content Like %& key &% order by id descelseend ifrs.open sql,conn,1,1if rs.eof and rs.bof thenresponse.write 对不起,没有找到相关新闻else% ID 新闻标题 发布者 发布日期 a href=ONEWS.asp?id= target=_blank 关键字,共为您找到条新闻 4 Admin_admin.asp 的源程序代码如下:新闻发布管理系统 ID 用户 密码(加密) 权限 修改 删除 a href=admin_AdminModify.asp?id=修改 a href=admin_AdminDel.asp?id=删除 添加管理员: 管理帐号: 管理权限: 超级管理员 普通管理员 管理密码: 5 Adminlogin.asp 的源程序代码如下:%if request(logout) then session(admin)=session(password)=session(aleave)=response.redirect adminlogin.aspend if%新闻发布管理系统 点苍新闻发布管理系统后台管理 用户名: 密码:     © 程序制作:杜荣宝 6 Admin.asp 的源程序代码如下:left 后台管理首页 添加新闻内容 管理全部新闻 管理新闻类别 超级管理选项 退出管理系统 程序制作: drb© 2007 7 Admin_addinfo.asp 的源程序代码如下:var onecount;subcat = new Array(); subcat = new Array(,); onecount=;function changelocation(locationid) document.addNEWS.SmallClassName.length = 1; var locationid=locationid; var i; for (i=0;i onecount; i+) if (subcati1 = locationid) document.addNEWS.SmallClassName.optionsdocument.addNEWS.SmallClassName.length = new Option(subcati0, subcati2); function CheckForm() document.addNEWS.cnWords.value = EditBox.getHTML(true); document.addNEWS.imageNum.value = EditBox.document.all(editImageNum).value; document.addNEWS.editFirstImageName.value = EditBox.document.all(editFirstImageName).value;if (document.addNEWS.title.value.length = 0) alert(新闻标题没有填写.);document.addNEWS.title.focus();return false;if (document.addNEWS.user.value.length = 0) alert(新闻发布人没有填写);document.addNEWS.user.focus();return false;return tru

温馨提示

  • 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

评论

0/150

提交评论