How do i show the progress bar in ASP? _ Programming 10000 Q

Response.buffer=true

' Apply caching technology .

Dim lostnum

' prevent DMax too large and dstep too small .

Dim shownum

Delayshow (Dstep,dmax)

Sub Delayshow (Dstep,dmax)

' DMax indicates how many DMax (steps) to handle to complete the process,Dstep represents the approximate percentage of the total process that has been processed .

Dim total

' Show all the pictures .

Dim dtemp

' transition variable .

total=100

Dtemp=dstep

Dstep=dstep+lostnum

if (dstep*total)/dmax<1 Then

' when the screen is not even 1%, then do not draw , at the same time with the variable lostnum store the total number of paintings , easy to continue the next call this process .

Lostnum=lostnum+dtemp

Else

For Ccc=1 to Fix ((dstep*total)/dmax)

' take an integer .

Response.Flush

Shownum=shownum+fix ((dstep*total)/dmax)

Lostnum=0

' displays the picture in the cache, and the variable shownum is used to store the currently painted picture .

End If

End Sub

Sub Showlost ()

For Ccc=1 to (100-shownum)

Response.Write ("

If the remainder is not finished, the remaining showlost () will be displayed as handled .

Next

Response.Write "<BR>"

Response.Flush

End Sub