如何在ASP里显示进度条?

来源:www.13sc.com | 游客上传 | 296 次浏览 | 0 条评论

搜索:  

如何在ASP里显示进度条?

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=""suifengqiwu/images/delay1.jpg"">")

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

next

Response.Write "<BR>"

Response.Flush

end sub

标签:

最热-编程10000问

如何防止未经注册的用户绕过注册界面直接进入应用系统?

如何用数据库制作一个多用户版的计数器?

如何取回已忘记的密码?

如何编写一个加法器?

如何在ASP中恰当地运用Cookies?

如何获知并显示文件的大小?

在无组件的情况下,如何上传图片?

如何一行行地读取文件?

如何把Recordset转换成彩色的XML文件

如何修改被表单引用的ASP页面?

如何远程读取数据库页面?

如何显示最后十名来访者?

Copyright 2009-2013 13sc.com All Rights Reserved.