[推荐][特效] 状态栏中显示页面载入进度

2008-02-22 01:41:56来源:互联网 阅读 ()

新老客户大回馈,云服务器低至5折

[特效] 状态栏中显示页面载入进度

要完成此效果把如下代码加入到<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>

标签:

版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有

上一篇:[推荐]bbs100.com提供免费论坛申请

下一篇:[推荐]SOOYLE首页网中文搜索新秀--免费推广网站