如何在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 ("

　　")

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

　　next

　　Response.Write "

　　"

　　Response.Flush

　　end sub