SMH
Admin
Mesaj Sayısı : 188
Kayıt tarihi : 15/08/08
Nerden : ISTANBUL
 |  Konu: SAYFA YÜKLENİYOR KODU  Çarş. Ağus. 27, 2008 1:22 pm | |
| - Kod:
-
<****** 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: " &amp; Bar &amp; "%" &amp; " " &amp; String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "Yükleme Bitti" Document.Body.Style.Display = "" End If End Function Call Count() --> </******> | |
|
