打造自己的RSS

王朝asp·作者佚名  2006-01-09
窄屏简体版  字體: |||超大  

今天用asp写了一个自己网站的RSS,写了两看asp程序,本以为写个rrs很容易结果破费周折,下面把我的rss的代码贴出来供大家修改使用

<%

Response.ContentType="text/xml"

dim db,dbpath,conn

dim rs,SQL

db="db/#flsjfd8ulfs.asp"'数据库地址

Set conn = Server.CreateObject("ADODB.Connection")

dbpath="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

conn.Open dbpath

%><?xml version="1.0" encoding="gb2312"?><rss version="2.0">

<channel>

<title>我的网站名称</title>

<link>http://www.myweb.com</link>

<description>网站描术</description>

<%

SQL="select top 10 * from news order by id desc"

set rs=conn.execute(SQL)

if rs.Eof or rs.Bof then

response.write "<item></item>"

end if

while not rs.Eof

a=rs("title")

b=rs("author")

c=rs("times")

d=replace(replace(left(rs("content"),200),"<","&lt;"),">","&gt;")

response.Write "<item>"

response.write "<link>http://xyb.nuc.edu.cn/readnews.asp?id="&rs("id")&"</link>"

Response.write "<title>"&a&"</title>"

response.write "<creator>"&b&"</creator>"

response.write "<PubDate>"&c&"</PubDate>"

response.write "<description>"&d&"</description>"

response.write "</item>"

rs.MoveNext

wend

set rs=nothing

conn.Close

set conn = nothing

%>

</channel></rss>

还有一些其它可选标签,大家可根据需要增减,具体RSS请在网上搜RSS规范查看

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航