<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"%>
<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"%>
这是个load大量xml数据的例子,用双线程处理,你修改一下应该可以用了