Русский
<!--Для достижения этого эффекта добавьте следующий код в область <body>--> <script Language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" SP = 100 Function Window_onLoad() Bar = 95 SP = 10 Конечная функция Функция Count() Если Bar < 100 Тогда 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>
