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

转载于:https://www.cnblogs.com/JemBai/archive/2008/07/23/1249267.html