【www.bbyears.com--php常用代码】
有两文件:objXML.asp:测试文件
clsXML.asp:vbs类文件
代码:
objXML.asp
<%@ Language=VBScript %>
<% Option Explicit %>
<%
Dim objXML, strPath, str
Set objXML = New clsXML
strPath = Server.MapPath(".") & "New.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 Node
objXML.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 updated
objXML.updateField "Jobs[@Size=24]", "24"s"
"Notice that only two nodes have the specified XPath, hence
"only two new child nodes will be added
objXML.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 & "
")
Next
Set objXML = Nothing
Response.Redirect "New.xml"