کد Loading برای وبلاگ

امروز کد Loading برای وبلاگ رو براتون گذاشتم . وقتی این کد رو بزارید تو وبلاگتون به هنگام باز شدن وبلاگ یه Loading در استاتوس بار ظاهر میشه که میاد و تا لود شدن کامل صفحه تا 100% پر می کنه .

کد Loading :

<SCRIPT language=VBScript> <!-- 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 = "per=> plz Wait 4 Load : " & Bar & "%" & " " & String(Bar, Line) setTimeout "Count()", SP Else Window.Status = "" Document.Body.Style.ka.blay = "" End If End Function Call Count() --> </SCRIPT></body> </html> </body> </html><style> .ppc_text_ads:link{TEXT-DECORATION: none; COLOR:#0000FF;font-size: 9pt; FONT-FAMILY: Tahoma;} .ppc_text_ads:visited{TEXT-DECORATION: none; COLOR:#008000;font-size: 9pt; FONT-FAMILY: Tahoma;} .ppc_text_ads:hover{TEXT-DECORATION:none; COLOR:#FF0000;font-size: 9pt; FONT-FAMILY: Tahoma;} </style><marquee style='padding:5px;' bgcolor='#CCCCCC' onmouseover='this.stop();' onmouseout='this.start();' direction='up' width='468' height='60' dir='rtl' scrollamount='1' scrolldelay='5'><table border=0 cellspacing=0 cellpadding=0><form target='_blank' method='POST' onsubmit='return f51257993983();' id='frm1595697485' action='http://www.oxinads.com/showad.php' ><input type='hidden' name='oxsyscatid' value='7' ><input type='hidden' name='oxsysuid' value='18314' ><input type='hidden' name='oxsysadtype' value='2' ><input type='hidden' name='oxsysadid' value='' ><input name='dis' type='hidden' value='0' onchange='f4379778796()' ><input name='sec' type='hidden' value='' ></form><tr><td><img title='' border='0' width='12' height='12' src='http://www.oxinads.com/theme/image/new.gif'><a title='' alt='' id='lnk2082256610' target='_self' class='ppc_text_ads' href='javascript:void(0)' > مجموعه نرم افزارهای روتوش و چهره سازی </a></td></tr>