|
|
<![CDATA[
VBSCRIPT ASP example :-
-----------------------
<%@ LANGUAGE="VBScript"%>
<%
Response.Buffer = True
%>
<HTML>
<BODY>
Start...
<%
iStart = 0
iEnd = 1000000
iInterval = 50000
for i=iStart to iEnd
if ( (i Mod iInterval) = 0 ) then
Response.Write "<table border=""1"" width=""100%""><tr><td width=""50%"">" & i
& "</td><td width=""50%"">flushed</td></tr></table>"
Response.Flush
end if
next
%>
</body></html>
PERLSCRIPT ASP example :-
--------------------------
<%@ LANGUAGE=PERLSCRIPT %>
<% $Response->{Buffer} = 0; %>
<body>
<%
$istart = 0;
$iend = 2500000;
$iintvl = 100000;
for ($i=$istart;$i<$iend;$i )
{
if ( ($i % $iintvl ) == ($iintvl-1) )
{
my $line = sprintf "counter = %d remainder = %d\n", $i, ($i % $iintvl);
$Response->write( qq(<table border='1' width='100%'><tr><td width='50%'>$i</td><td
width='50%'>$line</td></tr></table>) );
$Response->Flush();
}
#else
#{
# $Response->write("other\n");
#}
}
%>
</body>
</html>
]]>
<![CDATA[
]]>
|
|