复制代码代码如下:
<%
'IconvertedSomeofyourexamplefoundonhttp: //www.iteam5.net/francesco/atom/overtojscript.
«FeelfreetouseitandkeepThegoodwork.
'Tysonkopczynski
fonctionatom (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> Erreur <br> Code:" + objxml.passerror.errorcode)
Réponse.write ("<br> linea / col:" + objxml.parseerror.line & "/" + objxml.parseerror.linepos)
Réponse.write ("</p>")
retour (tableau)
}
autre
{
VaroBjNodeList = objxml.getElementsByTagName ("Entrée");
vararrdicts = newArray (objNodeList.Length);
pour (vari = 0; i <objNodelist.length; i ++)
{
Arrdicts [i] = newActiveXObject ("scripting.dictionary");