<%
If(request("RssFeed")="") Then
url="/rss2.asp"
else
url=request("RssFeed")
End If
Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", url, False
xml.Send
Set xmlDom = server.createObject("microsoft.xmldom")
xmlDom.async=False
xmlDom.ValidateOnParse=false
xmlDom.load(xml.responseXML)
if xmlDom.ReadyState>2 Then
set oItem=xmlDom.getElementsByTagName("item")
for i=0 to oItem.length-1
response.write ""&i+1&". "&oItem(i).childNodes(0).text&" ["&oItem(i).childNodes(3).text&"]
"
response.write "摘要："&oItem(i).childNodes(4).text&"
"
next
end if
%>
本文作者:佚名 来源:http://www.phpup.com/asparticle/show-article-2696/
CIO之家 www.ciozj.com 微信公众号:imciow