关闭

用asp生成rss

标签: rssaspgeneratorencodingdatelist
1529人阅读 评论(0) 收藏 举报
分类:
<%
 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
  %>

0
0

查看评论
* 以上用户言论只代表其个人观点,不代表CSDN网站的观点或立场
    个人资料
    • 访问:56672次
    • 积分:1056
    • 等级:
    • 排名:千里之外
    • 原创:49篇
    • 转载:4篇
    • 译文:0篇
    • 评论:12条
    文章分类
    最新评论