我想做一个载入数据的进度条，但总是先把数据都读出来之后，才显示进度条

<span id=box></span>
<Script Language="VBScript"> 
<!-- Dim Bar, Line, SP 
Bar = 0 
Line = "|" 
SP = 500 Function Window_onLoad() 
Bar = 95 
SP = 10 
End Function Function Count() 
If Bar < 100 Then 
Bar = Bar + 1 
'Window.Status = "LOADING..." & Bar & "%" & " " & String(Bar, Line) 
' box.innerHTML = "LOADING..." & Bar & "%" & "<br>" & String(Bar, Line) 
box.innerHTML = "<br><br><br><br><br><br><br><br><center><font color='#0000FF'><B>LOADING..." & Bar & "%</B></font><br><br><table border='1' cellspacing='0' cellpadding='4' width='410' bgcolor='#ffffff'><tr><td><font color='#0000FF'><span style='background-color: #0000FF'>" & String(Bar, Line) & "</span></font></td></tr></table></center>"
setTimeout "Count()", SP 
Else 
'Window.Status = "FINISH"  
box.innerHTML = ""  
bodyall.Style.Display = "block" 
End If 
End Function Call Count() --> 
</Script>
<span id=bodyall style='display:none'>要调用的地方写  <%@include file="SPAN.jsp"%>