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

代码如下:

<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>

赞 (0)

相关推荐

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

    复制代码 代码如下: <style> td { font-family: "宋体"; font-size:9pt} </style> <body bgcolor="eeeeee"> <table width="180" cellpadding="0" cellspacing="1" bgcolor="dddddd" align=center>

  • asp中最新新闻显示new图片的实现代码

    2天内的现实new文字 <%if DateDiff("d",rs("date"),date())<2 then%><font color="#4FC5D9">NEW</font><%end if%> 七天之内显示new图片 <%if Date()-rs("news_date")<7 then %> <img border="0"

  • ASP中实现的URLEncode、URLDecode自定义函数

    在做ajax中的post时,发现在服务器端取得数据时总是乱码,网上看了些解决方法也搞不定,我post过去时是xml形式,由于乱码服务器端xml也解析不了或出错.于是在post前先把它编码,到服务器端再解码,这样问题解决了,但是要是数据很大时估计会很影响速度. 虽然ASP中的request会自动解码经过url编码的字符串,但是Request.BinaryRead(Request.TotalBytes)取得post数据时却不会解码,所以要进行解码. 下面是我找到的一个ASP中server.urlen

  • ASP中利用execute实现动态包含文件的方法

    摘要:本文介绍了ASP中动态包含ASP文件,并使其中ASP类(Class)可实例化的方法. ASP中,include file/virtual 是优先脚本代码处理的,所以无法使用include动态包含ASP文件.我们可以使用Execute函数动态执行所需代码. 方法: Execute(ASP代码) 例子:(vbCrLf为换行符) 复制代码 代码如下: Execute("Class clsAbc"&vbCrLf&"Public Function output&q

  • 解决ASP.NET Core中使用漏桶算法限流的问题

    解决ASP.NET Core中使用漏桶算法限流的问题

    目录 算法原理 算法实现 进程内即内存漏桶算法 基于Redis的漏桶算法 应用算法 1.安装Nuget包 2.使用中间件 漏桶算法是限流的四大主流算法之一,其应用场景各种资料中介绍的不多,一般都是说应用在网络流量控制中.这里举两个例子: 1.目前家庭上网都会限制一个固定的带宽,比如100M.200M等,一栋楼有很多的用户,那么运营商怎么保证某些用户没有使用过多的带宽,从而影响到别人呢?这时就可以使用漏桶算法,限制每个用户访问网络的最大带宽,当然实际会比这复杂很多. 2.有一个祖传接口,当时写的时

  • asp中在JScript中使用RecordSet对象的GetRows

    写ASP程序时,一般情况总是使用的VBScript,不过也不只是这一种选择,也可以用JScript.但在用JScript作为ASP的语言时,比用VBScript有一些小小的不方便,比如RecordSet的GetRows方法. 在ASP中操作数据库,一般都要用到RecordSet对象,如果注重程序效率的话,可能就会用到RecordSet对象的GetRows方法,把记录集对象转换成数组,而操作数组在速度上将比用RecordSet对象的MoveNext方法快很多,而且可以在取出数组后尽早释放Recor

  • ASP中解决“对象关闭时,不允许操作。”的诡异问题……

    在ASP中进行数据库操作时 复制代码 代码如下: rs.Open strsql,conn,1,3 while not rs.eof //对象关闭时,不允许操作. 找了好久,最后在strsql中发现问题所在-- 原因是: 这个strsql = "exec ***",用的是存储过程,而这个***存储过程中的最后加了一句"print @sql",导致这个问题,注释掉就OK了--

  • 解决ASP中http状态跳转返回错误页的问题

    IIS默认的错误页是很不友好的,很多人看到默认的错误页时都会说:网站打不开了!白白损失了这部分流量.而如果错误页直接跳转到首页又对搜索引擎很不友好,搞不好首页还会被封掉.所以根据情况,有两个方法解决这个问题: 如果是博客等内容型的网站,可以返回一个带有404错误的搜索框让访客搜索,若是电子商务型网站,则可以返回一个带有404错误的进度条进行跳转.这两种方法即照顾了访客又顾及到了SEO. 可以在Google webmaster tools中查看自己网站错误页有多少. 修改默认错误页的方法很简单:在

  • ASP中Split分割字符串函数的实例用法

    ASP中Split函数的用法 分割截取字符串看几个例子就能理解了 复制代码 代码如下: mystr="1,2,3,4,5" mystr=split(mystr,",") for i=0 to ubound(mystr) response.write mystr(i) next  '返回值为123456 mystr="xlei.net/http/student/x/index.asp" mystr=split(mystr,"/http/s

  • asp中设置session过期时间方法总结

    如果程序中没有设置session的过期时间,那么session过期时间就会按照IIS设置的过期时间来执行,IIS中session默认过期时间为20分钟,IIS中session时间可以更改 时间设置要放在前面 例如 复制代码 代码如下: Session.Timeout=30 'SEESION有效时间为30分钟 Session("ID")=Rs("id") Session("Name")=Rs("Name") Session(&q

随机推荐