构建你的网站新闻自动发布系统之五(转贴)

(三)把新闻代码插入你的页面   
  最好的新闻发布,当然是为网站本身定做的,那样才能与主页风格一致,但如此一来,新闻发布系统有缺乏了通用性了,不能移值到别的网站上使用,有得必有失,在这个基础上关键是找一个平行点。综合来考滤,最好的做法是与页面分离,那样就可以不影响网页的外观,而也能达到很好的效果,在使用新闻的网页上我们可以通过放置一条这样的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 

时间: 2024-11-30 12:21:03

构建你的网站新闻自动发布系统之五(转贴)的相关文章

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

三)把新闻代码插入你的页面   最好的新闻发布,当然是为网站本身定做的,那样才能与主页风格一致,但如此一来,新闻发布系统有缺乏了通用性了,不能移值到别的网站上使用,有得必有失,在这个基础上关键是找一个平行点.综合来考滤,最好的做法是与页面分离,那样就可以不影响网页的外观,而也能达到很好的效果,在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码   <script language="javascript"   src="http//xxx.com

构建你的网站新闻自动发布系统之一(转贴)

更新每天新闻内容,对webmaster们来说是一件很头痛的事,首先,收集了大量的新闻资料后,还必须制作大量的网页,每天大大小小的国际新闻,国内新闻,IT新闻,可真够你累的.最致命的一点,这些松散的新闻是管理不了的,不能查询,不能在线动态删改,新闻讲求时效性,当你作好网页然后上传到服务器上的时侯,恐怕别人已早你一步,把新闻报导出来了.当真吃力不讨好,针对现在我们的上网环境,在线发布新闻,动态生成新闻网页,为新闻添加搜索,查找功能是必不可少的.    那么,使用ASP技术如何来实现动态的新闻发布系统

构建你的网站新闻自动发布系统之七(转贴)

紧接上节,我们的新闻系统已能完成日常的新闻在线添加,删除等的功能,但这还是不足够的,有的用户可能需要查找一下过往某一专题内容的相关新闻条目,而一个比教完善的新闻系统,当然少不免也的完成这个功能.    现在马上就为我们的新闻系统添加上(全文/标题)的检索功能吧,首先我们做一个检索表单,见下面的HTML代码,把这些代码放在需要新闻检索的web页面上.就可以供用户方便地完成新闻搜寻.   <form method="POST" action="http://XXX..com

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

更新每天新闻内容,对webmaster们来说是一件很头痛的事,首先,收集了大量的新闻资料后,还必须制作大量的网页,每天大大小小的国际新闻,国内新闻,IT新闻,可真够你累的.最致命的一点,这些松散的新闻是管理不了的,不能查询,不能在线动态删改,新闻讲求时效性,当你作好网页然后上传到服务器上的时侯,恐怕别人已早你一步,把新闻报导出来了.当真吃力不讨好,针对现在我们的上网环境,在线发布新闻,动态生成新闻网页,为新闻添加搜索,查找功能是必不可少的.   那么,使用ASP技术如何来实现动态的新闻发布系统呢

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

 紧接上节,我们的新闻系统已能完成日常的新闻在线添加,删除等的功能,但这还是不足够的,有的用户可能需要查找一下过往某一专题内容的相关新闻条目,而一个比教完善的新闻系统,当然少不免也的完成这个功能.   现在马上就为我们的新闻系统添加上(全文/标题)的检索功能吧,首先我们做一个检索表单,见下面的HTML代码,把这些代码放在需要新闻检索的web页面上.就可以供用户方便地完成新闻搜寻.   <form method="POST" action="http://XXX..com

构建你的网站新闻自动发布系统之二(转贴)

(一)构建新闻数据库    分析一下构成每条新闻的元素,主要由新闻标题,新闻内容,图片地址,连接地址,新闻的发布时间组成.而在构建数据库的时候.考虑到处理需要,必需加上新闻的ID号,以便识别.再者的话,可以加上点击统计,以便了解读者感性趣的内容.access数据库是一个非常适合于开发阶段使用的过度时期数据库,因此.我们构造如下的一个新闻数据库(data.mdb)    表data    news_id long 新闻的编号    news_class text 新闻的类别    news_cla

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

(一)构建新闻数据库   分析一下构成每条新闻的元素,主要由新闻标题,新闻内容,图片地址,连接地址,新闻的发布时间组成.而在构建数据库的时候.考虑到处理需要,必需加上新闻的ID号,以便识别.再者的话,可以加上点击统计,以便了解读者感性趣的内容.access数据库是一个非常适合于开发阶段使用的过度时期数据库,因此.我们构造如下的一个新闻数据库(data.mdb)   表data   news_id long 新闻的编号   news_class text 新闻的类别   news_class_na

构建你的网站新闻自动发布系统之六(转贴)

通过定制这段代码,就能制作出符合您要求的网页显示格式.    添加,删除,显示都讲解完了,最后一项,就是把新闻的详细内容显示出来.    当用户点击新闻标题,就打开disp.asp文件,同时使用GET这种方式来把参数传递过去,我们看看disp.asp的文件内容     <% @language="vbscript" %>   <!--#include Virtual="/news/data/data.inc"-->   <%   Set

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

 通过定制这段代码,就能制作出符合您要求的网页显示格式.   添加,删除,显示都讲解完了,最后一项,就是把新闻的详细内容显示出来.   当用户点击新闻标题,就打开disp.asp文件,同时使用GET这种方式来把参数传递过去,我们看看disp.asp的文件内容     <% @language="vbscript" %>   <!--#include Virtual="/news/data/data.inc"-->   <%   Set