XML 编程简介
  1. XML 文档操作
  1.1 加载一个XML文档
  Dim objDoc As New XmlDocument()
  '-- Load xml document Sample.xml
  objDoc.Load("Sample.xml")
  
  1.2 加载一个XML数据
   Dim objDoc As New XmlDocument()
   Dim strXML As String
   strXML = "<Employees><Employee id=”12345”><Employee_ID>12345</Employee_ID><Name>Zhang Bin</Name></Employee></Employees>"
  
   '-- Load xml data
   objDoc.Load(strXML)
  
  1.3 保存文档
  '—Save xml document
  objDoc.Save("Sample.xml")
  
  2 XML 数据的查询
  最常见的XML数据类型有：Element, Attribute，Comment, Text.
  Element, 指形如<Name>Tom<Name>的节点。它可以包括：Element, Text, Comment, ProcessingInstruction, CDATA, and EntityReference.
  Attribute, 指在<Employee id=”12345”>中的粗体部分。
  Comment，指形如：<!-- my comment --> 的节点。
  Text，指在<Name>Tom<Name>的粗体部分。
  在XML中，可以用XmlNode对象来参照各种XML数据类型。
  2.1 查询已知绝对路径的节点（集）
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee”)
  或者
  objNodeList = objNode.SelectNodes(“/Company/Department/Employees/Employee”)
  以上两种方法可返回一个NodeList对象，如果要返回单个节点可使用SelectSingleNode方法，该方法如果查询到一个或多个节点，返回第一个节点；如果没有查询的任何节点返回 Nothing。例如：
  objNode = objNode.SelectSingleNode(“/Company/Department/Employees/Employee”)
  If Not (objNode is Nothing) then
   ‘- Do process
  End If
  2.2 查询已知相对路径的节点（集）
  可使用类似于文件路径的相对路径的方式来查询XML的数据
  objNode = objDoc.SelectSingleNode(“Company/Department”)
  objNodeList = objNode.SelectNodes(“../Department)
  objNode = objNode.SelectNode(“Employees/Employee”)
  2.3 查询已知元素名的节点（集）
  在使用不规则的层次文档时，由于不知道中间层次的元素名，可使用//符号来越过中间的节点，查询其子，孙或多层次下的其他所有元素。例如：
  objNodeList = objDoc.SelectNodes(“Company//Employee”)
  2.4 查询属性（attribute）节点
  以上的各种方法都返回元素（element)节点（集），返回属性（attribute），只需要采用相应的方法，在属性名前加一个@符号即可，例如：
  objNodeList = objDoc.SelectNodes(“Company/Department/Employees/Employee/@id”)
  objNodeList = objDoc.SelectNodes(“Company//@id”)
  2.5 查询Text节点
  使用text()来获取Text节点。
  objNode = objDoc.SelectSingleNode(“Company/Department/Deparmt_Name/text()”)
  2.6 查询特定条件的节点
  使用[]符号来查询特定条件的节点。例如：
  a. 返回id号为 10102的Employee节点
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee[@id=’10102’]”)
  b. 返回Name为Zhang Qi的Name 节点
   objNode = objDoc.SelectSingleNode(“Company/Department/Employees/Employee/Name[text()=’Zhang Qi’]”)
  c. 返回部门含有职员22345的部门名称节点
  objNode = objDoc.SelectSingleNode("Company/Department[Employees/Employee/@id='22345']/Department_Name")
  2.7 查询多重模式的节点
  使用 | 符号可以获得多重模式的节点。例如：
  objNodeList = objDoc.SelectNodes(“Company/Department/Department_Name | Company/Department/Manager”)
  2.8 查询任意子节点
  使用*符号可以返回当前节点的所有子节点。
  objNodeList = objDoc.SelectNodes(“Company/*/Manager)
  或者
  objNodeList = objNode.ChildNodes
  
  3 XML数据的编辑
  3.1 增加一个元素的属性（attribute）节点
  Dim objNodeAttr As XmlNode
   objNodeAttr = objDoc.CreateAttribute("id", Nothing)
   objNodeAttr.InnerXml = "101"
  objNode.Attributes.Append(objNodeAttr)
  3.2 删除一个元素的属性
  objNode.Attributes.Remove(objNodeAttr)
  3.3 增加一个子元素（Element）
  Dim objNodeChild As XmlNode
  objNodeChild = objDoc.CreateElement(Nothing, "ID", Nothing)
  objNodeChild.InnerXml = "101"
  objNode.AppendChild(objNodeChild)
  3.4 删除一个子元素
  objNode.RemoveChild(objNodeChild)
  3.5 替换一个子元素
  objNOde.ReplaceChild(newChild,oldChild)
  
  4 参考数据
  <?xml version="1.0" encoding="UTF-8"?>
  <Company>
   <Department id="101">
   <Department_Name>Cai WuBu</Department_Name>
   <Manager>Zhang Bin</Manager>
   <Employees>
   <Employee id="12345">
   <Employee_ID>12345</Employee_ID>
   <Name>Zhang Bin</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="10101">
   <Employee_ID>10101</Employee_ID>
   <Name>Zhang QI</Name>
   <Gender>female</Gender>
   </Employee>
   <Employee id="10102">
   <Employee_ID>10102</Employee_ID>
   <Name>Zhang Xia</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="10201">
   <Employee_ID>10201</Employee_ID>
   <Name>ZhangChuang</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="10202">
   <Employee_ID>10202</Employee_ID>
   <Name>Zhang Jun</Name>
   <Gender>male</Gender>
   </Employee>
   </Employees>
   </Department>
   <Department id="102">
   <Department_Name>KaiFa Bu</Department_Name>
   <Manager>Wang Bin</Manager>
   <Employees>
   <Employee id="22345">
   <Employee_ID>22345</Employee_ID>
   <Name>Wang Bin</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="20101">
   <Employee_ID>20101</Employee_ID>
   <Name>Wang QI</Name>
   <Gender>female</Gender>
   </Employee>
   <Employee id="20102">
   <Employee_ID>20102</Employee_ID>
   <Name>Wang Xia</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="20201">
   <Employee_ID>20201</Employee_ID>
   <Name>Wang Chuang</Name>
   <Gender>male</Gender>
   </Employee>
   <Employee id="20202">
   <Employee_ID>20201</Employee_ID>
   <Name>Wang Jun</Name>
   <Gender>male</Gender>
   </Employee>
   </Employees>
   </Department>
  </Company> 
 




XMLHTTP应用参考
一、使用步骤：
1、创建XMLHTTP对象 //需MSXML4.0支持
2、打开与服务端的连接，同时定义指令发送方式，服务网页(URL)和请求权限等。客户端通过Open命令打开与服务端的服务网页的连接。与普通HTTP指令传送一样，可以用"GET"方法或"POST"方法指向服务端的服务网页。
3、发送指令。
4、等待并接收服务端返回的处理结果。
5、释放XMLHTTP对象
 
二、XMLHTTP方法：
Open（ bstrMethod, bstrUrl, varAsync, bstrUser, bstrPassword ）
bstrMethod：  数据传送方式，即GET或POST。
bstrUrl：     服务网页的URL。
varAsync：   是否同步执行。缺省为True，即同步执行，但只能在DOM中实施同步执行。用中一般将其置为False，即异步执行。
bstrUser：    用户名，可省略。
bstrPassword：用户口令，可省略。
 
Send（ varBody ）
varBody：指令集。可以是XML格式数据，也可以是字符串，流，或者一个无符号整数数组。也可以省略，让指令通过Open方法的URL参数代入。
 
setRequestHeader（ bstrHeader, bstrvalue ）
bstrHeader：HTTP 头(header)
bstrvalue： HTTP 头(header)的值

如果Open方法定义为POST，可以定义表单方式上传：
xmlhttp.setRequestHeader（ "Content-Type", "application/x-www-form-urlencoded"）
 
三、XMLHTTP属性：
onreadystatechange：在同步执行方式下获得返回结果的事件句柄。只能在DOM中调用。
responseBody：    结果返回为无符号整数数组。
responseStream：   结果返回为IStream流。
responseText ：    结果返回为字符串。
responseXML：    结果返回为XML格式数据。

四、示例：
< script language="javascript" >
function getDatal(url){
    var xmlhttp = new ActiveXObject("MSXML2.XMLHTTP.4.0");//创建XMLHTTPRequest对象，需MSXML4.0支持 ["MSXML2.XMLHTTP.4.0","MSXML2.DOMDocument.4.0"]
    xmlhttp.open("GET",url,false,"","");   //使用HTTP GET初始化HTTP请求
    xmlhttp.send("");                   //发送HTTP请求并获取HTTP响应
    return xmlhttp.responseXML;         //获取XML文档
}
< /script >

发表于 @ 2005年01月26日 22:18:00|评论(loading...)|编辑