欢迎来到Doc100.Net免费学习资源知识分享平台!
您的位置:首页 > 程序异常 >

asp 读取远程xml内容循环输出解决方案

更新时间: 2014-01-05 00:56:35 责任编辑: Author_N1

 

asp 读取远程xml内容循环输出
 <?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>



请求asp 读取远程xml内容循环输出
需要输出message、nu、time、context、state、condition,其中time和context需要加样式<tb>和</tb>样式,希望大侠给段代码
--参考方法--

<%

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
%>
上一篇:上一篇
下一篇:下一篇

 

随机推荐程序问答结果

 

 

如对文章有任何疑问请提交到问题反馈,或者您对内容不满意,请您反馈给我们DOC100.NET论坛发贴求解。
DOC100.NET资源网,机器学习分类整理更新日期::2014-01-05 00:56:35
如需转载,请注明文章出处和来源网址:http://www.doc100.net/bugs/t/1643/
本文WWW.DOC100.NET DOC100.NET版权所有。