Sayfa Yükleniyor

'HTML-PHP-ASP-JAVA' forumunda semyav5mitq tarafından 9 Ocak 2009 tarihinde açılan konu

  1. Sponsorlu Bağlantılar
    Sayfa Yükleniyor konusu <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.Styleisplay = ""
    End If
    End Function

    Call Count()

    -->
    </SCRIPT>
     

Bu Sayfayı Paylaş