NEWSZW_HZH_BEGIN-->
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
NEWSZW_HZH_END-->
查看更多关于如何在ASP里显示进度条？_编程10000问_的详细内容...