中文(繁体)
<!--要完成此效果將以下程式碼加入<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 = "歡迎你的光臨！
