Atom_js.asp

复制代码代码如下:

-

'iconvertedsomeofyourexamplefoundonhttp: //www.iteam5.net/francesco/atom/overtojscript

'feelfreetouseitandkeepupphegoodwork

'Tysonkopczynski

'[email protected]

functionatom (strurl)

-

varobjxml = newActivexObject ("msxml2.domdocument.3.0");

objxml.async = false;

OBJXML.SetProperty ("ServerHttpRequest", TRUE);

OBJXML.VALIDENONPARSE = TRUE;

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)

Response.write ("</p>")

return (อาร์เรย์)

-

อื่น

-

varobjnodelist = objxml.getElementsByTagname ("รายการ");

vararrdicts = newarray (objnodelist.length);

สำหรับ (vari = 0; i <objnodelist.length; i ++)

-

arrdicts [i] = newActivexObject ("scripting.dictionary");