状态栏显示下载条
下面为效果显示
脚本说明: 把如下代码加入<body>区域中 <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 = "每一天我们都在进步，欢迎你的光顾!" Document.Body.Style.Display = "" End If End Function Call Count() </script>