【备忘】ASP读取RSS

吐槽/反馈/建议:→ 我的咸鱼心 ← → 爱发电-@wdssmq

XML什么的真心麻烦啊。。

<%
dim xmlurl
xmlurl = "https://www.wdssmq.com/rss.xml"          '你要读取的xml文件

dim http,Doc,nodeLis,i
Set http=Server.CreateObject("MSXML2.XMLHTTP")
http.Open "GET",xmlurl,False
http.send
Set Doc=Server.CreateObject("Microsoft.XMLDOM")
Doc.Async=False
Doc.ValidateOnParse=False
Doc.Load(http.ResponseXML)
set nodeLis = Doc.getElementsByTagName("item")
Dim Title,Url

'For i=0 to nodeLis.length-1
For i=0 to 10
Title = nodeLis(i).selectSingleNode("title").text
Url = nodeLis(i).selectSingleNode("guid").text
Response.Write "<a href=""" & Url & """ title=""" & Title & """>" & Title & "</a>" & "<br />" & vbCrLf
Next

Set Doc = Nothing
%>


爱发电

本文标题:《【备忘】ASP读取RSS》作者:沉冰浮水
原文链接:https://www.wdssmq.com/post/BeiWang-ASPDuQuRSS.html
特别注明外均为原创,转载请注明。

分享到微信

扫描二维码

可在微信查看或分享至朋友圈。

相关文章

沉冰浮水 沉冰浮水 发布于 2010-11-19 07:58:29  
https://www.wdssmq.com
自己问搜索大神去
----------
各种不给力。。
回复
Suitear Suitear 发布于 2010-11-18 23:36:03  
#cmt2666
没php的读取?
回复
发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。