vbs類生成xml檔案(轉)

　　objXML.createFile strPath, "Root"'Or If using an existing XML file:'objXML.File = "C:File.xml"

　　objXML.createRootChild "Images"

　　'Here only one attribute is added to the Images/Image NodeobjXML.createChildNodeWAttr "Images", "Image", "id", "1"objXML.updateField "Images//Image[@id=1]", "super.gif"objXML.createRootNodeWAttr "Jobs", Array("Size", "Length", "Width"), _Array(24, 31, 30)objXML.createRootNodeWAttr "Jobs", Array("Size", "Length", "Width"), _Array(24, 30, 29)objXML.createRootNodeWAttr "Jobs", Array("Size", "Length", "Width"), _Array(24, 31, 85)

　　'Notice that all three job nodes have size 24, all of those'nodes will be updatedobjXML.updateField "Jobs[@Size=24]", "24's"

　　'Notice that only two nodes have the specified XPath, hence'only two new child nodes will be addedobjXML.createChildNodeWAttr "Jobs[@Size=24 and @Length=31]", "Specs", _Array("Wood", "Metal", "Color"), _Array("Cedar", "Aluminum", "Green")

　　'It is always important to iterate through all of the nodes'returned by this XPath query.For Each str In objXML.getField("Jobs[@Size=24]")Response.Write(str & "
")NextSet objXML = Nothing

　　Response.Redirect "New.xml"%>

　　clsXML.asp:

　　'*********************************************************************' Initialization/Termination'*********************************************************************

　　'Initialize Class MembersPrivate Sub Class_Initialize()strFile = ""End Sub

　　'Terminate and unload all created objectsPrivate Sub Class_Terminate()Set objDoc = NothingEnd Sub

　　'*********************************************************************' Properties'*********************************************************************

　　'Set XML File and objDocPublic Property Let File(str)Set objDoc = Server.CreateObject("Microsoft.XMLDOM")objDoc.async = FalsestrFile = strobjDoc.Load strFileEnd Property

　　'Get XML FilePublic Property Get File()File = strFileEnd Property

　　'*********************************************************************' Functions'*********************************************************************

　　'Create Blank XML File, set current obj File to newly created filePublic Function createFile(strPath, strRoot)Dim objFSO, objTextFileSet objFSO = Server.CreateObject("Scripting.FileSystemObject")Set objTextFile = objFSO.CreateTextFile(strPath, True)objTextFile.WriteLine("")objTextFile.WriteLine("")objTextFile.CloseMe.File = strPathSet objTextFile = NothingSet objFSO = NothingEnd Function

　　'Get XML Field(s) based on XPath input from root nodePublic Function getField(strXPath)Dim objNodeList, arrResponse(), iSet objNodeList = objDoc.documentElement.selectNodes(strXPath)ReDim arrResponse(objNodeList.length)For i = 0 To objNodeList.length - 1arrResponse(i) = objNodeList.item(i).TextNextgetField = arrResponseEnd Function

　　'Update existing node(s) based on XPath specsPublic Function updateField(strXPath, strData)Dim objFieldFor Each objField In objDoc.documentElement.selectNodes(strXPath)objField.Text = strDataNextobjDoc.Save strFileSet objField = NothingupdateField = TrueEnd Function

　　'Create node directly under rootPublic Function createRootChild(strNode)Dim objChildSet objChild = objDoc.createNode(1, strNode, "")objDoc.documentElement.appendChild(objChild)objDoc.Save strFileSet objChild = NothingEnd Function

　　'Create a child node under root node with attributesPublic Function createRootNodeWAttr(strNode, attr, val)Dim objChild, objAttrSet objChild = objDoc.createNode(1, strNode, "")If IsArray(attr) And IsArray(val) ThenIf UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) ThenExit FunctionElseDim iFor i = LBound(attr) To UBound(attr)Set objAttr = objDoc.createAttribute(attr(i))objChild.setAttribute attr(i), val(i)NextEnd IfElseSet objAttr = objDoc.createAttribute(attr)objChild.setAttribute attr, valEnd IfobjDoc.documentElement.appendChild(objChild)objDoc.Save strFileSet objChild = NothingEnd Function

　　'Create a child node under the specified XPath NodePublic Function createChildNode(strXPath, strNode)Dim objParent, objChildFor Each objParent In objDoc.documentElement.selectNodes(strXPath)Set objChild = objDoc.createNode(1, strNode, "")objParent.appendChild(objChild)NextobjDoc.Save strFileSet objParent = NothingSet objChild = NothingEnd Function

　　'Create a child node(s) under the specified XPath Node with attributesPublic Function createChildNodeWAttr(strXPath, strNode, attr, val)Dim objParent, objChild, objAttrFor Each objParent In objDoc.documentElement.selectNodes(strXPath)Set objChild = objDoc.createNode(1, strNode, "")If IsArray(attr) And IsArray(val) ThenIf UBound(attr)-LBound(attr) <> UBound(val)-LBound(val) ThenExit FunctionElseDim iFor i = LBound(attr) To UBound(attr)Set objAttr = objDoc.createAttribute(attr(i))objChild.SetAttribute attr(i), val(i)NextEnd IfElseSet objAttr = objDoc.createAttribute(attr)objChild.setAttribute attr, valEnd IfobjParent.appendChild(objChild)NextobjDoc.Save strFileSet objParent = NothingSet objChild = NothingEnd Function

　　'Delete the node specified by the XPathPublic Function deleteNode(strXPath)Dim objOldFor Each objOld In objDoc.documentElement.selectNodes(strXPath)objDoc.documentElement.removeChild objOldNextobjDoc.Save strFileSet objOld = NothingEnd FunctionEnd Class%>