لودينگي ديگر براي صفحات وب

amir136724

کاربر نقره ای

تاریخ عضویت : آبان 1389

تعداد پست ها : 780

محل سکونت : teharan

لودينگي ديگر براي صفحات وب
یک شنبه 23 آبان 1389 4:22 PM

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

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

<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.iroweb.com ==> 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>

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

<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>

براي استفاده از اين كد بهتره اين رو در اول قالبتون و قبل از تگ <body> و <head> قرار دهيد .