Ana Sayfa En Yeni 50 Kod En Popüler 50 Kod Sen de Yaz Bize Ulaşın
Sponsorlar
Programlama > HTML


Yükleniyor

Sitenin yüklenme durumunu durum çubugunda 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>
Ana Sayfa   Ana sayfam yap   Favorilerime ekle   Bize Ulaşın
© 2002 - 2010 Hazır Kod Programlama - Türkiye