用户登录
用户注册

分享至

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

  • 作者: 段子审核管理_KDD172
  • 来源: 51数据库
  • 2021-07-07

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

复制代码 代码如下:

<!--#include file="conn.asp"-->
<%
'******************************
'文件名:index.asp
'功 能:rss阅读器显示页面
'日 期:2006-6-19
'编 程:cloud.l
'******************************
response.contenttype="application/xml;charset=utf-8"
%>
<?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
软件
前端设计
程序设计
Java相关