www.ispring.cn/delay.asp
不过IE显示不出效果
我再K-Meleon效果很好
都是延时一秒
function delaytime(dtype,dvalue)
dim a
a = now()
b = now()
while datediff(dtype,a,now()) < dvalue
wend
end function
Response.Buffer = true '必须设置为true才有动态效果
for i = 1 to 9
randomize
response.write i&"-"&int(1+rnd()*9)&"-"&datediff("s",a,now())&"<br>"
Response.Flush '及时打印缓冲
delaytime "s",1 '延时1秒
next
response.write "10<br>"
response.write "that is all! thanks......<br>"
response.write datediff("s",a,now())
response.write "<br>"
response.write datediff("s",b,now())