阅读新闻
状态栏特效集合
状态栏显示页面载入进度
状态栏显示页面载入进度
<script language=VBScript>
Dim Bar, Line, SP
Bar = 0 powered by 25175.net
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>
| 【内容导航】 | |
| 第1页：状态栏文字闪动效果 | 第2页：标题栏文字按时间转换 |
| 第3页：文字从右边射出效果 | 第4页：状态栏文字发散与集合（经典） |
| 第5页：醒目的标题栏效果 | 第6页：标题栏里多段文字交替显示 |
| 第7页：状态栏显示页面载入进度 | 第8页：闪动的状态栏文字 |
| 第9页：间隔状态栏跑马灯 | 第10页：状态栏弹出文字组合 |
| 第11页：状态栏动态显示现在时间 | 第12页：标题栏变化弹出(Title) |
| 第13页：不停闪烁的状态栏文字 | 第14页：状态栏显示文字链接信息 |
| 第15页：状态栏显示固定信息 | 第16页：标题栏文字动起来 |
上一篇：按钮特效集合
下一篇：菜单导航集合
|
|
本文评论
所有评论
