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

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