<%
'月份名称定义
Dim Month_Name(12)
Month_Name(1) = "一月"
Month_Name(2) = "二月"
Month_Name(3) = "三月"
Month_Name(4) = "四月"
Month_Name(5) = "五月"
Month_Name(6) = "六月"
Month_Name(7) = "七月"
Month_Name(8) = "八月"
Month_Name(9) = "九月"
Month_Name(10) = "十月"
Month_Name(11) = "十一月"
Month_Name(12) = "十二月"
'年份处理,默认值为服务器当前年份
if request.querystring("year")<>"" then
Year_var=cint(request.querystring("year"))
else
Year_var=year(date())
end if
'上一年、下一年赋值
Previous_year=Year_var-1
Next_year=Year_var+1
'月份处理,默认值为服务器当前月份
if request.querystring("Month")<>"" then
Month_var=cint(request.querystring("Month"))
else
Month_var=month(date())
end if
'上一月、下一月赋值
if Month_var<=1 then
Next_month=Month_var+1
Previous_month=1
else
if Month_var>=12 then
Next_month=12
Previous_month=Month_var-1
else
Next_month=Month_var+1
Previous_month=Month_var-1
end if
end if
'当前天数定位计算
First_day=DateSerial(Year_var,Month_var,1)
Current_day=First_day-weekday(First_day)+2
%>
日历
|
<%response.write Month_Name(Month_var) & " " & Year_var & "年"%> |
4
8 |
|
星期一 |
星期二 |
星期三 |
星期四 |
星期五 |
星期六 |
星期日 |
<%
'日历内容 5行*7例 显示
'外层循环显示控制行
for i=0 to 4
%>
<%
'内层循环显示控制列
for j=0 to 6
response.write "
'天数显示，“今天”显示
if Current_day = date then
response.write " bgcolor='#FFFFE0'>"
%><%=day(Current_day)%><%
else
'天数显示，非本月天数显示
if Month(Current_day) <> Month_var then
response.write " bgcolor='#F0F0F0'>"
%>
<%=day(Current_day)%><%
else
'天数显示，本月天数显示
response.write ">"
%>
<%=day(Current_day)%><%
end if
end if
'天数累加推算
Current_day = Current_day + 1
response.write " | "
next
%>
<%next%>
|
----------------------------------------
演示地址
www.02188.com/try/date.asp
