Kod ile ilgili herşey

SİTENİN YÜKLENME DURUMUNUZ DURUM ÇUBUĞUNDA GÖSTEREN KOD

<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 = "Yükleniyor: " & Bar & "%" & " " & String(Bar, Line)

            setTimeout "Count()", SP

            Else

            Window.Status = "Yükleme Bitti"

            Document.Body.Style.Display = "" 

            End If 

            End Function

            

            Call Count()

            

            -->

            </SCRIPT>

EN SON EKLENENLER

SİTENİN YÜKLENME DURUMUNUZ DURUM ÇUBUĞUNDA GÖSTEREN KOD