站長資訊網(wǎng)asp設(shè)置程序等待時間，使程序停止執(zhí)行某段時間間隔，代碼如下：
Const CUTTime = 5
Response.write(“<body style=’font-size:9pt’>正常執(zhí)行中..<br>下面調(diào)用阻斷,掛起流程” & CUTTime & “秒<br><br>”)
Response.Flush
CUT
Response.write(“<br>正常執(zhí)行中..</body>”)
Response.Flush
Sub CUT()
Dim NOWTime
NOWTime = Now()
Response.write(“<font color=blue>調(diào)用阻斷,掛起流程.當(dāng)前時間:” & NOWTime & “</font><br>”)
Response.Flush
Do While Datediff(“s”,NOWTime,Now()) < CUTTime
REM 阻斷循環(huán)
Loop
Response.write(“<font color=green>銷毀阻斷,恢復(fù)流程.當(dāng)前時間:” & NOW() & “</font><br>”)
Response.Flush
End Sub
%>
