js，asp 实现读取远程xml

js 实现读取远程xml
<script language="JavaScript">
var xmlDoc=new ActiveXObject("Microsoft.xmlDOM");
xmlDoc.async=false;
xmlDoc.load("http://www.donews.com/rss.xml");
//xmlDoc.loadxml("<description>品格</description>");

var root=xmlDoc.documentElement;
var number=root.selectNodes("channel/item").length;

if(number<=10)
alert("对不起,该新闻条数已经少于要显示的新闻条数!");
else
{
document.writeln("<p align='center' class='font'>"+root.childNodes(0).childNodes(0).text+"<p>");
document.writeln("<p class='indent'>"+root.childNodes(0).childNodes(1).text+"</p>");
document.writeln("<p class='indent'>"+root.childNodes(0).childNodes(2).text+"</p>");
for(var i=0;i<10;i++)
{
document.writeln("<b>"+root.childNodes(0).childNodes(5+i).childNodes(0).text+"</b><br/><br/>");
document.writeln("<small>"+root.childNodes(0).childNodes(5+i).childNodes(4).text+"    "+root.childNodes(0).childNodes(5+i).childNodes(3).text+"</small><br/>");
document.writeln("<small><a href='"+root.childNodes(0).childNodes(5+i).childNodes(1).text+"'>"+root.childNodes(0).childNodes(5+i).childNodes(1).text+"</a></small><br/><br/>");
document.writeln("<p class='indent'>"+root.selectNodes("channel/item/description")(i).text+"</p><br/><br/>");
}
}
</script>

asp 实现读取远程xml文件
<%
dim xmlDoc
dim root
dim number

Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET","http://www.donews.com/rss.xml",False
http.send

Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)

set root=xmlDoc.documentElement
number=root.selectNodes("channel/item").length

if number<=10 then
%>
<script language="vbscipt">
msgbox "对不起,该新闻条数已经少于要显示的新闻条数!"
</script>
<%
else
response.write "<p align='center' class='font'>" & root.childNodes(0).childNodes(0).text & "<p>"
response.write "<p class='indent'>" & root.childNodes(0).childNodes(1).text & "</p>"
response.write "<p class='indent'>" & root.childNodes(0).childNodes(2).text & "</p>"
for i=0 to 9
response.write "<b>" & root.childNodes(0).childNodes(5+i).childNodes(0).text & "</b><br/><br/>"
response.write "<small>" & root.childNodes(0).childNodes(5+i).childNodes(4).text & root.childNodes(0).childNodes(5+i).childNodes(3).text & "</small><br/>"
response.write "<small><a href='" & root.childNodes(0).childNodes(5+i).childNodes(1).text & "'>" & root.childNodes(0).childNodes(5+i).childNodes(1).text & "</a></small><br/><br/>"
response.write "<p class='indent'>" & root.selectNodes("channel/item/description")(i).text & "</p><br/><br/>"
next
end if
%>