狀態欄的進度條_JS特效代碼

最新狀態欄的進度條_JS特效代碼

以下是三零網爲大家整理的最新狀態欄的進度條_JS特效代碼的文章，希望大家能夠喜歡!

 <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>

轉載來自：http://www.q3060.com/list3/list115/328.html