状态栏中显示页面载入进度

<script language=VBScript>

Dim Bar, Line, SP

Bar = 0　

Line = "▌"

SP = 100



Function Window_onLoad()

　Bar = 95

　SP = 10

End Function



Function Count()

　If Bar < 100 Then

　　Bar = Bar + 1

　　Window.Status = "已成功下载" & Bar & "%" &　" " & String(Bar, Line)

　　setTimeout "Count()", SP

　Else

　　Window.Status = "AspToOn工作室 http://nowasp.yeah.net"

　　Document.Body.Style.Display = ""

　End If　　

End Function



Call Count()

</script>