Asp+Rss阅读器制作第1/2页
程序员文章站
2022-06-10 14:30:35
asp+rss阅读器制作转自凌云的blog 我在这里只是作了一个测试。大家可以把它具体应用,调用自己站点中的最新帖,方便用户订阅。 rss阅读器显示页面代码如下: ...
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="sihrt@163.com"
%>
1
上一篇: rss 使用规范