＋设为首页 ＋添加到收藏夹
<%
延时
Public Sub Sleep(ByVal lngSecond)
Dim oldTime
oldTime = Timer
Do While True
If Timer - oldTime = lngSecond Then
Exit Do
End If
Loop
End Sub
测试
Dim lngStartTime, lngEndTime
lngStartTime = Timer
Sleep 5
lngEndTime = Timer
Response.Write "start time: " & lngStartTime & "<br>"
Response.Write "end time: " & lngEndTime & "<br>"
%>
同事问起，于是写了一个。
老兄, 你写的这段代码你自己测试过没有呀. 是一段死循环直到超时为止的程序呀
死循环？
老兄，不能用等于的
TIMER返回的是实型的，有小数点
你的程序99%死循环
oldTime = Timer
Do While Timer-old<Time:Loop
即可
服务器端asp脚本用延时?人多点不把服务器搞死才怪
搂主说的我以前自己也写过并测试过，
出是出来了，可是差点死机，机器什么都干不了！
非要用的话，服务器可够受的了。
不是好方法啊
window.setInterval
可能更好一点了.
