Asp+Rss阅读器制作
转自凌云的BLOG
我在这里只是作了一个测试。大家可以把它具体应用，调用自己站点中的最新帖，方便用户订阅。
RSS阅读器显示页面代码如下：
复制代码 代码如下:
<!--#includefile="conn.asp"-->
<%
'******************************
'文件名：index.asp
'功能：RSS阅读器显示页面
'日期：2006-6-19
'编程：Cloud.L
'******************************
Response.contentType="application/xml;charset=gb2312"
%>
<?xmlversion="1.0"encoding="gb2312"?>
<rssversion="2.0">
<channel>
<rssname><%=SiteName%></rssname>
<author><%=Author%></author>
<mail><%=Mail%></mail>
<%
Sql="selecttop20*from[SIHRT_Rss]orderbyRss_Datedesc,Rss_IDdesc"
SetRs=Server.CreateObject("Adodb.Recordset")
Rs.openSql,Conn,1,1
ifRs.eofandRs.bofthen
Response.Write"<listitems><nodata>无列表数据</nodata></listitems>"
else
Response.Write"<listitems>"
dowhilenotRs.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>"
endif
RsClose
Connclose
%>

</channel>
</rss>


数据库链接文件Conn.asp代码如下：
复制代码 代码如下:
<!--#includefile="Const.asp"-->
<%Response.Buffer=True%>
<%
'******************************
'文件名：Conn.asp
'功能：RSS阅读程序与数据库连接文件
'日期：2006-6-18
'编程：Cloud.L
'******************************
DimConnStr,Conn
'CreateConnection
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(DataPath)
SetConn=Server.CreateObject("Adodb.Connection")
Conn.openConnStr


'CloseRs
SubRsClose
Rs.Close
SetRs=nothing
EndSub

'CloseConn
SubConnClose
Conn.Close
SetConn=nothing
EndSub
%>



站点信息定义文件Const.asp代码如下：
复制代码 代码如下:
<%
'******************************
'文件名：Const.asp
'功能：定义RSS阅读程序常量
'日期：2006-6-18
'编程：Cloud.L
'******************************
ConstDataPath="Data/RssData.mdb"
ConstSiteName="SIHRT--RSS阅读器"
ConstAuthor="Cloud.L"
ConstMail="Sihrt@163.com"

%>


12下一页阅读全文