ASP读取XML文件





RSS资源:" onfocus=select()>   双击鼠标可以关闭摘要,只显示标题



<%
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
%>


上一篇: "无限流"分页程序[改进版]
下一篇: ASP分页代码[高速执行,支持大数据库!]
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志:
评论: 0 | 引用: 0 | 查看次数: 1199
发表评论
昵 称:
密 码: 游客发言不需要密码.
邮 箱: 邮件地址支持Gravatar头像,邮箱地址不会公开.
网 址: 输入网址便于回访.
内 容:
验证码:
选 项:
虽然发表评论不用注册,但是为了保护您的发言权,建议您注册帐号.
字数限制 300 字 | UBB代码 开启 | [img]标签 关闭