ASP中通过该日历算法实现的具体代码
2006-08-25 00:00
821 查看
<style> td { font-family: "宋体"; font-size:9pt} </style> <body bgcolor="eeeeee"> <table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align=center> <% '以下为ASP中通过该日历算法实现的具体代码 '先判断是否指定了一个年份和月份,没有则根据当前的年和月份显示 If Request("ReqDate")="" then CurrentDate=Date else CurrentDate=Trim(Request("ReqDate")) end if pyear=year(CurrentDate) pmonth=month(CurrentDate) '以下的代码生成日历显示的表格头内容 %> <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><a href='#' target=_blank>" & iv & "</a></td>") else response.write( "<td align=center><a href='#' target=_blank>" & iv & "</a></td>") end if else response.write( "<td> </td>") end if '如果能被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></html>
相关文章推荐
- ASP中通过该日历算法实现的具体代码
- ASP中通过该日历算法实现的具体代码
- 在asp中通过vbs类实现rsa加密与解密的代码
- 春节期间小明使用微信收到很多个红包,非常开心。在查看领取红包记录时发现,某个红包金额出现的次数超过了红包总数的一半。请帮小明找到该红包金额。写出具体算法思路和代码实现,要求算法尽可能高效。
- 简单的asp.net模拟邮箱系统基础实现(二 (3)具体版块功能的实现及关键代码之母版页和写信界面)
- 简单的asp.net模拟邮箱系统基础实现(二 (4)具体版块功能的实现及关键代码之收件和写信)
- [ASP]无限级分类的简单算法实现及代码重点讲解http://bbs.blueidea.com/thread-1982151-1-1.html
- [转][ASP]无限级分类的简单算法实现及代码重点讲解
- 无限级分类的简单算法实现及代码重点讲解(ASP)
- asp.net通过js实现Cookie创建以及清除Cookie数组的代码
- 在ASP.NET中实现弹出日历的具体方法
- 简单的asp.net模拟邮箱系统基础实现(二 (2)具体版块功能的实现及关键代码之登陆页面)
- asp.net中水印的具体实现代码
- asp中通过getrows实现数据库记录分页的一段代码
- 在asp中通过vbs类实现rsa加密与解密的代码
- git是一种分布式代码管理工具,git通过树的形式记录文件的更改历史,比如: base'<--base<--A<--A' ^ | --- B<--B' 小米工程师常常需要寻找两个分支最近的分割点,即base.假设git 树是多叉树,请实现一个算法,计算git树上任意两点的最近分割点。 (假设git树节点数为n,用邻接矩阵的形式表示git树:字符串数组matrix包含n个字符串,每个字符串由字符'0
- 简单的asp.net模拟邮箱系统基础实现(二 (1)具体版块功能的实现及关键代码之注册页面)
- 在asp中通过getrows实现数据库记录分页的一段代码
- [ASP]无限级分类的简单算法实现及代码重点讲解
- CRC算法之二:具体实现代码