复制代码代码如下:
<%
'IconVertedSomeofyourexampleFoundonhttp: //www.iteam5.net/francesco/atom/overtoJscript.
'Feelfreetouseit dan KeeptHegoodwork.
'Tysonkopczynski
functionom (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> kesalahan <br> kode:"+objxml.parseeRror.ErrorCode)
Response.write ("<br> linea/col:"+objxml.parseeRror.line & "/"+objxml.parseeRror.linepos)
Response.write ("</p>")
kembali (array)
}
kalau tidak
{
varobjnodelist = objxml.getElementsbyTagname ("entri");
vararrdicts = newarray (objnodelist.length);
untuk (vari = 0; i <objnodelist.length; i ++)
{
arrdicts [i] = newActivexObject ("scripting.dictionary");