复制代码代码如下:
<%
'IconvertedomeofyourexamplefoundonHttp: //www.iteam5.net/francesco/atom/overtojscript.
'FeelfreetouseItAndkeePupTheGoodwork.
'Tysonkopczynski
Functomatom (Strurl)
{
varobjxml = newActivexObject ("msxml2.domdocument.3.0");
objxml.async = false;
objxml.setProperty ("serverhttprequest", true);
objxml.validateOnParse = true;
objxml.preservewhitaSpace = false;
if (! objxml.load (strurl))
{
vararray = newArray ();
Response.Write ("<p> Erro <br> Código:"+objxml.parseerror.errorcode)
Response.Write ("<br> linea/col:"+objxml.parseerror.line & "/"+objxml.parseerror.linepos)
Response.Write ("</p>")
Retornar (Array)
}
outro
{
varobjnodelist = objxml.getElementsByTagName ("entrada");
vararrdicts = newArray (objnodelist.length);
for (vari = 0; i <objnodelist.length; i ++)
{
Arrdicts [i] = newActivexObject ("scripting.dictionary");