xmlhttp异步的例子:
URL:
onclick= "getXML()" type= "button" value= "得到源代码">

onclick= "if(xh && xh.responseText) {alert(xh.responseText);oDiv.innerHTML=xh.responseText} " type= "button" value= "显示源代码 " >

<%
dim i
dim r
dim t
dim lngGetI

lngGetI=request.querystring("geti")

on error resume next
lngGetI=clng(lngGetI)
if err<>0 then
response.write "GetError: not isnumber()"
response.end()
end if

if lngGetI<0 or lngGetI>500000 then
lngGetI=10000
end if

response.write "Run Repeat At:" & lngGetI & "
"

t=timer
for i=1 to lngGetI
r = r & i
if i mod 20 = 0 then
r= r & "a
"
end if
next

response.write "run timer:" & cdbl(timer()-t) & "
"
response.write r

%>