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

<%

FunctionDelay(s)

Dimt=Now()

WhileDateDiff("s",t,Now)<s

Wend

EndFunction

%>

转载自：http://jorkin.reallydo.com/article.asp?id=224