<SCRIPT language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 200 Function Window_onLoad() Bar = 95 sP = 10 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "Atlantis.blogfa.com => Please Wait For Loading ... : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </SCRIPT> Copyright © 2004 - 2005 - atlantis .Blogfa.com
<SCRIPT language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 200 Function Window_onLoad() Bar = 95 sP = 10 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "Atlantis.blogfa.com => Please Wait For Loading ... : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </SCRIPT>
Copyright © 2004 - 2005 - atlantis .Blogfa.com