用ASP生成RSS
%Response.ClearResponse.CharSet="gb2312" '数据集Response.ContentType="text/xml" '数据流格式定义&nbs
<%
Response.Clear
Response.CharSet="gb2312" '数据集
Response.ContentType="text/xml" '数据流格式定义
Response.Write ""&vbNewLine
sRssHead = "" & 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 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
%>
<%="- "&rs("title")&"http://www.yangzhi.com/news/"&rs("c_filename")&""&rs("writefrom")&""&rs("date")&"
"%>
<%rs.movenext
wend
rs.close
set rs=nothing
cn.close
set cn=nothing
%><%
response.write sRssend
%> 本文作者:JemBai 来源:http://www.cnblogs.com/JemBai/
CIO之家 www.ciozj.com 微信公众号:imciow
版权声明:CIO之家尊重行业规范,每篇文章都注明有明确的作者和来源;CIO之家的原创文章,请转载时务必注明文章作者和来源;
延伸阅读