如何制作一个倒计时的程序?

 更新时间:2006年11月16日 00:00:00   作者:  

<%
CountdownDate = #1/1/2008 00:00:00AM#
If Date >= CountdownDate Then
    Response.Write "2008 
北京"
    Response.End
End If

theDate    = Now
DaysLeft    = DateDiff("d",theDate,CountdownDate) - 1
theDate    = DateAdd("d",DaysLeft,theDate)
HoursLeft  = DateDiff("h",theDate,CountdownDate) - 1
theDate    = DateAdd("h",HoursLeft,theDate)
MinutesLeft = DateDiff("n",theDate,CountdownDate) - 1
theDate    = DateAdd("n",MinutesLeft,theDate)
SecondsLeft = DateDiff("s",theDate,CountdownDate) - 1
%>

<html>
<body>
现在时间: <%= Now %>
<p>
距离2008年还有 <%= DaysLeft%><%= HoursLeft %> 小时<%= MinutesLeft %> <%= SecondsLeft %>.走得最急的,都是最美的时光.
</body></html>

[1]

相关文章

最新评论