asp设置程序等待时间,使程序停止执行某段时间间隔
asp设置程序等待时间,使程序停止执行某段时间间隔,代码如下:
Const CUTTime=5
Response.write("<body style='font-size:9pt'>正常执行中..<br>下面调用阻断,挂起流程"&CUTTime&"秒<br><br>")
Response.Flush
CUT
Response.write("<br>正常执行中..</body>")
Response.Flush
Sub CUT()
Dim NOWTime
NOWTime=Now()
Response.write("<font color=blue>调用阻断,挂起流程.当前时间:"&NOWTime&"</font><br>")
Response.Flush
Do While Datediff("s",NOWTime,Now())<CUTTime
REM阻断循环
Loop
Response.write("<font color=green>销毁阻断,恢复流程.当前时间:"&NOW()&"</font><br>")
Response.Flush
End Sub
%>
分享到: