如何在ASP里显示进度条?
(福利推荐:你还在原价购买阿里云服务器?现在阿里云0.8折限时抢购活动来啦!4核8G企业云服务器仅2998元/3年,立即抢购>>>:9i0i.cn/aliyun)
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="http://9i0i.com/pic.php?p="suifengqiwu/images/delay1.jpg"">")
' 如果取余造成不能画完100次,由showlost()将余下未画的显示为已处理.
next
Response.Write "<BR>"
Response.Flush
end sub
相关文章
浅析Java、C/C++、JavaScript、PHP、Python分别用来开发什么?
用任何编程语言来开发程序,都是为了让计算机干活,比如编写一篇文章,下载一首MP3等,而计算机干活的CPU只认识机器的指令,所以,尽管不同的编程语言差异极大,最后都得“翻译”成CPU可以执行的机器指令2018-08-08
最新评论