<% Response.Clear Response.CharSet="gb2312" '數(shù)據(jù)集 Response.ContentType="text/xml" '數(shù)據(jù)流格式定義 Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLinesRssHead = "<rss version='2.0'>" & vbNewLine sRssHead = sRssHead & "<channel>" & vbNewLine sRssHead = sRssHead & "<title>xx網(wǎng)</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網(wǎng)新聞更新</docs>" & vbNewLine sRssHead = sRssHead & "<generator>Rss Generator By 養(yǎng)殖網(wǎng)</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 %>

　　

轉(zhuǎn)載于:https://www.cnblogs.com/uuxanet/p/3284737.html

總結

以上是生活随笔為你收集整理的用ASP生成RSS的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。