首页 >> 读书频道 >> 电脑 >> 构建你的网站新闻自动发布系统之五
 
· 一个提供用户输入时期的绝
· 一个提供用户输入时期的绝
· 完整的访问统计程序(三
· 完整的访问统计程序(二
· 完整的访问统计系统(一:
· ASP中的函数应用方法及
· ASP中的函数应用方法及
· 使用VB编写纯ASP程序
· 简单的文件目录浏览源程序
· 用密码保护页面 (III
· 用密码保护页面 (II)
· 用密码保护页面 (I)
 
· 美容养颜手册
· 加油金顺剧情分集介绍完整
· 红楼梦:120回全本[清
· 素质教育在美国
· 全唐诗卷四十六
· 韩剧《布拉格恋人》剧情介
· 夜航船[作者:明·张岱]
· 局外人[作者:韩·可爱淘
· 现场流行病学
· 源氏物语[日本:紫式部]
· 武林寓言故事
· 2006高考录取规则
 
· (出租)中动商场部分及写
· (出租)中动动漫基地&#
· 喜剧学院
· 《善德女王》剧情介绍
· 魔女18号 剧情
· 丑女无敌剧情介绍
· 魔女幼熙剧情介绍
· 龙游天下剧情介绍
· 震撼世界的七日剧情介绍
· 静静的白桦林剧情介绍
· 心情日记—老公今天我想对
· 旗舰剧情介绍
欢迎来到月影社区!如果您觉得这里不错,请推荐给您的朋友们。月影社区:http://wf66.com/

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


查看有无更新版本

关键字:ASP实例 2006-9-9

 

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

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

[ 1 ]
构建你的网站新闻自动发布系统之五 num

打印本页 关闭

关于我们版权声明本站导航友情连结作品演示 TOP↑