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

1. <% 
2. Function Delay(s) 
3. Dim t = Now() 
4. While DateDiff("s", t, Now) < s 
5. Wend 
6. End Function 
7. %> 

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

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