状态栏已加载代码(美金梦优化版)

有什么问题请到<a href=’www.meijinmeng.cn’>美金梦</a>发表<br>

  1. <!– http://www.meijinmeng.cn/ –>
  2. <!– http://www.meijinmeng.cn –>
  3. <!–要完成此效果把如下代码加入到<body>区域中–>
  4. <script language=VBScript>
  5. Dim Bar, Line, SP
  6. Bar = 0
  7. Line = “█”
  8. SP = 100
  9. Function Window_onLoad()
  10.   Bar = 95
  11.   SP = 10
  12. End Function
  13. Function Count()
  14.   If Bar < 100 Then
  15.     Bar = Bar + 1
  16.     Window.Status = “已加载” & Bar & “%” &  ” “ & String(Bar, Line)
  17.     setTimeout “Count()”, SP
  18.   Else
  19.     Window.Status = “欢迎您来到美金梦.cn !  如果喜欢本站,可别忘了告诉朋友们哦! 他们会感谢你的!”
  20.     Document.Body.Style.Display = “”
  21.   End If
  22. End Function
  23. Call Count()
  24. </script>


|美金梦原创,转载要注明出处! 本文地址:http://www.meijinmeng.cn/Html/?339.html

© 版权声明
THE END
喜欢就支持一下吧
点赞0 分享
评论 抢沙发
头像
欢迎您留下宝贵的见解!
提交
头像

昵称

取消
昵称表情代码图片

    暂无评论内容