如何用客户端vbscript异步调用xmlhttp？

[afdfgg]

Function getXML()
set xh = CreateObject("Microsoft.XMLHTTP")
set oDiv = document.getElementById("m")
oDiv.innerHTML = "正在装载栏目数据，请稍侯......."
oDiv.style.display= ""
set xh.onreadystatechange = GetRef("getReady") '这句出错“对象不支持次属性或方法”
xh.Open "GET", document.getElementById("a").value, true
xh.Send
End Function

Function getReady()
set xh = CreateObject("Microsoft.XMLHTTP")
set oDiv = document.getElementById("m")
if xh.readyState=4 THEN
if xh.status=200 THEN
oDiv.innerHTML = "完成"
else
oDiv.innerHTML = "抱歉，装载数据失败。原因：" + xh.statusText
END if
END if
End Function

[超级大笨狼]

<button onclick="vbs:getXML(URL)"></button>


<SCRIPT LANGUAGE="vbScript">
dim URL,xh,xml
set xh = CreateObject("Microsoft.XMLHTTP")
URL="http://community.csdn.net/Expert/topic/4470/4470224.xml?temp=.6321985"



Function getXML(URL)
xh.onreadystatechange = GetRef("getReady")
xh.Open "GET",URL, true
xh.Send
alert xml
End Function


Function getReady()
if xh.readyState=4 THEN
if xh.status=200 THEN
dim xmldoc,root
set xmldoc= xh.responseXML
set root= xmldoc.documentElement
xml=xmldoc.xml
else
xml = "±§Ç¸£¬×°ÔØÊý¾Ýʧ°Ü¡£Ô­Òò£º" + xh.statusText
END if
END if
End Function

</SCRIPT>

[超级大笨狼]

晕，EditPlus乱码

<button onclick="vbs:getXML(URL)"></button>


<SCRIPT LANGUAGE="vbScript">
dim URL,xh,xml
set xh = CreateObject("Microsoft.XMLHTTP")
URL="http://community.csdn.net/Expert/topic/4470/4470224.xml?temp=.6321985"



Function getXML(URL)
xh.onreadystatechange = GetRef("getReady")
xh.Open "GET",URL, true
xh.Send
alert xml
End Function


Function getReady()
if xh.readyState=4 THEN
if xh.status=200 THEN
dim xmldoc,root
set xmldoc= xh.responseXML
set root= xmldoc.documentElement
xml=xmldoc.xml
else
xml = "抱歉，装载数据失败。原因：" + xh.statusText
END if
END if
End Function

</SCRIPT>