ASPがリモートXMLデータのコード（alexa順位データ）を呼び出します。
2451 ワード
URL="http://news.163.com/special/00011K6L/rss_newstop.xml"
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
word=oItem(i).childNodes(0).text
title=oItem(i).childNodes.item(0).text
Link=oItem(i).childNodes.item(1).text
pubDate=oItem(i).childNodes.item(3).text
%>
next
end if
%>
・()
http://news.163.com/
Wed, 16 Feb 2011 02:59:02 GMT
Wed, 16 Feb 2011 02:59:02 GMT
-
<br/><link/>http://news.163.com/11/0216/10/6T0NIHOA00014JB6.html
<br/><description>......</description>
<br/><pubdate>2011-02-16 10:59:02</pubdate>
<br/></item>
<br/><item id="2">
<br/><title/>
<br/><link/>http://focus.news.163.com/11/0216/11/6T0R9MIE00011SM9.html
<br/><description>......</description>
<br/><pubdate>2011-02-16 11:30:40</pubdate>
<br/></item>
<br/></channel>
<br/></rss>
<br/>
</code></pre>
<div class="clearfix">
<span id="art_bot" class="jbTestPos"/>
</div>
</div>
</div>
</div>