现在网上有很多网页加载进度条 ，但大多都是时间固定的。
下面的当查询大量数据时，网页加载较慢，在网页加载时，显示进度条，当网页加载完成时，进度条消失，显示网页已经加载完成的内容。
Dim Bar, SP
Bar = 0
SP = 100
Function Window_onLoad()
Bar = 95
SP = 10
End Function
Function Count()
if Bar < 100 Then
Bar = Bar + 1
setTimeout "Count()", SP
else
document.getElementById("jdt").style.display="none"
document.getElementById("content").style.display=""
end if
End Function
Call Count()
----------------------------------------------------
最简单的就是放图片，网页加载完成隐藏图片，显示网页内容
#loadDiv {
position:absolute;
z-index:999;
width:expression(document.body.clientWidth);
height:expression(document.body.clientHeight);
background-color:#FFFFFF;
text-align:center;
padding-top:200px;
}
Loading... -------------------------------------------------------
function Loaded()
{
document.getElementById("loadDiv").style.display="none"
document.getElementById("content").style.display=""
}
Loading... 
