ASP日期倒计时源码.doc

ASP日期倒计时源码

将此文档后缀改为asp即可，此方法可延伸（将多个“日期”放于数组中即可，也可到数据库读取）怎么修改，文档中也有所提示，相信你可以研究出来（相信自己）。

使用方法：相信能找到这个文件，也就足以说明你是懂得的

日期倒计时，这是一个可以计算到年份的ASP源码。

Dim nowYear,nowMonth,nowDay
Dim lastYear,lastMonth,lastDay
Dim lefYear,lefMonth,letDay
Dim lefTime

'获得当前年月日
nowYear=Year(Date)
nowMonth=Month(Date)
nowDay=Day(Date)

'设定最后日期
dd="2013-4-17" '可以修改此日期，与当前日期做计算，看效果

'定义数组,在这里，最后日期只有一个，所以以下数组没有需要。
'Dim lefTimeVar()
'ReDim lefTimeVar(数值)

'获得最后日期的年月日
lastYear=Year(dd)
lastMonth=Month(dd)
lastDay=Day(dd)

‘以下开始计算终止日期与当前日期的关系
If lastYear-nowYear > 0 Then ‘当年份差大于零时
If lastMonth-nowMonth > 0 Then ‘当月份差大于零时
If lastDay-nowDay > 0 Then ‘当日差大于零时
lefYear=lastYear-nowYear ‘这是剩余日期的年份
lefMonth=lastMonth-nowMonth ‘这是剩余日期的月份
lefDay=lastDay-nowDay ‘这是剩余日期的天数
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日" ‘这是剩余日期的年-月-日
End If

If lastDay-nowDay = 0 Then
lefYear=lastYear-nowYear
lefMonth=lastMonth-nowMonth
lefDay=0
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay < 0 Then
lefYear=lastYear-nowYear
lefMonth=lastMonth-nowMonth-1
lefDay=30-(nowDay-lastDay)
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If
End If

If lastMonth-nowMonth = 0 Then
If lastDay-nowDay > 0 Then
's=年份差 & 0 & 日差
lefYear=lastYear-nowYear
lefMonth=0
lefDay=lastDay-nowDay
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay = 0 Then
's=年份差 & 0 & 0
lefYear=lastYear-nowYear
lefMonth=0
lefDay=0
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay < 0 Then
's=年份差-1 & 11 & 30-日差绝对值
lefYear=lastYear-nowYear-1
lefMonth=11
lefDay=30-(nowDay-lastDay)
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

End If

If lastMonth-nowMonth < 0 Then
If lastDay-nowDay > 0 Then
's=年份差-1 & 12-月份差的绝对值 & 日差
lefYear=lastYear-nowYear-1
lefMonth=12-(nowMonth-lastMonth)
lefDay=lastDay-nowDay
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay = 0 Then
's=年份差-1 & 12-月份差的绝对值 & 0
lefYear=lastYear-nowYear-1
lefMonth=12-(nowMonth-lastMonth)
lefDay=0
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay < 0 Then
's=年份差-1 & 12-月份差的绝对值-1 & 30-日差绝对值
lefYear=lastYear-nowYear-1
lefMonth=12-(nowMonth-lastMonth)
lefDay=30-(nowDay-lastDay)
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If
End If
End If

If lastYear-nowYear = 0 Then
If lastMonth-nowMonth > 0 Then
If lastDay-nowDay > 0 Then
's=0 & 月份差 & 日差
lefYear=0
lefMonth=lastMonth-nowMonth
lefDay=lastDay-nowDay
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay = 0 Then
's=0 & 月份差 & 0
lefYear=0
lefMonth=lastMonth-nowMonth
lefDay=0
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay < 0 Then
's=0 & 月份差-1 & 30-日差绝对值
lefYear=0
lefMonth=lastMonth-nowMonth-1
lefDay=30-(nowDay-lastDay)
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If
End If

If lastMonth-nowMonth = 0 Then
If lastDay-nowDay > 0 Then
's=0 & 0 & 日差
lefYear=0
lefMonth=0
lefDay=lastDay-nowDay
lefTime=lefYear & "年" & lefMonth & "月" & lefDay & "日"
End If

If lastDay-nowDay = 1 Then
's=到期
lefYear=0
lefMonth=0
lefDay=1
lefTime="<font color=red><b>时间到了</b></font>"
End If

If lastDay-nowDay = 0 Then
's=到期
lefYear=0
lefMonth=0
lefDay=0
lefTime="日期已过"
End If

If lastDay-nowDay < 0 Then
's=日期已过
lefTime="日期已过"
End If
End If

If lastMonth-nowMonth < 0 Then
's=日期已过
lefTime="日期已过"
End If
End If

If lastYear-nowYear < 0 Then
's=日期已过
lefTime="日期已过"
End If
‘现在开始输出结果
'For i=0 To *
'lefTimeVar(i)=lefTime ‘将“剩余日期”存在此数组中
'Next

Response.Write "到期还剩：" & lefTime ‘在这里，如果有多个“剩余日期”，可以设置循环（FOR）输出。