55、状态栏显示打开百分比

55、状态栏显示打开百分比

脚本说明:

把如下代码加入<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>

Write a comment

Comments: 0