沉冰浮水

<%
dim xmlurl
xmlurl = "http://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
%>

订阅是个好习惯--http://feed.wdssmq.com--