小提示
  • Ctrl+/代码提示(需IE11)
  • F11键放大 ESC键缩小
  • PgUp上页 PgDn下页
推荐代码
运行代码 缩小
    • 3.0.0 2.2.0 2.1.4 2.1.3 2.1.2 2.1.1 2.1.0 2.0.3 2.0.2 2.0.1 2.0.0 1.12.0 1.11.3 1.11.2 1.11.1 1.11.0 1.10.2 1.10.1 1.10.0 1.9.1 1.9.0 1.8.3 1.8.2 1.8.1 1.8.0 1.7.2 1.7.1 1.7 1.6.4 1.6.2 1.6.1 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0
    • 1.7.3 1.7.2 1.7.1.0 1.7.0.0
    • 2.0.0-beta.0 2.0.0-alpha.55 1.5.0-rc.0 1.4.8 1.4.0 1.3.20 1.2.29 1.1.5 1.0.8
    • 1.8.3 1.7.0 1.6.0 1.5.2 1.4.4 1.3.3 1.2.4 1.1.7
    • 1.10.4 1.9.7 1.8.10 1.7.8 1.6.3 1.5.4 1.4.6 1.3.3
    • core1.6.0 core-compat1.6.0 core1.5.2 core-compat1.5.2 core-full-compat-yc1.4.5 core-full-compat1.4.5 core-full-nocompat-yc1.4.5 core-full-nocompat1.4.5
    • 1.4.2 1.4.1 1.4.0 1.3.0 1.2.0 1.1.0
    • 3.7.3 3.7.2 3.7.1 3.7.0 3.7 3.6.2 3.6.1 3.6
    • 1.4.5 1.4.4 1.4.3 1.4.2 1.4.1 1.4.0 1.3.2
    • 1.11.4 1.11.3 1.11.2 1.11.1 1.11.0 1.10.4 1.10.3 1.10.2
    • 3.3.6 3.3.5 3.3.0 3.2.0 2.3.2
汉王
HTML代码
复制 格式化 注释 注释 清空
放大
​x
 
1
<title>在状态栏显示网页加载进度</title>
2
<script language=VBScript>
3
Dim Bar, Line, SP
4
Bar = 0
5
Line = "|"
6
SP = 100
7
​
8
Function Window_onLoad()
9
  Bar = 95
10
  SP = 10
11
End Function
12
​
13
Function Count()
14
  If Bar < 100 Then
15
    Bar = Bar + 1
16
    Window.Status = "加载中……" & Bar & "%" &  " " & String(Bar, Line)
17
    setTimeout "Count()", SP
18
  Else
19
    Window.Status = "Codefans.net"
20
    Document.Body.Style.Display = ""
21
  End If  
22
End Function
23
Call Count()
24
</script>
CSS代码
复制 格式化 注释 注释 颜色 清空
放大 
CSS代码...
xxxxxxxxxx
1
 
1
​
JS代码
复制 格式化 注释 注释 清空
放大 
JS代码...
xxxxxxxxxx
1
 
1
​
运行代码

简介

名称
在状态栏显示网页加载进度
分类
网站常用
描述
在IE状态栏显示网页的加载进度，加载完成自动消失，注意：好像在IE7下不兼容，看不到效果，估计得修改一下。
收藏