复制代码代码如下:
<%
'IconvertedSomeOfyourexamplefoundhttp: //www.iteam5.net/francesco/atom/overtojscript.
'FeelfreetouseItandkeepTheGoodwork.
Тайсонкопцински
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> код:"+objxml.parseerror.errorcode)
Response.write ("<br> linea/col:"+objxml.parseerror.line & "/"+objxml.parseerror.linepos)
Response.write ("</p>")
возврат (массив)
}
еще
{
varobjnodelist = objxml.getElementsbytagname ("intry");
vararrdicts = newarray (objnodelist.length);
for (vari = 0; i <objnodelist.length; i ++)
{
arrdicts [i] = newactivexObject ("scripting.dictionary");