Show progress when ASP handlers-application Tips

Friends who have used the software know that the progress bar is an important part of a good software.
Its existence enables the user to master the program's running progress in time, and confirms that the application is working properly. But the ASP does not seem to have the above standard control, control is also more troublesome.
So how to achieve the progress bar?
Here are some of my views (for reference only)
We typically use a page (*.asp) to process or control these programs when using an ASP handler (referring to writing files or manipulating databases), and then jump to the display page when the processing is complete. We can then display the progress bar through these processing pages. The method is to create a progress bar by drawing 100 of the same graphics (such as colored rectangles) in sequence according to the program's processing progress. The effect is similar to that achieved with other programming tools
Here are some source, hoping to give you an inspiration.
Response.buffer=true
Dim lostnum
Dim shownum
Delayshow (Dstep,dmax) process is used to show how many img (Draw how much progress)
Where DMax indicates how many (DMax) steps the entire program needs to handle to complete the handler.
Where Dstep indicates that the current process is the component of the entire process, expressed in quantity.
The existence of variable lostnum is due to dmax (such as 10000), and dstep too small (such as 1). If the call to Delayshow (1,10000) is bound to be impossible to draw an IMG, in fact
Delayshow (100,10000) only to draw once, said to complete 1%, because 100 accounted for 10000 of 1%.
Sub Delayshow (Dstep,dmax)
Dim total//Display screen 100 img
Dim dtemp//Transition variable
total=100
Dtemp=dstep
Dstep=dstep+lostnum
if (dstep*total)/dmax<1 Then
When you want to deal with things that are not even 1%, do not draw img At the same time with variable Lostnum to store the total number of outstanding processing, easy to call this process at the next time processing.
Lostnum=lostnum+dtemp
Else
For Ccc=1 to fix ((dstep*total)/dmax)//Take an integer
Response.Write " "
Next
Response.Flush//Display the contents of the cache (picture)
Variable shownum is used to store the currently drawn img
Shownum=shownum+fix ((dstep*total)/dmax)
Lostnum=0
End If
End Sub
Due to the problem of the algorithm, the main reason is that it can not be completely painted 100 times, then you need
Process Showlost () The remaining not drawn IMG, all display processing, to achieve the length of the progress bar
Sub Showlost ()
For Ccc=1 to (100-shownum)
Response.Write (" ")
Next
Response.Write "<BR>"
Response.Flush
End Sub

Finally, please note that
Caching technology is needed here
Response.buffer=true;
Response.Flush;
Response.End
Please refer to the MSDN Help