로딩시간이 오래 걸리는 페이지에 response.flush를 사용하여 중간중간에 결과 뿌리기

<%

'예제 소스

 Option Explicit
 Response.Expires = 0
 
    response.Buffer = true '버퍼 사용
   
    Dim i, j
    Dim sum : sum = 0
    for j=0 to 10
        for i=0 to 5000000
            sum = sum + i
        next
       
        response.Write "sum flush : " & sum & "<br>" 'sum값을 한줄한줄 화면에 출력한다.
        
        response.Flush
    next
%>

*IE는 태그 단위로 화면에 출력하므로 위의 예제 소스가 태그 안에 포함되어 있을 경우 태그가 닫히기 전에는 결과를 화면에 출력하지 않는다. 위의 소스를 사용하려면 태그를 분리해서 사용해야 한다.