<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数据正常") document.getElementById("A1").innerText=xmlhttp.status document.getElementById("A2").innerText=xmlhttp.statusText document.getElementById("A3").innerText=xmlhttp.responseText else alert("XML检索结果：" & xmlhttp.statusText) end if end if end function </script> </head> <body onload="loadXMLDoc('text/note.xml')"> <h2>Using the HttpRequest Object</h2> <p><b>状态：</b> <span id="A1"></span> </p> <p><b>状态描述：</b> <span id="A2"></span> </p> <p><b>返回：</b> <br><span id="A3"></span> </p> </body> </html>
编辑上面的文字,按下“查看结果”，效果会显示在右边 Create by 软晨网（RuanChen.com）