摘要： Sub Getxom() Dim objXML,objRoot,Total,I Set objXML=Server.CreateObject("Microsoft.XMLDOM") objXML.async=False objXML.load (Server.Mappath(SettingFile)) Set objRoot=objXML.selectsinglenode("系统设置/系统设置") Total=objRoot.childnodes.lengthReDim xom(Total-1) For I=0 To Total-1xom(i)=objR 阅读全文