如何在ASP里显示进度条？

.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

刚开始接触ASP进度条实现的时候，不少人会被各种缓存刷新逻辑绕晕。其实核心思路很简单：把总进度拆成100个“画面”，每次输出一部分图片，通过控制输出频率让用户看到平滑的进度条。下面这段代码就是用VBScript实现的典型做法，值得仔细拆解。

先看几个关键变量：dmax代表整个任务需要执行的总步数，dstep是当前已经完成的步数，total固定为100（因为我们要显示100张图片代表100%）。lostnum用来记录那些因为不足1%而暂时没画出来的“零头”，shownum则累计已经实际输出的图片数量。

核心逻辑都在delayshow子程序里。每次调用时，先把当前步数dstep的增量存到临时变量dtemp，然后更新dstep（加上之前欠下的零头）。接着判断：如果当前进度连1%都不到，那就先不画图，把这次的所有步数累加到lostnum里，等下次一起算。这叫“攒够了再显示”，避免频繁输出小到几乎看不见的图片。

一旦进度达到或超过1%，就开始循环输出。用fix((dstep*total)/dmax)算出这次应该画几张图（取整），每画一张就调用Response.Flush强制刷新缓存，让浏览器立刻显示。同时把shownum加上这次输出的数量，lostnum归零。注意，这里用的是Response.Flush而不是Response.End，目的是只刷新输出缓冲区，不中断后续代码执行。

不过取整操作有个小尾巴：如果总步数dmax不是100的整数倍，那么最后shownum可能达不到100。这时候就需要showlost子程序来收尾。它循环输出100-shownum张图片，把剩余的画面补全，最后再输出一个换行并刷新。这样用户看到的进度条始终是完整的100张。

实际使用时，可以在主循环中反复调用delayshow，每完成一个子任务就传一次当前步数，最后调用showlost确保收尾。图片路径suifengqiwu/images/delay1.jpg可以替换成任意小尺寸的占位图，关键是要让浏览器能快速渲染。

这种方法的优点是不依赖任何第三方控件，纯ASP代码就能实现动态进度反馈。当然，如果任务本身耗时极短（比如几毫秒），那显示进度条反而会拖慢速度，建议只在耗时长且步数明显的场景下使用。