當前位置：開發者網絡 >> 網頁特效 >> 狀態欄類 >> 內容
精彩推薦
分類最新特效
分類熱點特效
   
狀態欄中顯示頁面載入進度
日期：2004-06-17   人氣：   【字體：大 中 小】【收藏此文】

<!-- 網頁特效代碼由[中國WEB開發者網絡:http://www.ChinaWebDev.com]提供！ -->
<!-- 要實現此效果需要 1 個步驟： -->

<!-- 第 1 步： -->
<!-- 把下面的代碼加到<HEAD></HEAD>區域中： -->

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