'实现页面的加载进度效果
'<script language="vbscript" src="inc/loading.js"></script>
Dim Bar, Line, SP
Bar = 0
Line = "|"
SP = 100
document.write "<div align=center id=loading style='background-color:#D3E5FA'><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br>数据正在加载中 <span id=pernum></span><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br><br></div>"

Function Window_onLoad()
      Bar = 95
      SP = 10
End Function

Function Count()
   If Bar < 100 Then
      Bar = Bar + 1
      pernum.innerHTML=Bar&"%"&"<br><br>"&String(Bar,Line)
      setTimeout "Count()", SP
   Else
      loading.style.display="none"
   End If
End Function

Call Count()