script language="vbscript" runat="server"> '============================================================ '作者：做回自己 '時間：2005-3-15 ============================================================ Class XMLClass Private objXml Private xmlDoc Private xmlPath '//============================================================ '!--類初始化及注銷時的事件--> Sub Class_initialize Set objXml = Server.CreateObject("MSXML2.DOMDocument") objXml.preserveWhiteSpace = true objXml.async = false End Sub Sub Class_Terminate Set objXml = Nothing End Sub '//============================================================ '!--建立一個新的XML文檔--> Public Function CreateNew(sName) Set tmpNode = objXml.createElement(sName) objXml.appendChild(tmpNode) Set CreateNew = tmpNode End Function '!--從外部讀入XML文檔--> Public Function OpenXml(sPath) OpenXml=False sPath=Server.MapPath(sPath) 'Response.Write(sPath) xmlPath = sPath If objXml.load(sPath) Then Set xmlDoc = objXml.documentElement OpenXml=True End If End Function '!--從外部讀入XML字符串--> Public Sub LoadXml(sStr) objXml.loadXML(sStr) Set xmlDoc = objXml.documentElement End Sub Public Sub InceptXml(xObj) Set objXml = xObj Set xmlDoc = xObj.documentElement End Sub '//============================================================ '!--新增一個節點--> Public Function AddNode(sNode,rNode) ' sNode STRING 節點名稱 ' rNode OBJECT 增加節點的上級節點引用 '============================================================= Dim TmpNode Set TmpNode = objXml.createElement(sNode) rNode.appendChild TmpNode Set AddNode = TmpNode End Function '!--新增一個屬性--> Public Function AddAttribute(sName,sValue,oNode) ' sName STRING 屬性名稱 ' sValue STRING 屬性值 ' oNode OBJECT 增加屬性的對象 '============================================================= oNode.setAttribute sName,sValue End Function '!--新增節點內容--> Public Function AddText(FStr,cdBool,oNode) Dim tmpText If cdBool Then Set tmpText = objXml.createCDataSection(FStr) Else Set tmpText = objXml.createTextNode(FStr) End If oNode.appendChild tmpText End Function '======================================================================================================== '!--取得節點指定屬性的值--> Public Function GetAtt(aName,oNode) ' aName STRING 屬性名稱 ' oNode OBJECT 節點引用 '============================================================= dim tmpValue tmpValue = oNode.getAttribute(aName) GetAtt = tmpValue End Function '!--取得節點名稱--> Public Function GetNodeName(oNode) ' oNode OBJECT 節點引用 GetNodeName = oNode.nodeName End Function '!--取得節點內容--> Public Function GetNodeText(oNode) ' oNode OBJECT 節點引用 GetNodeText = oNode.childNodes(0).nodeValue End Function '!--取得節點類型--> Public Function GetNodeType(oNode) ' oNode OBJECT 節點引用 GetNodeType = oNode.nodeValue End Function '!--查找節點名相同的所有節點--> Public Function FindNodes(sNode) Dim tmpNodes Set tmpNodes = objXml.getElementsByTagName(sNode) Set FindNodes = tmpNodes End Function '!--查打一個相同節點--> Public Function FindNode(sNode) Dim TmpNode Set TmpNode=objXml.selectSingleNode(sNode) Set FindNode = TmpNode End Function '!--刪除一個節點--> Public Function DelNode(sNode) Dim TmpNodes,Nodesss Set TmpNodes=objXml.selectSingleNode(sNode) Set Nodesss=TmpNodes.parentNode Nodesss.removeChild(TmpNodes) End Function '!--替換一個節點--> Public Function ReplaceNode(sNode,sText,cdBool) 'replaceChild Dim TmpNodes,tmpText Set TmpNodes=objXml.selectSingleNode(sNode) 'AddText sText,cdBool,TmpNodes If cdBool Then Set tmpText = objXml.createCDataSection(sText) Else Set tmpText = objXml.createTextNode(sText) End If TmpNodes.replaceChild tmpText,TmpNodes.firstChild End Function
Private Function ProcessingInstruction '//--創建XML聲明 Dim objPi Set objPi = objXML.createProcessingInstruction("xml", "version="chr(34)"1.0"chr(34)" encoding="chr(34)"gb2312"chr(34)) '//--把xml生命追加到xml文檔 objXML.insertBefore objPi, objXML.childNodes(0) End Function '//============================================================================= '!--保存XML文檔--> Public Function SaveXML() 'ProcessingInstruction() objXml.save(xmlPath) End Function '!--另存XML文檔--> Public Function SaveAsXML(sPath) ProcessingInstruction() objXml.save(sPath) End Function '//================================================================================== '相關統計 '!--取得根節點--> Property Get Root Set Root = xmlDoc End Property '!--取得根節點下子節點數--> Property Get Length Length = xmlDoc.childNodes.length End Property '//================================================================================== '相關測試 Property Get TestNode TestNode = xmlDoc.childNodes(0).text End Property End Class /script>
