代码驿站移动版
频道导航
HTML/Xhtml
CSS
JavaScript
HTML5
PHP教程
ASP.NET
正则表达式
AJAX
ThinkPHP
Yii
MySQL
MariaDB
Oracle
MongoDB
Redis
DedeCMS
PHPCMS
帝国CMS
WordPress
Discuz
其它CMS
Zend Studio
Sublime
Notepad
Dreamweaver
Windows
Linux
Nginx
Apache
IIS
CentOS
Ubuntu
Debian
网站优化
工具资源
PHP源码
ASP.NET源码
其它源码
图标素材
按钮素材
字体素材
DedeCMS模板
帝国CMS模板
PHPCMS模板
WordPress模板
Discuz!模板
单页模板
开发软件下载
服务器软件下载
广告投放
联系我们
版权申明
软件编程
网页前端
移动开发
数据库
服务器
脚本语言
PHP代码
JAVA代码
Python代码
Android代码
当前位置:
主页
>
软件编程
>
ASP代码
>
asp显示日历效果
时间:2021-06-13 08:40:19 | 栏目:
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><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</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下过滤非法的SQL字符的函数代码
网站开发防止中文乱码需要了解的codepage的重要性小结
asp程序定义变量比不定义变量速度快一倍
asp数个使用技巧
asp实现生成由数字,大写字母,小写字母指定位数的随机数
相关文章
01-04
asp下sql和access数据库随机取10条记录的代码newid()
01-11
文件的读出 编辑 管理
12-30
asp在iis7报错行号不准问题的解决方法
11-11
再发几个ASP不错的函数
10-09
asp下为什么韩文字后面显示分号?
JQuery
VUE
AngularJS
MSSql
MySQL
MongoDB
Redis
Linux
Tomcat
Nginx
网站首页
广告投放
联系我们
版权申明
联系站长