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

        注：更多精彩教程請關注三聯圖文教程 頻道，