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="Sihrt@163.com" 

%> 

12下一页阅读全文

您可能感兴趣的文章:

轻松学习jQuery插件EasyUI EasyUI创建RSS Feed阅读器
Python实现的RSS阅读器实例
用Python的Django框架来制作一个RSS阅读器
使用AngularJS制作一个简单的RSS阅读器的教程
c# AJAX实践VS2005 + RSSToolKit 开发你自己的RSS在线阅读器
Microsoft UniveRSS v0.8.0.0 微软的3D RSS阅读器下载
基于JSP的RSS阅读器的设计与实现方法(推荐)

全 部 栏 目

全部栏目