<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 -->
上一页 [1] [2] [3] [4] [5] 下一页 |