已阅读5页,还剩26页未读, 继续免费阅读
版权说明:本文档由用户提供并上传,收益归属内容提供方,若内容存在侵权,请进行举报或认领
文档简介
程序设计(主要源代码)Default.asp毕设新闻系统 最新新闻 更多. 国内新闻 更多. 国际新闻 更多. 文体新闻 更多. 社会新闻 更多. Left.asp 新闻搜索 新闻标题 新闻内容 最新新闻 NEW10 a href=onews.asp?id= title= target=_blank =10 then exit do rs.movenext loop else response.write 尚无收录 end if rs.close % 热门新闻 TOP10 点击 a href=onews.asp?id= title= target=_blank =10 then exit do rs.movenext loop else response.write 尚无收录 end if rs.close % Conn.aspSearch.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 关键字,共为您找到条新闻 Top.asp 新闻首页 a href=otype.asp?owen1= 提供新闻线索 Onews.asp.content font-size: 11pt; tdword-break:break-allvar currentpos,timer;function initialize()timer=setInterval(scrollwindow(),50);function sc()clearInterval(timer);function scrollwindow()currentpos=document.body.scrollTop;window.scroll(0,+currentpos);if (currentpos != document.body.scrollTop)sc();document.onmousedown=scdocument.ondblclick=initialize 双击自动滚屏 发布者: 发布时间: 阅读:次 a href=# onClick=javascript:window.open(pinglun.asp?id=,width=295,height=185,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no);return false; | 打印本页 | 关闭窗口 %dim rs1set rs1=server.CreateObject(adodb.recordset) rs1.open select * from shop_pinglun where id=&owen&,conn,1,1 if rs1.eof and rs1.bof then response.write 如果您阅读过本篇文章,或对本文章有所了解,欢迎您发表自己的评论。您的评论将被网络上成千上万的读者所共享,我们将对您的慷慨深表感谢。response.write 您的评论在提交后将经过我们的审核,也许您需要等待一些时间才可以看到。谢谢合作。elsedo while not rs1.eof % * 特此声明: 本站发表读者评论,并不代表我们赞同或者支持读者的观点。我们的立场仅限于传播更多读者感兴趣的信息 * Adminlogin.asp%if request(logout) then session(admin)=session(password)=session(aleave)=response.redirect adminlogin.aspend if%新闻发布系统管理 新闻发布管理系统后台管理
温馨提示
- 1. 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
- 2. 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
- 3. 本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
- 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
- 5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
- 6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
- 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。
最新文档
- 站文明岗的心得体会模板8篇
- 学习护礼仪的心得体会模板8篇
- 围手术期患者血液保护制度
- 2024年学校政教处个人工作计划
- 工程力学简明教程 课件 第一篇 静力学
- 计算机基础实训教程-第3章
- 《茅屋为秋风所破歌》课件
- 育人导向的中小学英语教育戏剧课程体系的构建与实施
- 农村土地适度规模经营调研
- 《热交换器及传热元件性能测试方法+第1部分:通 用要求gbt+27698.1-2023》详细解读
- 校园安全事故应急保障
- 外来医疗器械的清洗消毒及管理试题及答案
- 词语积累巧运用-词句段运用专项(作业设计)部编版语文四年级下册
- 2024二级建造师考试公路真题及答案
- 保安执勤问题整改措施
- 农村诈骗宣传知识讲座
- 《团队沟通技巧》课件
- 家纺产品开发计划书
- 儿科百日咳护理查房课件
- 拼多多病毒式裂变营销案例
- 弥漫性大B细胞淋巴瘤查房课件
评论
0/150
提交评论