求一个如奥运倒计时牌那样显示的倒计时程序

dssaa

突然想到这样的一个小程序，不知道能不能做，比如我要在我的主页上挂一个页面，上面只显示这样的一个东西，就是像奥运倒计时牌那样显示的倒计时。比如设定180天倒计时。包括天，时，分，秒，跑秒。不知道这样的程序（ASP/VBS）怎么写。请求赐教。另外这个似乎FLASH也可以做，不知道有没有，谢谢大家！

xfdipzone

1. <Script Language="VBScript">
   
2. <!--
   
3. SetTimeOut "clock",1000
   
4. sub clock()
   
5. n=cdate("2008-8-8 20:0:0")
   
6. sn=datediff("s",now(),n)
   
7. days=sn\3600*24
   
8. hours=(sn mod (3600*24))\3600
   
9. minutes=((sn mod (3600*24)) mod 3600)\60
   
10. seconds=((sn mod (3600*24)) mod 3600) mod 60
    
11. times="离北京奥运会 2008年8月8日 20:00:00还有:" & days & "天" & hours & "小时" & minutes & "分" & seconds & "秒"
    
12. nowt.innerhtml=times
    
13. SetTimeOut "clock",1000
    
14. End sub
    
15. -->
    
16. </script>
    
17. 
    
18. <center id="nowt"></center>

复制代码运行代码另存代码

dssaa

斑竹真的是太有才了 而且愿意分享  谢谢！

dssaa

能不能实现跑秒！斑竹大大！

xfdipzone

已经是跑秒啦

dssaa

呵呵  谢谢

我说的跑秒是秒后面的那个单位，好象一秒是99跑秒吧！  那种比赛计时器上用的！

xfdipzone

跑秒

1. <Script Language="VBScript">
   
2. <!--
   
3. pseconds=99
   
4. SetTimeOut "clock",1000
   
5. sub clock()
   
6. n=cdate("2008-8-8 20:0:0")
   
7. sn=datediff("s",now(),n)
   
8. days=sn\3600*24
   
9. hours=(sn mod (3600*24))\3600
   
10. minutes=((sn mod (3600*24)) mod 3600)\60
    
11. seconds=((sn mod (3600*24)) mod 3600) mod 60
    
12. pseconds=pseconds-1
    
13. if pseconds=0 then
    
14. pseconds=99
    
15. End if
    
16. times="离北京奥运会 2008年8月8日 20:00:00还有:" & days & "天" & hours & "小时" & minutes & "分" & seconds & "秒" & pseconds
    
17. nowt.innerhtml=times
    
18. SetTimeOut "clock",10
    
19. End sub
    
20. -->
    
21. </script>
    
22. 
    
23. <center id="nowt"></center>

复制代码运行代码另存代码

115300111

有没有JS版的呀

VB在FF都不行

xfdipzone

你去js版块看看吧

lin516

各种北京2008奥运会倒计时Flash收集下载（15种）