新闻发布系统源程序代码

1、重庆大学网络教育学院毕业论文范本PAGE PAGE 49系统源程序代码目录:1Conn.asp12Default.asp13Search.asp44Admin_admin.asp65Adminlogin.asp86Admin.asp107Admin_addinfo.asp118Admin_info.asp159Admin_type.asp1810Pinglun.asp211 Conn.asp 的源程序代码:2 Default.asp 的源程序代码如下:点苍新闻发布系统 最新新闻 更多. 国内新闻 国际新闻 文体新闻 社会新闻 3 Search.asp 的源程序代码如下:%key=request

2、(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 co

3、ntent 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_Admi

4、nDel.asp?id=删除 添加管理员： 管理帐号： 管理权限： 超级管理员 普通管理员 管理密码： 5 Adminlogin.asp 的源程序代码如下:%if request(logout) then session(admin)=session(password)=session(aleave)=response.redirect adminlogin.aspend if%新闻发布管理系统 点苍新闻发布管理系统后台管理 用户名： 密码： 程序制作：杜荣宝 6 Admin.asp 的源程序代码如下:left 后台管理首页 添加新闻内容 管理全部新闻 管理新闻类别 超级管理选项 退出管理系统

5、 程序制作: 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.Smal

6、lClassName.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.docu

7、ment.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 true;添加新闻 *新闻标题： *新闻类别： option selected value= o

8、ption value= 不指定小类 option value= option value= *新闻内容： *发布人： 8 Admin_info.asp 的源程序代码如下:管理新闻 ID 新闻标题 发布者 所属一级分类 所属二级分类 发布日期 操作 pages then page=pagesrs.AbsolutePage=page for j=1 to rs.PageSize % a href=./ONEWS.asp?id= target=_blank title= a href=admin_infomodi.asp?id=修改 a href=admin_infodel.asp?id=删除 %

9、if Page2 then response.write 首页上一页 else response.write 首页 response.write 上一页 end if if rs.pagecount1 then response.write 下一页尾页 else response.write response.write 下一页 尾页 end if response.write 页次：&Page&/&rs.pagecount&页 response.write 共&rs.recordcount&条记录 &rs.pagesize&条记录/页 response.write 转到： response.

10、write % 9 Admin_type.asp 的源程序代码如下:%if request(action)=add thentypes=request.Form(types)检验此类别名称是否唯一sql=select * from type where types=&types& order by typeid descset rs=server.createobject(ADODB.Recordset)rs.open sql,conn,1,1if not(rs.eof or rs.bof) thenresponse.writealert(对不起，此类别名称不唯一,请核实！);response

11、.writejavascript:history.go(-1)response.endend ifrs.closeset rs=nothing添加类别conn.execute insert into type (types) values (&types&)response.redirect admin_type.asp response.endend ifif request(action)=del thenset rs=server.CreateObject(ADODB.RecordSet)rs.open delete * from type where typeid=&request(i

12、d),conn,1response.redirect admin_type.asp response.endend ifif request(action)=mod thentypes=request.Form(types)typesm=request.Form(typesm)检验修改后的新闻类别是否唯一if typestypesm thensql=select * from type where types=&typesm& order by typeid descset rs=server.createobject(ADODB.Recordset)rs.open sql,conn,1,1i

13、f not(rs.eof or rs.bof) thenresponse.writealert(对不起，此新闻类别不唯一,请核实！);response.writejavascript:history.go(-1)response.endend ifrs.closeset rs=nothingend ifconn.execute update type set types=&typesm& where types=&types&response.redirect admin_type.aspresponse.endend if%管理新闻类别 ID 类别 操作 a href=admin_type.

14、asp?types=&a=m修改 a href=admin_type.asp?action=del&id= title=请谨慎操作，删除后不可恢复删除 修改新闻类别 input name=typesm type=text value= class=input input type=hidden name=types value= 添加新闻类别 10 Pinglun.asp 的源程序代码如下:用户评论%dim id,actionid=request.QueryString(id)action=request.QueryString(action)if action=save thenset rs

15、=server.CreateObject(adodb.recordset)rs.open select * from shop_pinglun,conn,1,3rs.addnewrs(id)=idrs(pinglunname)=HTMLEncode2(trim(request(pinglunname)rs(pingluncontent)=HTMLEncode2(trim(request(pingluncontent)rs(pinglundate)=now()rs.updaters.closeset rs=nothingresponse.write response.write 您的评论已成功提交！关闭窗口response.Endend if% 欢迎您发表自己的评论。您的评论将被网络上成千上万的读者所共享，我们将对您的慷慨深表感谢。 form name=pinglunform method=post action=pinglun.asp?action=save&id= 您的姓名： 评论正