用ASP生成RSS
<% Response.Clear Response.CharSet="gb2312" '数据集 Response.ContentType="text/xml" '数据流格式定义 Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine sRssHead = "<rss version='2.0'>" & vbNewLine sRssHead = sRssHead & "<channel>" & vbNewLine sRssHead = sRssHead & "<title>xx网</title>" & vbNewLine sRssHead = sRssHead & "<description>xx新闻更新</description>" & vbNewLine sRssHead = sRssHead & "<link>http://www.xxcom/</link>" & vbNewLine sRssHead = sRssHead & "<language>zh-cn</language>" & vbNewLine sRssHead = sRssHead & "<docs>xx网新闻更新</docs>" & vbNewLine sRssHead = sRssHead & "<generator>Rss Generator By 养殖网</generator>" & vbNewLine sRssEnd = "</channel></rss>" %> <% response.write sRssHead %> <%set cn=server.createobject("adodb.connection") cn.open connstr set rs=server.createobject("adodb.recordset") rs.open "select top 20 title,c_filename,writefrom,date from wz_list where lanmuid=21 order by id desc",cn,1,1 while not rs.eof %> <%="<item><title>"&rs("title")&"</title><link>http://www.yangzhi.com/news/"&rs("c_filename")&"</link><author>"&rs("writefrom")&"</author><pubDate>"&rs("date")&"</pubDate></item>"%> <%rs.movenext wend rs.close set rs=nothing cn.close set cn=nothing %><% response.write sRssend %>