复制代码代码如下：
<％
'Iconverted Someofyourexamplefoundonhttp：//www.iteam5.net/francesco/atom/overtojscript。
'feelfreetouseit和keeppareupthegoodwork。
'Tysonkopczynski
功能（strurl）
{
varobjxml = newActivexObject（“ msxml2.domdocument.3.0”）;
objxml.async = false;
objxml.setProperty（“ serverhttprequest”，true）;
objxml.validateonparse = true;
objxml.preservewhitespace = false;
如果（！objxml.load（strurl））
{
vararray = newarray（）;
wress.write（“ <p>错误<br>代码：”+objxml.parseerror.errorcode）
response.write（“ <br> linea/col：”+objxml.parseerror.line＆“/”+objxml.parseerror.linepos）
response.write（“ </p>”）
返回（数组）
}
别的
{
varobjnodelist = objxml.getElementsbytagname（“ entry”）;
vararrdicts = newarray（objnodelist.length）;
for（vari = 0; i <objnodelist.length; i ++）
{
arrdicts [i] = newActivexObject（“ scripting.dictionary”）;