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

<%
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
%>



现在时间: <%= Now %>

距离2008年还有 <%= DaysLeft%>天<%= HoursLeft %> 小时<%= MinutesLeft %>分 <%= SecondsLeft %>秒.走得最急的,都是最美的时光.

[1]