28,391
社区成员
发帖
与我相关
我的任务
分享
<?xml version="1.0" encoding="UTF-8" ?>
- <TrackResult>
<message>完成</message>
<nu>123456</nu>
- <data>
- <itme>
<time>2013-06-28</time>
<context>提交</context>
</itme>
- <itme>
<time>2013-06-29</time>
<context>处理中</context>
</itme>
- <itme>
<time>2013-06-30</time>
<context>完成</context>
</itme>
</data>
<state>1</state>
<condition>7</condition>
</TrackResult>
<%
s = "<?xml version=""1.0"" encoding=""UTF-8"" ?><TrackResult><message>完成</message><nu>123456</nu><data><itme><time>2013-06-28</time><context>提交</context></itme><itme><time>2013-06-29</time><context>处理中</context></itme><itme><time>2013-06-30</time><context>完成</context></itme></data><state>1</state><condition>7</condition></TrackResult>"
Set oDoc = CreateObject("Msxml2.DOMDocument")
With oDoc
.async = False
.validateOnParse = False
.preserveWhiteSpace = False
.resolveExternals = False
.loadXML s
If .parseError.errorCode <> 0 Then
sErrMsg = .parseError.errorCode & "|" & .parseError.srcText & "|" & .parseError.reason
Response.Write sErrMsg
End If
End With
Set oNode = oDoc.selectSingleNode("//message")
If Not oNode Is Nothing Then
Response.Write "message:" & oNode.text
End If
Set oNode = oDoc.selectSingleNode("//nu")
If Not oNode Is Nothing Then
Response.Write "nu:" & oNode.text
End If
Set oNodes = oDoc.selectNodes("//data/itme")
For i = 0 To oNodes.length-1
Set oNode = oNodes(i).selectSingleNode("time")
If Not oNode Is Nothing Then
Response.Write "time:" & oNode.text
End If
Set oNode = oNodes(i).selectSingleNode("context")
If Not oNode Is Nothing Then
Response.Write "context:" & oNode.text
End If
Next
Set oNodes = Nothing
Set oNode = oDoc.selectSingleNode("//state")
If Not oNode Is Nothing Then
Response.Write "state:" & oNode.text
End If
Set oNode = oDoc.selectSingleNode("//condition")
If Not oNode Is Nothing Then
Response.Write "condition:" & oNode.text
End If
Set oNode = Nothing
Set oDoc = Nothing
%>