Güncel-TRAdmin Mesaj Sayısı : 2587 Rep Gücü : 1162411 Teşekkür Puanı : 61 Kayıt tarihi : 26/11/08 Yaşı : 40 | Konu: sitene sayfa yükleme efekti | | | <!--- KAYNAK: [Linkleri görebilmek için üye olun veya giriş yapın.] ---> <****** 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 = "Sayfa Yükleme Durumu: " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Sayfa Yükleme Durumu: Yüklendi" Document.Body.Style.Display = "" End If End Function Call Count() --> </******> <!--- KAYNAK: [Linkleri görebilmek için üye olun veya giriş yapın.] ---> - Kod:
-
<!--- KAYNAK: http://www.gezginler.net ---> <****** 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 = "Sayfa Yükleme Durumu: " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Sayfa Yükleme Durumu: Yüklendi" Document.Body.Style.Display = "" End If End Function Call Count() --> </******> <!--- KAYNAK: http://www.gezginler.net ---> |
|