<
%
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
% >
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
% >
讀取RSS
Function
readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP" )
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM" )
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item" )
if item.Length<=0 then
Response.Write( "[Nothing]" )
else
Response.Write( "<ul style=""margin-left:15px; list-style-type:square;font-size:12px;line-height:20px;"">" )
For i=0 To (item.Length-1 )
Set title=item.Item(i).getElementsByTagName("title" )
Set link=item.Item(i).getElementsByTagName("link" )
Response.Write("<li><a href="""& link.Item(0).Text &""" target=""_blank"">"& title.Item(0).Text &"</a></li>" )
Next
Response.Write( "</ul>" )
end if
set item=nothing
set xmlDoc=nothing
set http=nothing
End Function
----call readrss("http://2008.67ge.com/feed" )
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP" )
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM" )
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item" )
if item.Length<=0 then
Response.Write( "[Nothing]" )
else
Response.Write( "<ul style=""margin-left:15px; list-style-type:square;font-size:12px;line-height:20px;"">" )
For i=0 To (item.Length-1 )
Set title=item.Item(i).getElementsByTagName("title" )
Set link=item.Item(i).getElementsByTagName("link" )
Response.Write("<li><a href="""& link.Item(0).Text &""" target=""_blank"">"& title.Item(0).Text &"</a></li>" )
Next
Response.Write( "</ul>" )
end if
set item=nothing
set xmlDoc=nothing
set http=nothing
End Function
----call readrss("http://2008.67ge.com/feed" )
http://www.cnblogs.com/JemBai/archive/2008/07/23/1249271.html