year.asp

blog 程序 DIV BLOG 0.6 Readme [ http://www.IamTing.com ] DIV BLOG 0.6版更新说明 =====================

<%
Dim MyVar, newYear, dif, difD, difH, difM, difS, go
MyVar = Now
newYear = CDate("January 22, 2004")
dif = DateDiff("s", Now, newYear)
difD = fix(dif/ 60 / 60 / 24)
difH = fix(dif/ 60 / 60 - 24*difD)
difM = fix(dif/ 60 - 60*24*difD - 60*difH)
difS = fix(dif - 60*60*24*difD - 60*60*difH - 60*difM)
go = MyVar&"<br>"&difD&"天"&difH&"小时"&difM&"分"&difS&"秒"
response.write go
%>
<script>
//window.setInterval("getTime",1000)
</script>