复制代码代码如下:
<%
'IconverTedSomeOfYoUREXampleFoundonHttp: //www.iteam5.net/francesco/atom/overtojscript.
'FeelfreeTouseitandkeepupthegoodwork.
'Tysonkopczynski
functionAtom (Strurl)
{
varobjxml = newActivexObject ("msxml2.domDocument.3.0");
objxml.async = false;
objxml.setProperty ("ServerHttpRequest", verdadero);
objxml.ValidateOnParse = true;
objxml.PreserveWhiteSpace = false;
if (! objxml.load (strurl))
{
vararray = newArray ();
Response.Write ("<p> Error <br> Código:"+objxml.parseError.errRorcode)
Response.Write ("<br> Linea/col:"+objxml.parseError.line & "/"+objxml.parseError.linepos)
Response.write ("</p>")
Return (Array)
}
demás
{
varobjnodelist = objxml.getElementsBytagName ("Entrada");
vararrdicts = newArray (objnodelist.length);
para (vari = 0; i <objnodelist.length; i ++)
{
Ardicts [i] = newActivexObject ("scripting.dictionary");