zoukankan      html  css  js  c++  java
  • 用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
    %>
    

      

  • 相关阅读:
    Confluo: Distributed Monitoring and Diagnosis Stack for High-speed Networks
    kubernetes in action
    kubernetes in action
    kubernetes in action
    kubernetes in action
    kubernetes in action
    Kafka: Exactly-once Semantics
    Reinforcement Learning
    unity的 Social API
    hdu 4336 概率dp + 状压
  • 原文地址:https://www.cnblogs.com/uuxanet/p/3284737.html
Copyright © 2011-2022 走看看