تبلیغات
تبلیغات متنی
محبوبترینها
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
بارش‌های سیل‌آسا در راه است! آیا خانه شما آماده است؟
قیمت انواع دستگاه تصفیه آب خانگی در ایران
نمایش جنگ دینامیت شو در تهران [از بیوگرافی میلاد صالح پور تا خرید بلیط]
9 روش جرم گیری ماشین لباسشویی سامسونگ برای از بین بردن بوی بد
ساندویچ پانل: بهترین گزینه برای ساخت و ساز سریع
خرید بیمه، استعلام و مقایسه انواع بیمه درمان ✅?
پروازهای مشهد به دبی چه زمانی ارزان می‌شوند؟
تجربه غذاهای فرانسوی در قلب پاریس بهترین رستوران‌ها و کافه‌ها
دلایل زنگ زدن فلزات و روش های جلوگیری از آن
خرید بلیط چارتر هواپیمایی ماهان _ ماهان گشت
صفحه اول
آرشیو مطالب
ورود/عضویت
هواشناسی
قیمت طلا سکه و ارز
قیمت خودرو
مطالب در سایت شما
تبادل لینک
ارتباط با ما
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
مطالب سایت سرگرمی سبک زندگی سینما و تلویزیون فرهنگ و هنر پزشکی و سلامت اجتماع و خانواده تصویری دین و اندیشه ورزش اقتصادی سیاسی حوادث علم و فناوری سایتهای دانلود گوناگون
آمار وبسایت
تعداد کل بازدیدها :
1836718018
2 كد براي قرار دادن لودينگ در استاتوس بار -
واضح آرشیو وب فارسی:سایت ریسک: 2 كد براي قرار دادن لودينگ در استاتوس بار amir_red 22 بهمن 1385, 12:17سلام. اينم 2 كد جالب براي قرار دادن لودينگ در قسمت استاتوس بار در وب. كد اول : توضيح : در اين كد لودينگ همراه با يك نوشته : " لطفا كمي صبر كنيد " ظاهر مي شود. <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 & "%" & " " & 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> با تشكر. نظرات خودتونو حتما درباره ي اين كد ها بگيد. mab designer 24 بهمن 1385, 03:33دستت بي بلا!
این صفحه را در گوگل محبوب کنید
[ارسال شده از: سایت ریسک]
[مشاهده در: www.ri3k.eu]
[تعداد بازديد از اين مطلب: 1823]
-
گوناگون
پربازدیدترینها