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

2009年4月15日11:15:07 发表评论

有什么问题请到<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

weinxin
觉得对你有帮助?
欢迎打赏,建站不易,一分也是爱^_^ -----来自美金梦站长
avatar

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: