asp显示日历效果

<p><style> td { font-family: "宋体"; font-size:9pt} </style></p> <table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align="center"> <p> '先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示 if request("reqdate")="" then currentdate=date else currentdate=trim(request("reqdate")) end if pyear=year(currentdate) pmonth=month(currentdate)</p> <p> '以下的代码生成日历显示的表格头内容 %> </p> <tr align="left" bgcolor="#dddddd"> <td width="14%" height="19" align="center"> <input type="button" value="<<" onclick="javascript:location.href='?reqdate=<%=dateadd(" m>'"> </td> <td colspan="5" align="center"> 年月 </td> <td width="14%" align="center"> <input type="button" value=">>" onclick="javascript:location.href='?reqdate=<%=dateadd(" m>'"> </td> </tr> <tr align="center" bgcolor="#cccccc"> <td width="14%" height="19"> 日</td> <td width="14%"> 一</td> <td width="14%"> 二</td> <td width="14%"> 三</td> <td width="14%"> 四</td> <td width="14%"> 五</td> <td width="14%"> 六</td> </tr> <tr align="center" bgcolor="ffffff" height="19">nunmonthstart and i<a href="#">" & iv & "</a>") else response.write( "<td align="center"><a href="#">" & iv & "</a></td>") end if else response.write( "<td> </td>") end if <p> '如果能被7整除（每行显示7个）则输出一个换行 if i mod 7=0 then response.write( "</p> </tr> <tr align="center" bgcolor="ffffff" height="19">") end if i=i+1 loop %> </tr> </table>
[ctrl+a 全选 注:如需引入外部js需刷新才能执行]