沉冰浮水

置百丈玄冰而崩裂,掷须臾池水而漂摇。

【备忘】ASP读取RSS

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

默认折叠,请点击右边按钮以阅读全文; RSS订阅后可跳过等待 -查看RSS地址-;

相关文章

沉冰浮水
沉冰浮水 发布于 2010-11-19 07:58:29  
http://www.wdssmq.com
自己问搜索大神去
----------
各种不给力。。
回复
没php的读取?
回复

发表评论:

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

召唤伊斯特瓦尔