Asp+Rss阅读器制作第1/2页

asp+rss阅读器制作
转自凌云的blog
我在这里只是作了一个测试。大家可以把它具体应用，调用自己站点中的最新帖，方便用户订阅。
rss阅读器显示页面代码如下： 

<!--#include file="conn.asp"-->
<%
'******************************
'文件名：index.asp
'功 能：rss阅读器显示页面
'日 期：2006-6-19
'编 程：cloud.l
'******************************
response.contenttype="application/xml;charset=gb2312"
%>
<?xml version="1.0" encoding="gb2312"?>
<rss version="2.0">
<channel>
<rssname><%=sitename%></rssname>
<author><%=author%></author>
<mail><%=mail%></mail>
<%
sql="select top 20 * from [sihrt_rss] order by rss_date desc,rss_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
  response.write "<listitems><nodata>无列表数据</nodata></listitems>"
else
  response.write "<listitems>"
  do while not rs.eof
  rss_cont=replace(rs("rss_cont"),"<br>","")
%>
  <item>
   <rssid><%=rs("rss_id")%></rssid>
   <title><%=rs("rss_title")%></title>
   <postdate><%=rs("rss_date")%></postdate>
   <content><![cdata[<%=rss_cont%>]]></content>
  </item>
<%
  rs.movenext
  loop
  response.write "</listitems>"
end if
rsclose
connclose
%>

</channel>
</rss>

 数据库链接文件conn.asp代码如下：

<!--#include file="const.asp"-->
<%response.buffer=true%>
<%
'******************************
'文件名：conn.asp
'功 能：rss阅读程序与数据库连接文件
'日 期：2006-6-18
'编 程：cloud.l
'******************************
dim connstr,conn
'create connection
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath(datapath)
set conn=server.createobject("adodb.connection")
conn.open connstr


'close rs
sub rsclose
rs.close
set rs=nothing
end sub

'close conn
sub connclose
conn.close
set conn=nothing
end sub
%>

站点信息定义文件const.asp代码如下：

<%
'******************************
'文件名：const.asp
'功 能：定义rss阅读程序常量
'日 期：2006-6-18
'编 程：cloud.l
'******************************
const datapath="data/rssdata.mdb"
const sitename="sihrt--rss阅读器"
const author="cloud.l"
const mail="[e-mail]"

%>

1