代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样:
<%
Function Delay(s)
Dim t = Now()
While DateDiff("s", t, Now) < s
Wend
End Function
%>
转载自:http://jorkin.reallydo.com/article.asp?id=224
时间: 2024-10-24 12:03:16
代码很短,但是很经典,单位是秒,就是未测试过服务器资源消耗怎么样:
<%
Function Delay(s)
Dim t = Now()
While DateDiff("s", t, Now) < s
Wend
End Function
%>
转载自:http://jorkin.reallydo.com/article.asp?id=224