اگر يادتون باشه توي چند پست قبل آموزش قرار دادن يك لودينگ در اول صفحات وب مانند يكي خودم رو دادم . توي اين پست مي خوام يك كد ديگر كه نوعي لودينگ هست و در استاتوس بار ( بالاي منوي استارت ) نمايش داده ميشه رو براتون معرفي كنم .

اين كد توسط ويژوال بيسيك كدنويسي شده :

<!-- Start --- http://www.Frees.Coo.Ir --> <Script Language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 2 Function Window_onLoad() Bar = 0 sP = 1000 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = "wWw.Frees.Coo.Ir ==> Please Wait To Load Site : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </Script> <!-- End --- http://www.Frees.Coo.Ir --></body> </html>

 من خودم اين كد رو يكسري تغييرات دادم و به يك شكل ديگه در آوردم كه فقط در استاتوس بار درصد لود ذكر ميشه . اينم كدش :

<!-- Start --- http://www.Frees.Coo.Ir --> <Script Language=VBScript> Dim Bar, Line, SP Bar = 0 Line = "|" sP = 2 Function Window_onLoad() Bar = 0 sP = 1000 END Function Function Count() If Bar < 100 Then Bar = Bar + 1 Window.Status = " " & Bar & "%" setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.Display = "" End If End Function Call Count() </Script> <!-- End --- http://www.Frees.Coo.Ir -->