Loading... [بایگانی] - برنامه نویس

FirstLine

چهارشنبه 02 شهریور 1384, 07:12 صبح

با سلام
در زمان وارد کردن URL هر صفحه ، چجوری میتونم قبل از load شدن و بارگزاری صفحه عبارت "Loading... Please Wait" را تا زمان اتمام load شدن صفحه نمایش دهم؟
با تشکر

javad_hosseiny

چهارشنبه 02 شهریور 1384, 10:44 صبح

با استفاده ازاسکریپت نویسی یه مورد تو سایت مجیدآنلاین هست :

http://www.majidonline.com/page.php?page=content&op=cntshow&code=40

و یه مورد دیگر :

Dim Bar, Line, SP
Bar = 0
Line = "|"
sP = 200
Function Window_onLoad()
Bar = 95
sP = 10
END Function

Function Count()
If Bar < 100 Then
Bar = Bar + 1
Window.Status = " WebSite Load ... " & Bar & "%" & " " & String(Bar, Line)
setTimeout "Count()", SP
Else
Window.Status = ""
Document.Body.Style.Display = ""
End If
End Function
Call Count()

البته باید در ابتدا و انتهایش از تگ اسکریپت استفاده کنید (البته این وی بی اسکریپت است)
(بدلیل اینکه اگر تگ اسکریپت را می گذاشتم متن اسکریپت را نمایش نمی داد (در صفحه ) من آن را حذف کردم شما برای استفاده خودتان اضافه کنید)
(قابل توجه مسئولین سایت (حساسیت متن وروداطلاعات به کلمه اسکریپت) )