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