无为清净楼资源网 Design By www.qnjia.com

response.buffer=true

' 应用缓存技术.

dim lostnum

' 防止dmax过大而dstep过小.

dim shownum

delayshow(dstep,dmax)

sub delayshow(dstep,dmax)

' dmax表示要处理多少dmax(步)才能完成全过程,dstep表示已处理的占全过程的大致百分比.

 

dim total

' 显示所有画面.

dim dtemp

' 过渡变量.

total=100

dtemp=dstep

dstep=dstep+lostnum

 

if (dstep*total)/dmax<1 then

' 当画面连1%都没有时,则不画,同时用变量lostnum存放未画的总数,便于下次调用本过程时继续.

 

lostnum=lostnum+dtemp

else

for ccc=1 to  fix((dstep*total)/dmax)

' 取整数.

 

Response.Flush

 

shownum=shownum+fix((dstep*total)/dmax)

lostnum=0

' 显示缓存里的图片,变量shownum用于存放目前已画的图片.

end if

end sub

 

sub showlost()

for ccc=1 to (100-shownum)

Response.Write ("<img src="/UploadFiles/2021-04-02/">

' 如果取余造成不能画完100次,由showlost()将余下未画的显示为已处理.

next

Response.Write "<BR>"

Response.Flush

end sub

 

标签:
|如何|何在|在A|AS|SP|P里|里显|显示|示进|进度|度条|条?|?|

无为清净楼资源网 Design By www.qnjia.com
广告合作:本站广告合作请联系QQ:858582 申请时备注:广告合作(否则不回)
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件! 如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
无为清净楼资源网 Design By www.qnjia.com