asp 動(dòng)態(tài)生成rss(不成生xml文件)代碼

!-- #include file="conn.asp" -->
%
sXmlClear = "?xml version='1.0' encoding='gb2312'?>"
Response.CharSet="gb2312" '數(shù)據(jù)集編碼
Response.ContentType="text/xml" '數(shù)據(jù)流格式定義
%>
%=sXmlClear%>
rss version="2.0">
channel>
title>![CDATA[鄉(xiāng)下人'blog]]>/title>
link>http://xxrblog.cn//link>
description>![CDATA[網(wǎng)站副標(biāo)題或是網(wǎng)站簡介]]>/description>
language>zh-CN/language>
copyright>
![CDATA[ Copyright 2005 PBlog2 v2.4 ]]>
/copyright>
webMaster>
![CDATA[ 24525533@163.com(李永亮) ]]>
/webMaster>
generator>PBlog2 v2.5/generator>
image>
title>鄉(xiāng)下人'blog xxrblog.cn/title>
url>http://www.xxrblog.cn/images/logos.gif/url>
link>http://www.xxrblog.cn//link>
description>鄉(xiāng)下人'blog xxrblog.cn/description>
/image>
%
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select top 10 * from News order by id desc"
rs.open sql,conn,3,3
do while not rs.eof
Content=rs("Content")
if Len(Contact)>150 then
Content=left(Content,147) "..."
end if
%>
item>
title>%=rs("Title")%>/title>
description>![CDATA[%=Content%>]]>/description>
link>http://xxrblog.cn/article.asp?id=%=rs("id")%>/link>
author>作者/author>
pubDate>%=rs("Time")%>/pubDate>
/item>
%
rs.movenext()
loop
rs.close()
Set rs = Nothing
conn.close
%>
/channel>
/rss>