复制代码代码如下:
<٪
'iconvertedsomeofyourxamplefoundonhttp: //www.iteam5.net/francesco/atom/overtojscript.
'FeelfReetouseItAnderkekegoodwork.
'Tysonkopczynski
Functionatom (Strurl)
{
varobjxml = newactivexobject ("msxml2.domdocument.3.0") ؛
objxml.async = false ؛
OBJXML.SetProperty ("serverhttprequest" ، true) ؛
OBJXML.ValidateOnParse = صحيح ؛
objxml.preservewhitespace = false ؛
if (! objxml.load (strurl))
{
vararray = newarray () ؛
Response.write ("<p> خطأ <br> الكود:"+objxml.parseerror.errorcode)
Response.write ("<br> linea/col:"+objxml.parseerror.line & "/"+objxml.parseerror.linepos)
استجابة. write ("</p>")
العودة (صفيف)
}
آخر
{
varobjnodelist = objxml.getElementSbyTagName ("intrading") ؛
vararrdicts = newarray (objnodelist.length) ؛
لـ (vari = 0 ؛ i <objnodelist.length ؛ i ++)
{
arrdicts [i] = newactivexobject ("scripting.dictionary") ؛