ASP中通过该日历算法实现的具体代码

遗忘的珈蓝

遗忘的珈蓝

2016-02-19 09:37

下面是个简单易学的ASP中通过该日历算法实现的具体代码教程,图老师小编详细图解介绍包你轻松学会,喜欢的朋友赶紧get起来吧!
代码如下:

style
td { font-family: "宋体"; font-size:9pt}
/style
body bgcolor="eeeeee"
table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" style="text-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" style="text-align:center"
        input type="button" value="" onclick="JavaScript:location.href='?ReqDate=%=DateAdd("m",-1,CurrentDate) %'"
    /td
    td colspan="5" style="text-align:center"
        %=pyear%年%=pmonth%月
    /td
    td width="14%" style="text-align:center"
        input type="button" value="" onclick="JavaScript:location.href='?ReqDate=%=DateAdd("m",1,CurrentDate)%'"
    /td
  /tr
  tr style="text-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 style="text-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+nunmonthend36 then
         maxi=36
    else
         maxi=43
    end if
    '循环生成表格并显示
    i=1
    do while imaxi
        iv=i-nunmonthstart
        if inunmonthstart and i=nunmonthend+nunmonthstart then
            '如果为显示的是今天则用红色背景显示
            if iv=Day(now) and month(now)=pmonth and year(now)=pyear then
                response.write( "td style="text-align:center" bgcolor=#ffaaaaa href='#' target=_blank" & iv & "/a/td")
            else
                response.write( "td style="text-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( "/trtr style="text-align:center" bgcolor=ffffff height=19")
        end if
        i=i+1
    loop
%
/table
/body/html
展开更多 50%)
分享

猜你喜欢

ASP中通过该日历算法实现的具体代码

Web开发
ASP中通过该日历算法实现的具体代码

asp中通过getrows实现数据库记录分页的一段代码

ASP
asp中通过getrows实现数据库记录分页的一段代码

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

Android 倒影算法的实现代码

编程语言 网络编程
Android 倒影算法的实现代码

JSP实现论坛树型结构的具体算法

Java JAVA基础
JSP实现论坛树型结构的具体算法

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

在asp中通过getrows实现数据库记录分页的一段代码

ASP
在asp中通过getrows实现数据库记录分页的一段代码

在asp中通过vbs类实现rsa加密与解密

ASP
在asp中通过vbs类实现rsa加密与解密

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

ASP 类 Class入门 推荐

ASP 类 Class入门 推荐

android IntentService实现原理及内部代码分享

android IntentService实现原理及内部代码分享
下拉加载更多内容 ↓