ASP暂停功能函数

作者:网络 来源:佚名 更新时间:2008-01-17 23:45:47 点击:

多用于在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