ASP Pause function

function | pause

Many are used in ASP batch generation HTML static or a large number of loop operation process.

'------------------------------------------------
' Pause (ByVal icount)
' Pause function
' For mass transfer, conversion, and generation, to prevent the continuous consumption of system resources
'------------------------------------------------
Public Sub Pause ()
Dim I,lstep,icount
Icount=p_blog_updatepause
' Native test execution time is 0.03~0.05
lstep=200000
' If 0 or non-numeric it is not limited
If not IsNumeric (icount) OR icount=0 Then Exit Sub
ICOUNT=CLNG (icount)
' Response.Write Timer & <br> '
' Native test 3-5 seconds
If icount>100 Then icount=100
For I=1 to Icount * lstep
Next
' Response.Write Timer
End Sub