ign=center>
6<%
7'以下为ASP中通过该日历算法实现的具体代码
8
9
'先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
10
If Request('ReqDate')='' then
11
CurrentDate=Date
12
else
13
CurrentDate=Trim(Request('ReqDate'))
14
end if
15
pyear=year(CurrentDate)
16
pmonth=month(CurrentDate)
17
18
'以下的代码生成日历显示的表格头内容
19%>
20
<tr align='LEFT' bgcolor='#dddddd'>
21
<td width='14%' height='19'
align='center'>
22
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<%=DateAdd('m',-1,CurrentDate)
%>''>
23
</td>
24
<td colspan='5'
align='center'>
25
<%=pyear%>年<%=pmonth%>月
26
</td>
27
<td width='14%'
align='center'>
28
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<%=DateAdd('m',1,CurrentDate)%>''>
29
</td>
30
</tr>
31
<tr align='center' bgcolor='#CCCCCC'>
32
<td width='14%' height='19'>
日</td>
33
<td width='14%'>
一</td>
34
<td width='14%'>
二</td>
35
<td width='14%'>
三</td>
36
<td width='14%'>
四</td>
37
<td width='14%'>
五</td>
38
<td width='14%'>
六</td>
39
</tr>
40
<tr align=center bgcolor=ffffff height=19>
41
<%
42
'由于ASP中没有获取指定月共有多少天的函数，因此我们需要通过其他算法来获得，算法其实很简单，就是计算一下要显示月份的1日至下个月的1日一共相差几天
43
fromDate =
FormatDateTime(month(CurrentDate) & '/1/' &
year(CurrentDate))
44
toDate =
FormatDateTime(DateAdd('m',1,fromDate))
45
'获得要显示月份的第一天为周几
46
nunmonthstart=weekday(fromDate)-1
47
'获得要显示的1日至下个月的1日一共相差几天(月份一共有多少天)
48
nunmonthend=DateDiff('d',fromDate,toDate)
49
'判断显示日历需要用几行表格来显示（每行显示7天）
50
if nunmonthstart+nunmonthend<36
then
51
maxi=36
52
else
53
maxi=43
54
end if
55
'循环生成表格并显示
56
i=1
57
do while i<maxi
58
iv=i-nunmonthstart
59
if
i>nunmonthstart and i<=nunmonthend+nunmonthstart then
60
'如果为显示的是今天则用红色背景显示
61
if iv=Day(now) and month(now)=pmonth and
year(now)=pyear then
62
response.write( '<td align=center bgcolor=ffaaaa><a
href='#' target=_blank>' & iv &
'</a></td>')
63
else
64
response.write( '<td align=center><a href='#'
target=_blank>' & iv & '</a></td>')
65
end if
66
else
67
response.write( '<td>
</td>')
68
end
if
69
70
'如果能被7整除（每行显示7个）则输出一个换行
71
if i mod
7=0 then
72
response.write( '</tr><tr
align=center bgcolor=ffffff height=19>')
73
end
if
74
i=i+1
75
loop
76%>
77</table>
78</body>
具体实现效果如下：
下面是根据上述算法和逻辑在PHP中的具体实现代码：
1<style>
2td { font-family: '宋体'; font-size:9pt}
3</style>
4<body bgcolor='eeeeee'>
5<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
6<?
7//以下为PHP中通过该日历算法实现的具体代码
8
9
//先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
10
if($ReqDate==''){
11
$pyear=date('Y');
12
$pmonth=date('m');
13
$CurrentDate=date('Y-m-j');
14
}else{
15
$ReqDateStrs = explode('-',$ReqDate );
16
$pyear=$ReqDateStrs[0];
17
$pmonth=$ReqDateStrs[1];
18
$CurrentDate=$ReqDate;
19
}
20
21//以下的代码生成日历显示的表格头内容
22?>
23<tr align='center' bgcolor='#dddddd'>
24
<td width='14%' height='19'
align='center'>
25
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth-1,1,$pyear)); ?>''>
26
</td>
27
<td colspan='5'
align='center'>
28
<?
echo $CurrentDate; ?>
29
</td>
30
<td width='14%'
align='center'>
31
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth+1,1,$pyear)); ?>''>
32
</td>
33
</tr>
34
<tr align='center' bgcolor='#CCCCCC'>
35
<td width='14%' height='19'>
日</td>
36
<td width='14%'>
一</td>
37
<td width='14%'>
二</td>
38
<td width='14%'>
三</td>
39
<td width='14%'>
四</td>
40
<td width='14%'>
五</td>
41
<td width='14%'>
六</td>
42
</tr>
43
<tr align=center bgcolor=ffffff height=19>
44<?
45
//获得要显示月份的第一天为周几
46
$nunmonthstart=date('w',mktime(0,0,0,$pmonth,1,$pyear));
47
//获得要显示月份一共有多少天
48
$nunmonthend=date('t',mktime(0,0,0,$pmonth,1,$pyear));
49
//判断显示日历需要用几行表格来显示（每行显示7天）
50
if($nunmonthstart+$nunmonthend<36){
51
$maxi=36;
52
}
53
else{
54
$maxi=43;
55
}
56
//循环生成表格并显示
57
for( $i=1; $i <$maxi; $i++)
58
{
59
$iv=$i-$nunmonthstart;
60
if($i>$nunmonthstart &&
$i<=$nunmonthend+$nunmonthstart) {
61
//如果为显示的是今天则用红色背景显示
62
if($iv==date('d') &&
date('n')==$pmonth && date('Y')==$pyear){
63
print(
'<td align=center bgcolor=ffaaaa><a href='#'
target=_blank>'.$iv.'</a></td>' );
64
}else{
65
print(
'<td align=center><a href='#'
target=_blank>'.$iv.'</a></td>' );
66
}
67
}else{
68
print( '<td> </td>' );
69
}
70
71
//如果能被7整除（每行显示7个）则输出一个换行
72
if ($i%7
==0) {
73
print( '</tr><tr align=center
bgcolor=ffffff height=19>' );
74
}
75
}
76?>
77</tr>
78</table>
79</body>
80</html>
具体实现效果如下：
下面是根据上述算法和逻辑在NoahWeb中的具体实现代码(一种面象动作驱动的语言)：
1<%@ Page language='c#' Inherits='NoahWeb.Engine'
%>
2<style>
3td {}{ font-family: '宋体'; font-size:9pt}
4</style>
5<!-- NoahComment 以下为NoahWeb表现层通过该日历算法实现的具体代码
-->
6
7<!-- NoahComment 先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
-->
8<!-- NoahIf EX='[_root.ReqDate]==[null]' -->
9
<!-- NoahSetValue
SetName='CurrentDate' SetValue='date('O',mktime())'
-->
10<!-- NoahElse -->
11
<!-- NoahSetValue
SetName='CurrentDate' SetValue='[_root.ReqDate]'
-->
12<!-- NoahEndIf -->
13
14<!-- NoahSetValue SetName='pyear'
SetValue='date('Y',mktime([CurrentDate]))' -->
15<!-- NoahSetValue SetName='pmonth'
SetValue='date('n',mktime([CurrentDate]))' -->
16
17<!-- NoahComment 以下的代码生成日历显示的表格头内容 -->
18<body bgcolor='eeeeee'>
19<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
20<tr align='LEFT' bgcolor='#dddddd'>
21
<td width='14%' height='19'
align='center'>
22
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,-1))'
-->''>
23
</td>
24
<td colspan='5'
align='center'>
25
<!--
NoahValue ValueName='[pyear]' -->年<!-- NoahValue
ValueName='[pmonth]' -->月
26
</td>
27
<td width='14%'
align='center'>
28
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,1))'
-->''>
29
</td>
30
</tr>
31
<tr align='center' bgcolor='#CCCCCC'>
32
<td width='14%' height='19'>
日</td>
33
<td width='14%'>
一</td>
34
<td width='14%'>
二</td>
35
<td width='14%'>
三</td>
36
<td width='14%'>
四</td>
37
<td width='14%'>
五</td>
38
<td width='14%'>
六</td>
39
</tr><tr bgcolor=ffffff height=19>
40
41<!-- NoahComment 获得要显示月份的第一天为周几 -->
42<!-- NoahSetValue SetName='nunmonthstart'
SetValue='date('w',mktime([pyear],[pmonth],1,0,0,0))' -->
43
44<!-- NoahComment 获得要显示月份一共有多少天 -->
45<!-- NoahSetValue SetName='nunmonthend'
SetValue='date('t',mktime([pyear],[pmonth],1,0,0,0))' -->
46
47<!-- NoahComment 判断显示日历需要用几行表格来显示（每行显示7天） -->
48<!-- NoahIf EX='[nunmonthstart]+[nunmonthend]<36'
-->
49
<!-- NoahSetValue SetName='maxi'
SetValue='36'
-->
50<!-- NoahElse -->
51
<!-- NoahSetValue SetName='maxi'
SetValue='43'
-->
52<!-- NoahEndIf -->
53
54<!-- NoahComment 循环生成表格并显示 -->
55<!-- NoahForStart InitVar='i' InitValue='1' EX='[i]<[maxi]'
NextVar='i' NextValue='[i]+1' -->
56
57
<!-- NoahSetValue SetName='iv'
SetValue='[i]-[nunmonthstart]' -->
58
59
<!-- NoahComment 如果为显示的是今天则用红色背景显示
-->
60
<!-- NoahIf
EX='[iv]==date('d',mktime())&&date('n',mktime())==[pmonth]&&date('Y',mktime())==[pyear]'
-->
61
<td
align='center' bgcolor=ffaaaa>
62
<!-- NoahElse -->
63
<td
align='center'>
64
<!-- NoahEndIf -->
65
66
<!-- NoahComment
如果是一个有效的日期则输出该日期并超链接，如果不为一有效日期则不做输出(由于NoahWeb控制HTML代码比较方便所以逻辑在这做了一点改变让我少写点代码，哈)
-->
67
<!-- NoahIf
EX='[i]>[nunmonthstart]&&[i]<=[nunmonthend]+[nunmonthstart]'
-->
68
<a
href='#' target=_blank><!-- NoahValue ValueName='[iv]'
--></a>
69
<!-- NoahEndIf -->
</td>
70
71
<!-- NoahComment
如果能被7整除（每行显示7个）则输出一个换行 -->
72
<!-- NoahIf EX='[i]%7==0'
-->
73
</tr><tr bgcolor=ffffff height=19>
74
<!-- NoahEndIf -->
75
76<!-- NoahForEnd -->
77</tr>
78</table>
79</body>
80</html>
具体实现效果如
1<style>
2td { font-family: '宋体'; font-size:9pt}
3</style>
4<body bgcolor='eeeeee'>
5<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
6<%
7'以下为ASP中通过该日历算法实现的具体代码
8
9
'先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
10
If Request('ReqDate')='' then
11
CurrentDate=Date
12
else
13
CurrentDate=Trim(Request('ReqDate'))
14
end if
15
pyear=year(CurrentDate)
16
pmonth=month(CurrentDate)
17
18
'以下的代码生成日历显示的表格头内容
19%>
20
<tr align='LEFT' bgcolor='#dddddd'>
21
<td width='14%' height='19'
align='center'>
22
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<%=DateAdd('m',-1,CurrentDate)
%>''>
23
</td>
24
<td colspan='5'
align='center'>
25
<%=pyear%>年<%=pmonth%>月
26
</td>
27
<td width='14%'
align='center'>
28
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<%=DateAdd('m',1,CurrentDate)%>''>
29
</td>
30
</tr>
31
<tr align='center' bgcolor='#CCCCCC'>
32
<td width='14%' height='19'>
日</td>
33
<td width='14%'>
一</td>
34
<td width='14%'>
二</td>
35
<td width='14%'>
三</td>
36
<td width='14%'>
四</td>
37
<td width='14%'>
五</td>
38
<td width='14%'>
六</td>
39
</tr>
40
<tr align=center bgcolor=ffffff height=19>
41
<%
42
'由于ASP中没有获取指定月共有多少天的函数，因此我们需要通过其他算法来获得，算法其实很简单，就是计算一下要显示月份的1日至下个月的1日一共相差几天
43
fromDate =
FormatDateTime(month(CurrentDate) & '/1/' &
year(CurrentDate))
44
toDate =
FormatDateTime(DateAdd('m',1,fromDate))
45
'获得要显示月份的第一天为周几
46
nunmonthstart=weekday(fromDate)-1
47
'获得要显示的1日至下个月的1日一共相差几天(月份一共有多少天)
48
nunmonthend=DateDiff('d',fromDate,toDate)
49
'判断显示日历需要用几行表格来显示（每行显示7天）
50
if nunmonthstart+nunmonthend<36
then
51
maxi=36
52
else
53
maxi=43
54
end if
55
'循环生成表格并显示
56
i=1
57
do while i<maxi
58
iv=i-nunmonthstart
59
if
i>nunmonthstart and i<=nunmonthend+nunmonthstart then
60
'如果为显示的是今天则用红色背景显示
61
if iv=Day(now) and month(now)=pmonth and
year(now)=pyear then
62
response.write( '<td align=center bgcolor=ffaaaa><a
href='#' target=_blank>' & iv &
'</a></td>')
63
else
64
response.write( '<td align=center><a href='#'
target=_blank>' & iv & '</a></td>')
65
end if
66
else
67
response.write( '<td>
</td>')
68
end
if
69
70
'如果能被7整除（每行显示7个）则输出一个换行
71
if i mod
7=0 then
72
response.write( '</tr><tr
align=center bgcolor=ffffff height=19>')
73
end
if
74
i=i+1
75
loop
76%>
77</table>
78</body>
具体实现效果如下：
下面是根据上述算法和逻辑在PHP中的具体实现代码：
1<style>
2td { font-family: '宋体'; font-size:9pt}
3</style>
4<body bgcolor='eeeeee'>
5<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
6<?
7//以下为PHP中通过该日历算法实现的具体代码
8
9
//先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
10
if($ReqDate==''){
11
$pyear=date('Y');
12
$pmonth=date('m');
13
$CurrentDate=date('Y-m-j');
14
}else{
15
$ReqDateStrs = explode('-',$ReqDate );
16
$pyear=$ReqDateStrs[0];
17
$pmonth=$ReqDateStrs[1];
18
$CurrentDate=$ReqDate;
19
}
20
21//以下的代码生成日历显示的表格头内容
22?>
23<tr align='center' bgcolor='#dddddd'>
24
<td width='14%' height='19'
align='center'>
25
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth-1,1,$pyear)); ?>''>
26
</td>
27
<td colspan='5'
align='center'>
28
<?
echo $CurrentDate; ?>
29
</td>
30
<td width='14%'
align='center'>
31
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth+1,1,$pyear)); ?>''>
32
</td>
33
</tr>
34
<tr align='center' bgcolor='#CCCCCC'>
35
<td width='14%' height='19'>
日</td>
36
<td width='14%'>
一</td>
37
<td width='14%'>
二</td>
38
<td width='14%'>
三</td>
39
<td width='14%'>
四</td>
40
<td width='14%'>
五</td>
41
<td width='14%'>
六</td>
42
</tr>
43
<tr align=center bgcolor=ffffff height=19>
44<?
45
//获得要显示月份的第一天为周几
46
$nunmonthstart=date('w',mktime(0,0,0,$pmonth,1,$pyear));
47
//获得要显示月份一共有多少天
48
$nunmonthend=date('t',mktime(0,0,0,$pmonth,1,$pyear));
49
//判断显示日历需要用几行表格来显示（每行显示7天）
50
if($nunmonthstart+$nunmonthend<36){
51
$maxi=36;
52
}
53
else{
54
$maxi=43;
55
}
56
//循环生成表格并显示
57
for( $i=1; $i <$maxi; $i++)
58
{
59
$iv=$i-$nunmonthstart;
60
if($i>$nunmonthstart &&
$i<=$nunmonthend+$nunmonthstart) {
61
//如果为显示的是今天则用红色背景显示
62
if($iv==date('d') &&
date('n')==$pmonth && date('Y')==$pyear){
63
print(
'<td align=center bgcolor=ffaaaa><a href='#'
target=_blank>'.$iv.'</a></td>' );
64
}else{
65
print(
'<td align=center><a href='#'
target=_blank>'.$iv.'</a></td>' );
66
}
67
}else{
68
print( '<td> </td>' );
69
}
70
71
//如果能被7整除（每行显示7个）则输出一个换行
72
if ($i%7
==0) {
73
print( '</tr><tr align=center
bgcolor=ffffff height=19>' );
74
}
75
}
76?>
77</tr>
78</table>
79</body>
80</html>
具体实现效果如下：
下面是根据上述算法和逻辑在NoahWeb中的具体实现代码(一种面象动作驱动的语言)：
1<%@ Page language='c#' Inherits='NoahWeb.Engine'
%>
2<style>
3td {}{ font-family: '宋体'; font-size:9pt}
4</style>
5<!-- NoahComment 以下为NoahWeb表现层通过该日历算法实现的具体代码
-->
6
7<!-- NoahComment 先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
-->
8<!-- NoahIf EX='[_root.ReqDate]==[null]' -->
9
<!-- NoahSetValue
SetName='CurrentDate' SetValue='date('O',mktime())'
-->
10<!-- NoahElse -->
11
<!-- NoahSetValue
SetName='CurrentDate' SetValue='[_root.ReqDate]'
-->
12<!-- NoahEndIf -->
13
14<!-- NoahSetValue SetName='pyear'
SetValue='date('Y',mktime([CurrentDate]))' -->
15<!-- NoahSetValue SetName='pmonth'
SetValue='date('n',mktime([CurrentDate]))' -->
16
17<!-- NoahComment 以下的代码生成日历显示的表格头内容 -->
18<body bgcolor='eeeeee'>
19<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
20<tr align='LEFT' bgcolor='#dddddd'>
21
<td width='14%' height='19'
align='center'>
22
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,-1))'
-->''>
23
</td>
24
<td colspan='5'
align='center'>
25
<!--
NoahValue ValueName='[pyear]' -->年<!-- NoahValue
ValueName='[pmonth]' -->月
26
</td>
27
<td width='14%'
align='center'>
28
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,1))'
-->''>
29
</td>
30
</tr>
31
<tr align='center' bgcolor='#CCCCCC'>
32
<td width='14%' height='19'>
日</td>
33
<td width='14%'>
一</td>
34
<td width='14%'>
二</td>
35
<td width='14%'>
三</td>
36
<td width='14%'>
四</td>
37
<td width='14%'>
五</td>
38
<td width='14%'>
六</td>
39
</tr><tr bgcolor=ffffff height=19>
40
41<!-- NoahComment 获得要显示月份的第一天为周几 -->
42<!-- NoahSetValue SetName='nunmonthstart'
SetValue='date('w',mktime([pyear],[pmonth],1,0,0,0))' -->
43
44<!-- NoahComment 获得要显示月份一共有多少天 -->
45<!-- NoahSetValue SetName='nunmonthend'
SetValue='date('t',mktime([pyear],[pmonth],1,0,0,0))' -->
46
47<!-- NoahComment 判断显示日历需要用几行表格来显示（每行显示7天） -->
48<!-- NoahIf EX='[nunmonthstart]+[nunmonthend]<36'
-->
49
<!-- NoahSetValue SetName='maxi'
SetValue='36'
-->
50<!-- NoahElse -->
51
<!-- NoahSetValue SetName='maxi'
SetValue='43'
-->
52<!-- NoahEndIf -->
53
54<!-- NoahComment 循环生成表格并显示 -->
55<!-- NoahForStart InitVar='i' InitValue='1' EX='[i]<[maxi]'
NextVar='i' NextValue='[i]+1' -->
56
57
<!-- NoahSetValue SetName='iv'
SetValue='[i]-[nunmonthstart]' -->
58
59
<!-- NoahComment 如果为显示的是今天则用红色背景显示
-->
60
<!-- NoahIf
EX='[iv]==date('d',mktime())&&date('n',mktime())==[pmonth]&&date('Y',mktime())==[pyear]'
-->
61
<td
align='center' bgcolor=ffaaaa>
62
<!-- NoahElse -->
63
<td
align='center'>
64
<!-- NoahEndIf -->
65
66
<!-- NoahComment
如果是一个有效的日期则输出该日期并超链接，如果不为一有效日期则不做输出(由于NoahWeb控制HTML代码比较方便所以逻辑在这做了一点改变让我少写点代码，哈)
-->
67
<!-- NoahIf
EX='[i]>[nunmonthstart]&&[i]<=[nunmonthend]+[nunmonthstart]'
-->
68
<a
href='#' target=_blank><!-- NoahValue ValueName='[iv]'
--></a>
69
<!-- NoahEndIf -->
</td>
70
71
<!-- NoahComment
如果能被7整除（每行显示7个）则输出一个换行 -->
72
<!-- NoahIf EX='[i]%7==0'
-->
73
</tr><tr bgcolor=ffffff height=19>
74
<!-- NoahEndIf -->
75
76<!-- NoahForEnd -->
77</tr>
78</table>
79</body>
80</html>
具体实现效果如下：
下面是根据上述算法和逻辑在PHP中的具体实现代码：
1<style>
2td { font-family: '宋体'; font-size:9pt}
3</style>
4<body bgcolor='eeeeee'>
5<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
6<?
7//以下为PHP中通过该日历算法实现的具体代码
8
9
//先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
10
if($ReqDate==''){
11
$pyear=date('Y');
12
$pmonth=date('m');
13
$CurrentDate=date('Y-m-j');
14
}else{
15
$ReqDateStrs = explode('-',$ReqDate );
16
$pyear=$ReqDateStrs[0];
17
$pmonth=$ReqDateStrs[1];
18
$CurrentDate=$ReqDate;
19
}
20
21//以下的代码生成日历显示的表格头内容
22?>
23<tr align='center' bgcolor='#dddddd'>
24
<td width='14%' height='19'
align='center'>
25
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth-1,1,$pyear)); ?>''>
26
</td>
27
<td colspan='5'
align='center'>
28
<?
echo $CurrentDate; ?>
29
</td>
30
<td width='14%'
align='center'>
31
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<? echo
date('Y-m-j',mktime(0,0,0,$pmonth+1,1,$pyear)); ?>''>
32
</td>
33
</tr>
34
<tr align='center' bgcolor='#CCCCCC'>
35
<td width='14%' height='19'>
日</td>
36
<td width='14%'>
一</td>
37
<td width='14%'>
二</td>
38
<td width='14%'>
三</td>
39
<td width='14%'>
四</td>
40
<td width='14%'>
五</td>
41
<td width='14%'>
六</td>
42
</tr>
43
<tr align=center bgcolor=ffffff height=19>
44<?
45
//获得要显示月份的第一天为周几
46
$nunmonthstart=date('w',mktime(0,0,0,$pmonth,1,$pyear));
47
//获得要显示月份一共有多少天
48
$nunmonthend=date('t',mktime(0,0,0,$pmonth,1,$pyear));
49
//判断显示日历需要用几行表格来显示（每行显示7天）
50
if($nunmonthstart+$nunmonthend<36){
51
$maxi=36;
52
}
53
else{
54
$maxi=43;
55
}
56
//循环生成表格并显示
57
for( $i=1; $i <$maxi; $i++)
58
{
59
$iv=$i-$nunmonthstart;
60
if($i>$nunmonthstart &&
$i<=$nunmonthend+$nunmonthstart) {
61
//如果为显示的是今天则用红色背景显示
62
if($iv==date('d') &&
date('n')==$pmonth && date('Y')==$pyear){
63
print(
'<td align=center bgcolor=ffaaaa><a href='#'
target=_blank>'.$iv.'</a></td>' );
64
}else{
65
print(
'<td align=center><a href='#'
target=_blank>'.$iv.'</a></td>' );
66
}
67
}else{
68
print( '<td> </td>' );
69
}
70
71
//如果能被7整除（每行显示7个）则输出一个换行
72
if ($i%7
==0) {
73
print( '</tr><tr align=center
bgcolor=ffffff height=19>' );
74
}
75
}
76?>
77</tr>
78</table>
79</body>
80</html>
具体实现效果如下：
下面是根据上述算法和逻辑在NoahWeb中的具体实现代码(一种面象动作驱动的语言)：
1<%@ Page language='c#' Inherits='NoahWeb.Engine'
%>
2<style>
3td {}{ font-family: '宋体'; font-size:9pt}
4</style>
5<!-- NoahComment 以下为NoahWeb表现层通过该日历算法实现的具体代码
-->
6
7<!-- NoahComment 先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
-->
8<!-- NoahIf EX='[_root.ReqDate]==[null]' -->
9
<!-- NoahSetValue
SetName='CurrentDate' SetValue='date('O',mktime())'
-->
10<!-- NoahElse -->
11
<!-- NoahSetValue
SetName='CurrentDate' SetValue='[_root.ReqDate]'
-->
12<!-- NoahEndIf -->
13
14<!-- NoahSetValue SetName='pyear'
SetValue='date('Y',mktime([CurrentDate]))' -->
15<!-- NoahSetValue SetName='pmonth'
SetValue='date('n',mktime([CurrentDate]))' -->
16
17<!-- NoahComment 以下的代码生成日历显示的表格头内容 -->
18<body bgcolor='eeeeee'>
19<table width='180' cellpadding='0' cellspacing='1'
bgcolor='dddddd' align=center>
20<tr align='LEFT' bgcolor='#dddddd'>
21
<td width='14%' height='19'
align='center'>
22
<input type='button' value='<<'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,-1))'
-->''>
23
</td>
24
<td colspan='5'
align='center'>
25
<!--
NoahValue ValueName='[pyear]' -->年<!-- NoahValue
ValueName='[pmonth]' -->月
26
</td>
27
<td width='14%'
align='center'>
28
<input type='button' value='>>'
onclick='JavaScript:location.href='?ReqDate=<!-- NoahValue
ValueName='date('O',totime(mktime([CurrentDate]),0,1))'
-->''>
29
</td>
30
</tr>
31
<tr align='center' bgcolor='#CCCCCC'>
32
<td width='14%' height='19'>
日</td>
33
<td width='14%'>
一</td>
34
<td width='14%'>
二</td>
35
<td width='14%'>
三</td>
36
<td width='14%'>
四</td>
37
<td width='14%'>
五</td>
38
<td width='14%'>
六</td>
39
</tr><tr bgcolor=ffffff height=19>
40
41<!-- NoahComment 获得要显示月份的第一天为周几 -->
42<!-- NoahSetValue SetName='nunmonthstart'
SetValue='date('w',mktime([pyear],[pmonth],1,0,0,0))' -->
43
44<!-- NoahComment 获得要显示月份一共有多少天 -->
45<!-- NoahSetValue SetName='nunmonthend'
SetValue='date('t',mktime([pyear],[pmonth],1,0,0,0))' -->
46
47<!-- NoahComment 判断显示日历需要用几行表格来显示（每行显示7天） -->
48<!-- NoahIf EX='[nunmonthstart]+[nunmonthend]<36'
-->
49
<!-- NoahSetValue SetName='maxi'
SetValue='36'
-->
50<!-- NoahElse -->
51
<!-- NoahSetValue SetName='maxi'
SetValue='43'
-->
52<!-- NoahEndIf -->
53
54<!-- NoahComment 循环生成表格并显示 -->
55<!-- NoahForStart InitVar='i' InitValue='1' EX='[i]<[maxi]'
NextVar='i' NextValue='[i]+1' -->
56
57
<!-- NoahSetValue SetName='iv'
SetValue='[i]-[nunmonthstart]' -->
58
59
<!-- NoahComment 如果为显示的是今天则用红色背景显示
-->
60
<!-- NoahIf
EX='[iv]==date('d',mktime())&&date('n',mktime())==[pmonth]&&date('Y',mktime())==[pyear]'
-->
61
<td
align='center' bgcolor=ffaaaa>
62
<!-- NoahElse -->
63
<td
align='center'>
64
<!-- NoahEndIf -->
65
66
<!-- NoahComment
如果是一个有效的日期则输出该日期并超链接，如果不为一有效日期则不做输出(由于NoahWeb控制HTML代码比较方便所以逻辑在这做了一点改变让我少写点代码，哈)
-->
67
<!-- NoahIf
EX='[i]>[nunmonthstart]&&[i]<=[nunmonthend]+[nunmonthstart]'
-->
68
<a
href='#' target=_blank><!-- NoahValue ValueName='[iv]'
--></a>
69
<!-- NoahEndIf -->
</td>
70
71
<!-- NoahComment
如果能被7整除（每行显示7个）则输出一个换行 -->
72
<!-- NoahIf EX='[i]%7==0'
-->
73
</tr><tr bgcolor=ffffff height=19>
74
<!-- NoahEndIf -->
75
76<!-- NoahForEnd -->
77</tr>
78</table>
79</body>
80</html>
具体实现效果如下：
