XMLHTTP的一些相关技术资料总结(2)_Xml教程

推荐：XSL简明教程(6)XSL过滤和查询
原著：Jan Egil Refsnes 翻译：阿捷 六. XSL的过滤和查询 如果我们希望只显示满足一定的条件的XML数据应该怎么做呢？还是上面的例子代码，我们只需要在xsl:for-each元素的select属性

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格式数据。

下面是本文附件源程序中的一个应用示例：
Function GetResult(urlStr)
Dim xmlHttp
Dim retStr

Set xmlHttp = CreateObject("Msxml2.XMLHTTP") '创建对象
On Error Resume Next '出错处理
xmlHttp.Open "POST", urlStr, False '用POST方式打开连接，异步执行。
xmlHttp.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" '上传表单
xmlHttp.Send '发送指令

If Err.Number = 0 Then '如果连接正确
retStr = xmlHttp.responseText '等待并获得服务端返回的结果字符串
Else
retStr = "Url not found" '否则返回出错信息
End If
Set xmlHttp = nothing '释放对象
GetResult = retStr '返回结果
End Function

GetResult()函数带入一个服务网页的URL参数，把上传的指令安放在URL后面的参数上，如：
urlStr = "server.asp?cmd=" & cmd & "&db=" & db & "table=" & table
cmd：执行方式，例如查询，修改，删除等等。
db：服务端数据库名
table：服务端表名

然后提交指令，等待并接收返回的处理结果。结果以字符串方式返回。

最后由函数调用者处理并显示结果。

分享：XML技巧五则
技巧1 　　 XmlNode.InnerText与.InnerXml的区别是：前者将内容中的<和>分别变成<和>，因此，希望将两段 XmlDocument 合并的程序只能使用 XmlDocumentFragment.InnerXml = XmlN