欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

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