2005/03/19 | 状态栏下的预下载研究
类别(Dreamweaver) | 评论(0) | 阅读(49) | 发表于 21:41
<html>
<head>
<title>
</title>
<SCRIPT language=VBScript>
Dim Bar, Line, SP
Bar = 0
Line = "."
SP = 100

Function Window_onLoad()
Bar = 10
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 = " www.cn-media.com ·-----咖啡虫---中国媒体--·"
Document.Body.Style.Display = ""
End If
End Function

Call Count()
</SCRIPT>
</head>
<body>
</body>
</html>
解释：Window_onLoad() 函数用来定义预先载入的函数
setTimeout(...) "告诉" 计时器当时间到了就呼叫 Count()
0

评论Comments

日志分类
首页[223]
javascript[29]
asp[62]
常识[12]
SQL[8]
文学[2]
Dreamweaver[22]
网页设计[25]
flash[20]
片言碎语[21]
php[6]
web standard[16]