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
%>
https://www.wdssmq.com
----------
各种不给力。。
回复
#cmt2666
回复