论坛交流
首页办公自动化| 网页制作| 平面设计| 动画制作| 数据库开发| 程序设计| 全部视频教程
应用视频: Windows | Word2007 | Excel2007 | PowerPoint2007 | Dreamweaver 8 | Fireworks 8 | Flash 8 | Photoshop cs | CorelDraw 12
编程视频: C语言视频教程 | HTML | Div+Css布局 | Javascript | Access数据库 | Asp | Sql Server数据库Asp.net  | Flash AS
当前位置 > 文字教程 > asp教程
Tag:入门,文摘,实例,技巧,iis,表单,对象,上传,数据库,记录集,session,cookies,存储过程,注入,分页,安全,优化,xmlhttp,fso,jmail,application,防盗链,stream,组件,md5,乱码,缓存,加密,验证码,算法,ubb,正则表达式,水印,,日志,压缩,url重写,控件,函数,破解,触发器,socket,ADO,初学,聊天室,留言本,视频教程

构建你的网站新闻自动发布系统之三

文章类别:asp | 发表日期:2008-10-5 20:56:13

(三)把新闻代码插入你的页面
  最好的新闻发布,当然是为网站本身定做的,那样才能与主页风格一致,但如此一来,新闻发布系统有缺乏了通用性了,不能移值到别的网站上使用,有得必有失,在这个基础上关键是找一个平行点。综合来考滤,最好的做法是与页面分离,那样就可以不影响网页的外观,而也能达到很好的效果,在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码
  《script language="JavaScript"
src="http//xxx.com.cn/special/linux/lnews/autoup.asp"》
  大家可以到这里看看效果
  现在请大家看看autoup.asp的代码。
《% @language="vbscript" %》
《!--#include Virtual="/news/data/data.inc"--》
《%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from data Order by news_id Desc"
rs.open sql,conn,3,2
if rs.bof then
response.end
end if


dispmess="《table border=0 width=100% cellpadding=0》"

rs.movefirst
disp=""
count=0

disp="《tr》《td width=100% 》《b》广州市场《/b》《/td》《/tr》"

do while not rs.eof

'广州市场

if Cint(rs("news_class"))=3 then

disp=disp&"《tr》《td width=100% 》《a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank》>>"&rs("news_title")&"《/a》(《font size=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"《/font》)《/td》《/tr》"
if count》=10 then 'clng(application("disp_1"))-1 then
exit do
end if
count=count+1


end if
rs.movenext

loop
disp=disp&"《tr》《td width=100% align=right》【更多新闻...】 《/td》《/tr》"
dispmess=dispmess&disp




rs.movefirst
disp=""
count=0

disp="《tr》《td width=100% 》《b》市场风云《/b》《/td》《/tr》"

do while not rs.eof

'市场风云

if Cint(rs("news_class"))=1 then

disp=disp&"《tr》《td width=100% 》《a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank》>>"&rs("news_title")&"《/a》(《font size=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"《/font》)《/td》《/tr》"
if count》=10 then 'clng(application("disp_2"))-1 then
exit do
end if
count=count+1


end if
rs.movenext

loop
disp=disp&"《tr》《td width=100% align=right》【更多新闻...】 《/td》《/tr》"
dispmess=dispmess&disp



rs.movefirst
disp=""
count=0
disp="《tr》《td width=100% 》《b》IT新闻《/b》《/td》《/tr》"

do while not rs.eof
'IT新闻
if Cint(rs("news_class"))=2 then

disp=disp&"《tr》《td width=100% 》《a href=http://www.aaaaa.com.cn/news/read.asp?news_id="&rs("news_id")&" target=_blank》>>"&rs("news_title")&"《/a》(《font size=1》"&rs("news_year")&"-"&rs("news_month")&"-"&rs("news_day")&" "&rs("news_time")&"《/font》)《/td》《/tr》"
if count》=50 then 'clng(application("disp_3"))-1 then
exit do
end if
count=count+1



end if
rs.movenext
loop
disp=disp&"《tr》《td width=100% align=right》【更多新闻...】 《/td》《/tr》"
dispmess=dispmess&disp



dispmess=dispmess&"《/table》"

dispmess="document.write('"&dispmess&"')"


%》
《%=dispmess%》

  通过定制这段代码,就能制作出符合您要求的网页显示格式。
  添加,删除,显示都讲解完了,最后一项,就是把新闻的详细内容显示出来。
  当用户点击新闻标题,就打开disp.asp文件,同时使用GET这种方式来把参数传递过去,我们看看disp.asp的文件内容

《% @language="vbscript" %》
《!--#include Virtual="/news/data/data.inc"--》
《%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from data where Cstr(news_id)='"&Cstr(request.querystring("news_id"))&"'"
rs.open sql,conn,3,2
%》
《html》

《head》
《meta http-equiv="Content-Type" content="text/html; charset=gb2312"》
《title》《/title》
《/head》

《body topmargin="8" leftmargin="8"》
《div align="center"》《center》

《table border="0" width="600" cellpadding="0" cellspacing="0"》
《tr》
《td width="100%"》《/td》
《/tr》
《tr》
《td width="100%" bgcolor="#E6E6E6"》《table border="0" width="100%" cellpadding="0"》
《tr》
《td width="100%" bgcolor="#D2E8FF"》《p align="center"》《b》《%=rs("news_title")%》《/b》《/td》
《/tr》
《tr》
《td width="100%" bgcolor="#FBFDFF"》《table border="0" width="100%" cellpadding="0"》
《tr》
《td width="100%"》《p align="right"》(update:《%=rs("news_year")%》-《%=rs("news_month")%》-《%=rs("news_day")%》 《%=rs("news_time")%》) 《/td》
《/tr》
《tr》
《td width="100%"》《p align="center"》《%
if rs("news_pic")《》"" then
%》 《img src="《%=rs("news_pic")%》"》 《%
end if
%》 《/td》
《/tr》
《tr》
《td width="100%"》《div align="center"》《center》《table border="0" width="90%" cellpadding="0"》
《tr》
《td width="100%"》《%=rs("news_comment")%》
《/td》
《/tr》
《/table》
《/center》《/div》《/td》
《/tr》
《/table》
《/td》
《/tr》
《tr》
《td width="100%" bgcolor="#D2E8FF"》《p align="center"》《a href="javascript:window.close()"》关闭窗口《/td》
《/tr》
《/table》
《/td》
《/tr》
《tr》
《td width="100%"》《/td》
《/tr》
《tr》
《td width="100%"》《/td》
《/tr》
《/table》
《/center》《/div》《/a》
《/body》
《/html》

  至此,新闻发布系统已能投入使用,试试看,是不是很方便,很容易就能增添每天的新闻内容了。下一节。我们将为新闻发布系统加入(标题/全文)检索功能,把它制作得更为完美
视频教程列表
文章教程搜索
 
Asp推荐教程
Asp热门教程
看全部视频教程
购买方式/价格
购买视频教程: 咨询客服
tel:15972130058