用ASP构建你的网站新闻发布（三）

　　（三）把新闻代码插入你的页面 最好的新闻发布，当然是为网站本身定做的，那样才能与主页风格一致，但如此一来，新闻发布系统有缺乏了通用性了，不能移值到别的网站上使用，有得必有失，在这个基础上关键是找一个平行点。综合来考滤，最好的做法是与页面分离，那样就可以不影响网页的外观，而也能达到很好的效果，在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码 ＜script language=JavaScript/ >JavaScript 大家可以到这里看看效果 现在请大家看看autoup.asp的代码。 ＜% @language=vbscript %＞
＜--＞
＜%
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=＞＞＞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 i r> rs.movenext

loop
disp=disp＜tr＞＜td width=100% align=right＞【更多新闻...】 ＜/td＞＜/tr＞
dispmess=dispmessdisp




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=＞＞＞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=dispmessdisp



rs.movefirst
disp=
count=0
disp=＜tr＞＜td width=100% ＞＜b＞ＩＴ新闻＜/b＞＜/td＞＜/tr＞

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

disp=disp＜tr＞＜td width=100% ＞＜a href=＞＞＞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=dispmessdisp



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＞
＜p 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%＞＜p align=center＞＜center＞＜table border=0 width=90% cellpadding=0＞
＜tr＞
＜td width=100%＞＜%=rs(news_comment)%＞
＜/td＞
＜/tr＞
＜/table＞
＜/center＞＜/p＞＜/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＞＜/p＞＜/a＞
＜/body＞
＜/html＞
至此，新闻发布系统已能投入使用，试试看，是不是很方便，很容易就能增添每天的新闻内容了。下一节。我们将为新闻发布系统加入（标题／全文）检索功能，把它制作得更为完美