日期:2014-05-03  浏览次数:20995 次

多用于在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 & "<br>"
 '本机测试3~5秒
 If iCount>100 Then iCount=100
 For i=1 To iCount * lStep
 Next
 'Response.Write timer
End Sub