用Asp+XmlHttp实现RssReader功能

2009-12-13 13:46| 发布者: admin| 查看: 53| 评论: 0|原作者: 墨元

〖

<%
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
%>
转自：动态网制作指南 www.knowsky.com

收藏分享邀请

		自动登录	找回密码
密码			注册

用Asp+XmlHttp实现RssReader功能

最新评论

相关分类