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
%>