通过 XML HTTP 加载一个XML文件 (VBScript)

编辑下面的代码，然后点击查看运行效果按钮，右侧显示代码修改后的运行结果

<html>
<head>
<script type="text/vbscript">
dim xmlhttp

function loadXMLDoc(url)
set xmlhttp=createObject("Microsoft.XMLHTTP")
xmlhttp.onreadystatechange=getRef("state_Change")
call xmlhttp.open("GET",url,true)
call xmlhttp.send()
end function

function state_Change()
if xmlhttp.readyState=4 then
  if xmlhttp.status=200 then
    alert("XML data OK")
    document.getElementById("A1").innerText=xmlhttp.status
    document.getElementById("A2").innerText=xmlhttp.statusText
    document.getElementById("A3").innerText=xmlhttp.responseText
  else
    alert("Problem retrieving XML data:" & xmlhttp.statusText)
  end if
end if
end function

</script>
</head>

<body onload="loadXMLDoc('/xml/try/note.xml')">
<h2>Using the HttpRequest Object</h2>

<p><b>status:</b>
<span id="A1"></span>
</p>

<p><b>status text:</b>
<span id="A2"></span>
</p>

<p><b>response:</b>
<br /><span id="A3"></span>
</p>

</body>
</html>

运行结果:上一个示例：通过 XML HTTP 加载一个 XML 文件 (JavaScript) 下一个示例：通过 XML HTTP 向一个 div 元素加载文本文件 (JavaScript)

XML 示例 - W3C HTML - 在线测试工具 V1.0