复制代码代码如下：
<％
'iconvertedsomeofyourexamplefoundhttp：//www.iteam5.net/francesco/atom/overtojscript。
'feelfreeTouseitandkeepupthegoodwork。
'Tysonkopczynski
functionatom（strurl）
{
varobjxml = newActiveXObject（ "msxml2.domdocument.3.0"）;
objxml.async = false;
objxml.setProperty（ "serverhttprequest"、true）;
objxml.validateonparse = true;
objxml.preservewhitespace = false;
if（！objxml.load（strurl））
{
vararray = newArray（）;
Response.Write（ "<p>エラー<br> code："+objxml.parseerror.errorcode）
Response.write（ "<br> linea/col："+objxml.parseerror.line＆ "/"+objxml.parseerror.linepos）
respons.write（ "</p>"）
return（配列）
}
それ以外
{
varobjnodelist = objxml.getElementsBytagname（ "entry"）;
vararrdicts = newArray（objnodelist.length）;
for（vari = 0; i <objnodelist.length; i ++）
{
arrdicts [i] = newActiveXObject（ "Scripting.Dictionary"）;