asp显示日历效果

<P><style>
td { font-family: "宋体"; font-size:9pt}
</style>
<body bgcolor="eeeeee">
<table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align=center>
<%
'以下为ASP中通过该日历算法实现的具体代码</P>
<P> '先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示
 If Request("ReqDate")="" then
   CurrentDate=Date
 else
   CurrentDate=Trim(Request("ReqDate"))
 end if 
 pyear=year(CurrentDate)
 pmonth=month(CurrentDate)</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",-1,CurrentDate) %>'">
 </td>
    <td colspan="5" align="center">
  <%=pyear%>年<%=pmonth%>月
 </td>
    <td width="14%" align="center">
  <input type="button" value=">>" onclick="JavaScript:location.href='?ReqDate=<%=DateAdd("m",1,CurrentDate)%>'">
 </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>
  <%
  '由于ASP中没有获取指定月共有多少天的函数，因此我们需要通过其他算法来获得，算法其实很简单，就是计算一下要显示月份的1日至下个月的1日一共相差几天
 fromDate = FormatDateTime(month(CurrentDate) & "/1/" &  year(CurrentDate)) 
 toDate = FormatDateTime(DateAdd("m",1,fromDate)) 
 '获得要显示月份的第一天为周几
 nunmonthstart=weekday(fromDate)-1
 '获得要显示的1日至下个月的1日一共相差几天(月份一共有多少天)
 nunmonthend=DateDiff("d",fromDate,toDate)
 '判断显示日历需要用几行表格来显示（每行显示7天）
 if nunmonthstart+nunmonthend<36 then
   maxi=36
 else
   maxi=43
 end if
 '循环生成表格并显示
 i=1
 do while i<maxi
  iv=i-nunmonthstart
  if i>nunmonthstart and i<=nunmonthend+nunmonthstart then
   '如果为显示的是今天则用红色背景显示
   if iv=Day(now) and month(now)=pmonth and year(now)=pyear then
    response.write( "<td align=center bgcolor=ffaaaa>" & iv & "</td>")
   else
    response.write( "<td align=center>" & iv & "</td>")
   end if
  else
   response.write( "<td> </td>")
  end if</P>
<P>  '如果能被7整除（每行显示7个）则输出一个换行
  if i mod 7=0 then
   response.write( "</tr><tr align=center bgcolor=ffffff height=19>")
  end if
  i=i+1
 loop
%>
</table>
</body>

[Ctrl+A 全选注:如需引入外部Js需刷新才能执行]

asp显示日历效果

教你文件上传技巧

年末主流服务器主板完全采购指南

Docker容器日志查看和清理的图文教程

PLSQL Developer怎么导出数据库

解答Visual Studio 2005三个版本的区别

360随身wifi连不上解决方法

小度wifi怎么用小度wifi使用教程

校园网病毒该如何铲除

快压硬盘扩容工具使用方法

3dmax2017渲染设置渲染参数设置方法

教你文件上传技巧

年末主流服务器主板完全采购指南

Docker容器日志查看和清理的图文教程

PLSQL Developer怎么导出数据库

解答Visual Studio 2005三个版本的区别

360随身wifi连不上解决方法

小度wifi怎么用小度wifi使用教程

校园网病毒该如何铲除

快压硬盘扩容工具使用方法

3dmax2017渲染设置渲染参数设置方法

asp显示日历效果

教你文件上传技巧

年末主流服务器主板完全采购指南

Docker容器日志查看和清理的图文教程

PLSQL Developer怎么导出数据库

解答Visual Studio 2005三个版本的区别

360随身wifi连不上解决方法

小度wifi怎么用 小度wifi使用教程

校园网病毒该如何铲除

快压硬盘扩容工具使用方法

3dmax2017渲染设置 渲染参数设置方法

教你文件上传技巧

年末主流服务器主板完全采购指南

Docker容器日志查看和清理的图文教程

PLSQL Developer怎么导出数据库

解答Visual Studio 2005三个版本的区别

360随身wifi连不上解决方法

小度wifi怎么用 小度wifi使用教程

校园网病毒该如何铲除

快压硬盘扩容工具使用方法

3dmax2017渲染设置 渲染参数设置方法

小度wifi怎么用小度wifi使用教程

3dmax2017渲染设置渲染参数设置方法

小度wifi怎么用小度wifi使用教程

3dmax2017渲染设置渲染参数设置方法