打印本文 打印本文 关闭窗口 关闭窗口
多种Web脚本语言下的日历实现
作者:武汉SEO闵涛  文章来源:敏韬网  点击数4190  更新时间:2009/4/23 10:33:30  文章录入:mintao  责任编辑:mintao
<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]  下一页

打印本文 打印本文 关闭窗口 关闭窗口