asp脚本延时 自定义的delay函数

关于在asp中不使用组件使得脚本sleep的办法还比较少见，可能比较好的办法是创建同步的xmlhttp request，直到获得的时间达到某个时间为止。

<％ 
Function Delay(s) 
Dim t = Now() 
While DateDiff("s", t, Now) < s 
Wend 
End Function 
％>

上面的函数不断计算当前时间和预设时间的差值，当超过预设时候后跳出循环，占用资源可能比较大。