如何在ASP里顯示進(jìn)度條？

    response.buffer=true
    ' 應(yīng)用緩存技術(shù).
    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
    ' 當(dāng)畫面連1%都沒有時,則不畫,同時用變量lostnum存放未畫的總數(shù),便于下次調(diào)用本過程時繼續(xù).
    lostnum=lostnum+dtemp
    else
    for ccc=1 tofix((dstep*total)/dmax)
    ' 取整數(shù).
    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