日本語
<!--この効果を実現するには、次のコードを <body> 領域に追加します--> <script language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" 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>