星期零

技术改变生活，分享让我们快乐！
随笔 - 159, 文章 - 0, 评论 - 234, 阅读 - 44万
  博客园  :: 首页  :: 新随笔  :: 联系 :: 订阅 订阅  :: 管理

ASP实现的日历，可以根据需要在日期上添加任何的操作

Posted on   weekzero  阅读(2160)  评论(0)  编辑  收藏  举报
运行效果：

代码如下，直接以asp文件运行。
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
<style>
td
{
    font-size:12px;
}
A:visited
{
    COLOR: #000000;
    TEXT-DECORATION: none
}
</style>
</head>
<body topmargin="0" leftmargin="0">
<table width="100%" height="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td valign="top">
        <table width="98%"  border="0" cellpadding="0" cellspacing="0">            
          <tr>
            <td valign="top" align="center">
            <br>
            <br>
            <form name="form1" method="post" action="">             
            <table width="260" cellspacing="2" bgcolor="#F3F8F7">
            <%
                if request.Form("hiddendate")="" then
                    tdate=date()
                else
                    if request.Form("hiddenflag")="1" then
                        tdate=DateAdd("m",-1,cdate(request.Form("hiddendate")))
                    elseif request.Form("hiddenflag")="2" then
                        tdate=DateAdd("m",1,cdate(request.Form("hiddendate")))
                    end if                    
                end if
            %>            
            <tr height="25">
              <td align="center"><b><a href="#" onClick="form1.hiddenflag.value=1;form1.submit();">&lt;</a></b></td>
              <td colspan="3" align="center"><%=tdate%></td>
              <td colspan="2" align="center"><a href="#" onClick="form1.hiddendate.value='';form1.submit();">今天</a></td>
              <td align="center"><b><a href="#" onClick="form1.hiddenflag.value=2;form1.submit();">&gt;</a></b></td>
            </tr>
            <tr bgcolor="#CCCCCC" height="25">
                <td align="center">日</td>
                <td align="center">一</td>
                <td align="center">二</td>
                <td align="center">三</td>
                <td align="center">四</td>
                <td align="center">五</td>
                <td align="center">六</td>
            </tr>
            <%
                flag=0
                td=cdate(year(tdate)&"-"&month(tdate)&"-1")    '''日期，从本月的第一天开始，随程序中的循环增加
                tdmonth=month(tdate)    '''存放这个时间的月份，用来判断日期与这个不一样时跳出for循环
                tflag=0                    '''跳出第１个for循环后，标识跳出第２个for循环
                a=""                    '''存放生成的html代码
                
                for i=1 to 6                    
                    a=a&"<tr height=25>"
                    for j=1 to 7
                        if cint(Weekday(td))=j then
                            if flag=0 then
                                flag=1
                            end if
                        end if
                        
                        if flag=1 then                            
                            if td=date() then
                                tian="<font color=red style='font-size:14pt'><b>"&day(td)&"</b></font>"
                            elseif td=tdate then
                                tian="<font color=red>"&day(td)&"</font>"
                            else
                                tian=day(td)
                            end if
                            '''''''''''''''''判断是否有相关内容'''''''''''''''''''''''''''''
                            'sql="select * from yuyuemng where wzyuyuedate=cast('"&td&"' as datetime)"
                            'set rs=server.CreateObject("adodb.recordset")
                            'rs.Open sql,conn,1,1
                            'if not rs.eof then
                            '    tian="<font color=#3333CC>"&tian&"</font>"
                            'end if
                            'rs.close
                            'set rs=nothing
                            ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
                            a=a&"<td align=center bgcolor=#CCCCCC><a href=http://weekzero.cnblogs.com>"&tian&"</a></td>"
                            td=td+1            
                        else
                            a=a&"<td></td>"
                        end if            
                        if month(td)<>tdmonth then
                             tflag=1
                             exit for    
                        end if
                    next
                    a=a&"</tr>"
                    if tflag=1 then exit for    
                next            
            %>
            <%=a%>
            </table> 
            <br>
            <span style="color: #FF3333">提示：请点击日期进入</span>            
            <input type="hidden" name="hiddendate" value="<%=tdate%>">
            <input type="hidden" name="hiddenflag">
            </form></td>
          </tr>
          <tr>
            <td align="center"><table width="260"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td>使用说明：<br>
                  <br>
                  １，点击“ &lt; ”为上月，“ &gt; ”为下月；<br>
                  <br>
                  ２，红色为显示的日期，字体变大为是今天；<br>
                  <br>
                  ３，有相关内容的日期显示为蓝色；</td>
              </tr>
            </table></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
</body>
</html>
编辑推荐：
· AI与.NET技术实操系列：基于图像分类模型对图像进行分类
· go语言实现终端里的倒计时
· 如何编写易于单元测试的代码
· 10年+ .NET Coder 心语，封装的思维：从隐藏、稳定开始理解其本质意义
· .NET Core 中如何实现缓存的预热？
阅读排行：
· 分享一个免费、快速、无限量使用的满血 DeepSeek R1 模型，支持深度思考和联网搜索！
· 基于 Docker 搭建 FRP 内网穿透开源项目（很简单哒）
· ollama系列01：轻松3步本地部署deepseek，普通电脑可用
· 25岁的心里话
· 按钮权限的设计及实现
点击右上角即可分享
微信分享提示
AI IDE Trae