DJ_MEKANSIZ SÜPER AKTİF
Mesaj Sayısı : 629 REP GÜCÜ : 9 Kayıt tarihi : 05/09/08
DJ_MEKANSIZ SESSİZCENNET:
| Konu: sayfa yükleniyor kodu Ptsi Kas. 24, 2008 11:35 pm | |
| - Kod:
-
<body><marquee direction=up><font color=#ff99ff size=7><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><br /> </font></marquee><br /> <br /> </body> | |
|