response.buffer=true
' 應用緩存技術.
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
' 當畫面連1%都沒有時,則不畫,同時用變量lostnum存放未畫的總數,便于下次調用本過程時繼續(xù).
lostnum=lostnum+dtemp
else
for ccc=1 tofix((dstep*total)/dmax)
' 取整數.
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
更多信息請查看IT技術專欄
公眾號
事業(yè)單位
當前位置：
公考類
招聘類
各類考試
