函数|暂停
多用于在ASP批量生成HTML静态或大量循环操作过程中。
'------------------------------------------------
'Pause(byval iCount)
'暂停功能
'用于批量转移，转换，生成过程中，防止持续耗费系统资源
'------------------------------------------------
Public Sub Pause()
Dim i,lStep,iCount
iCount=P_BLOG_UPDATEPAUSE
'本机测试执行时间为0.03~0.05
lStep=200000
'如果为0或者非数值则不限制
If Not IsNumeric(iCount) OR iCount=0 Then Exit Sub
iCount=CLNG(iCount)
'Response.Write timer & "
"
'本机测试3~5秒
If iCount>100 Then iCount=100
For i=1 To iCount * lStep
Next
'Response.Write timer
End Sub
