《程序设计》word版.doc

程序设计（主要源代码）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%新闻发布系统管理 新闻发布管理系统后台管理