有什么问题请到评论中发表<br> <!-- http://www.mb5u.com/ --> <!-- http://wWw.mb5u.com/ --> <!--要完成此效果把如下代码加入到<body>区域中--> <script language=VBScript> Dim Bar, Line, SP Bar = 0 Line = \"|\" SP = 100 Function Window_onLoad() Bar = 95 SP = 10 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>
评论加载中....