代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样:

%
Function Delay(s)
    Dim t = Now()
    While DateDiff("s", t, Now)  s
    Wend
End Function
%>
转载自：http://jorkin.reallydo.com/article.asp?id=224