response.buffer=true
‘ åºç¨ç¼åææ¯.
dim lostnum
‘ é²æ¢dmaxè¿å¤§èdstepè¿å°.
dim shownum
delayshow(dstep,dmax)
sub delayshow(dstep,dmax)
‘ dmax表示è¦å¤çå¤å°dmax(æ¥)æè½å®æå ¨è¿ç¨ï¼dstep表示已å¤ççå å ¨è¿ç¨ç大è´ç¾åæ¯.
 xml:namespace prefix = o ns = “urn:schemas-microsoft-com:office:office” /??
dim total
‘ æ¾ç¤ºææç»é¢.
dim dtemp
‘ è¿æ¸¡åé.
total=100
dtemp=dstep
dstep=dstep+lostnum
Â
if (dstep*total)/dmax<1 then
‘ å½ç»é¢è¿1%é½æ²¡ææ¶,åä¸ç»,åæ¶ç¨åélostnumåæ¾æªç»çæ»æ°,便äºä¸æ¬¡è°ç¨æ¬è¿ç¨æ¶ç»§ç».
Â
lostnum=lostnum+dtemp
else
for ccc=1 to fix((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
Â