当前位置：开发者网络 >> 网页特效 >> 状态栏类 >> 内容
精彩推荐
分类最新特效
分类热点特效
  
状态栏中显示页面载入进度
日期：2005-06-03   人气：   【字体：大 中 小】【收藏此文】

<!-- 网页特效代码由[中国WEB开发者网络:http://www.ChinaWebDev.com]提供！ -->
<!-- 要实现此效果需要 1 个步骤： -->

<!-- 第 1 步： -->
<!-- 把下面的代码加到<BODY></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>