复制代码代码如下:
<%
'iconvertedsomeofyourexamplefoundhttp://www.iteam5.net/francesco/atom/overtojscript。
'feelfreeTouseitandkeepupthegoodwork。
'Tysonkopczynski
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> code:"+objxml.parseerror.errorcode)
Response.write( "<br> linea/col:"+objxml.parseerror.line& "/"+objxml.parseerror.linepos)
respons.write( "</p>")
return(配列)
}
それ以外
{
varobjnodelist = objxml.getElementsBytagname( "entry");
vararrdicts = newArray(objnodelist.length);
for(vari = 0; i <objnodelist.length; i ++)
{
arrdicts [i] = newActiveXObject( "Scripting.Dictionary");