使用提示
状态栏的进度条
演示效果：刷新本页看看状态栏
代码提示：将下面代码复制到<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>
使用提示
返回目录
