<%@ Language=
VBScript %>
<%
'定义一个函数,用于判断给定月份的天数:
Function GetDays(Yy,Mm)
Select Case Mm
Case 4,6,9,11
GetDays = 30
Case 2
If Yy Mod 400 =0 Or (Yy Mod 4=0 And Yy Mod 100<>0) Then
GetDays = 29
Else
GetDays = 28
End If
Case Else GetDays = 31
End Select
End Function
'获取用户指定的年、月、日:
Dim Yy,Mm,Dd
Yy=Request.QueryString("SY")
Mm=Request.QueryString("SM")
Dd=Request.QueryString("SD")
'如果未做选择,默认为当前
系统日期的年、月、日:
If Yy = Empty Then Yy=Year(Date)
If Mm = Empty Then Mm=Month(Date)
If Dd = Empty Then Dd=Day(Date)
%>
百年日历