返回首页
当前位置: 主页 > 网络编程 > Asp实例教程 >

利用asp制作倒计时程序代码

时间:2010-08-06 01:12来源:知行网www.zhixing123.cn 编辑:麦田守望者

Script Language="VBScript">
<!--
SetTimeOut "clock",1000
sub clock()
n=cdate("2008-8-8 20:0:0")
sn=datediff("s",now(),n)
days=sn\3600*24
hours=(sn mod (3600*24))\3600
minutes=((sn mod (3600*24)) mod 3600)\60
seconds=((sn mod (3600*24)) mod 3600) mod 60
times="离广东亚运会 2008年8月8日 20:00:00还有:" & days & "天" & hours & "小时" & minutes & "分" & seconds & "秒"
nowt.innerhtml=times
SetTimeOut "clock",1000
End sub
-->
</script>

<center id="nowt"></center>

 

<Script Language="VBScript">
<!--
pseconds=99
SetTimeOut "clock",1000
sub clock()
n=cdate("2008-8-8 20:0:0")
sn=datediff("s",now(),n)
days=sn\3600*24
hours=(sn mod (3600*24))\3600
minutes=((sn mod (3600*24)) mod 3600)\60
seconds=((sn mod (3600*24)) mod 3600) mod 60
pseconds=pseconds-1
if pseconds=0 then
pseconds=99
End if
times="离广东亚运会  2008年8月8日 20:00:00还有:" & days & "天" & hours & "小时" & minutes & "分" & seconds & "秒" & pseconds
nowt.innerhtml=times
SetTimeOut "clock",10
End sub
-->
</script>

<center id="nowt"></center>
 

------分隔线----------------------------
标签(Tag):asp asp实例教程 asp教程 asp源码
------分隔线----------------------------
推荐内容
猜你感兴趣