Asp+Rss阅读器制作第1/2页_XML/RSS教程-查字典教程网
Asp+Rss阅读器制作第1/2页
Asp+Rss阅读器制作第1/2页
发布时间:2016-12-29 来源:查字典编辑
摘要:Asp+Rss阅读器制作转自凌云的BLOG我在这里只是作了一个测试。大家可以把它具体应用,调用自己站点中的最新帖,方便用户订阅。RSS阅读器...

Asp+Rss阅读器制作

转自凌云的BLOG

我在这里只是作了一个测试。大家可以把它具体应用,调用自己站点中的最新帖,方便用户订阅。

RSS阅读器显示页面代码如下:

复制代码 代码如下:

<>

<%

'******************************

'文件名: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代码如下:

复制代码 代码如下:

<>

<%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"

%>

当前1/2页12下一页阅读全文

相关阅读
推荐文章
猜你喜欢
附近的人在看
推荐阅读
拓展阅读
  • 大家都在看
  • 小编推荐
  • 猜你喜欢
  • 最新XML/RSS学习
    热门XML/RSS学习
    编程开发子分类