asp 程序执行一段时间休息一下的代码
if right(cstr(b),1)=0 then
Response.write("<body style='font-size:9pt'>程序执行中..<br>程序停留时间为：" & CUTTime & "秒<br><br>")
Response.Flush'先发送给客户端
CUT'调用函数
Response.write("<br>"&b&"程序执行中..</body>")
Response.Flush'再发送给客户端
end if过程
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 SubCopyright © 2004-2024 Ynicp.com 版权所有 法律顾问:建纬(昆明)律师事务所 昆明市网翼通科技有限公司 滇ICP备08002592号-4
