用ASP生成RSS-白红宇

用ASP生成RSS

阅读量：6251 次

发布时间：2019-06-22

本文共 1201 字，大约阅读时间需要 4 分钟。

<%Response.ClearResponse.CharSet="gb2312" '数据集Response.ContentType="text/xml" '数据流格式定义Response.Write "
     "&vbNewLinesRssHead = "
     
      " & vbNewLine sRssHead = sRssHead & "
      
       " & vbNewLine sRssHead = sRssHead & "
       xx网" & vbNewLine sRssHead = sRssHead & "
       
        xx新闻更新
       " & vbNewLine sRssHead = sRssHead & "
       http://www.xxcom/" & vbNewLine sRssHead = sRssHead & "
       
        zh-cn
       " & vbNewLine sRssHead = sRssHead & "
       
        xx网新闻更新
       " & vbNewLine sRssHead = sRssHead & "
       
        Rss Generator By 养殖网
       " & vbNewLine sRssEnd = "
      
     " %><%response.write sRssHead%><%set cn=server.createobject("adodb.connection")cn.open connstrset 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,1while not rs.eof%><%="
     
      "&rs("title")&"
      http://www.yangzhi.com/news/"&rs("c_filename")&"
      
       "&rs("writefrom")&"
      
      
       "&rs("date")&"
      
     "%><%rs.movenextwendrs.closeset rs=nothingcn.closeset cn=nothing%><%response.write sRssend%>