| （三）把新闻代码插入你的页面 |
| 最好的新闻发布，当然是为网站本身定做的，那样才能与主页风格一致，但如此一来，新闻发布系统有缺乏了通用性了，不能移值到别的网站上使用，有得必有失，在这个基础上关键是找一个平行点。综合来考滤，最好的做法是与页面分离，那样就可以不影响网页的外观，而也能达到很好的效果，在使用新闻的网页上我们可以通过放置一条这样的script语句来调用新闻代码 |
| ＜script language="javascript/" target="_blank">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 i r> 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＞ｉｔ新闻＜/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＞ |
| 至此，新闻发布系统已能投入使用，试试看，是不是很方便，很容易就能增添每天的新闻内容了。下一节。我们将为新闻发布系统加入（标题／全文）检索功能，把它制作得更为完美 |
Java Asp PHP .Net XML C/C++ CGI VB Jsp J2ee J2se J2me EJB Servlet Tomcat Resin Struts Weblogic Eclipse ANT GUI JMS Web servise IDEA Webphere Hibernate Spring Jboss Applet Swing Socket Javamail Perl Ajax P2P 安全 模式 框架 测试 开源 游戏
Windows XP Windows 2000 Windows 2003 Windows Me Windows 9.x Linux UNIX 注册表 操作系统 服务器 应用服务器
