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

阅览次数:
文章来源: CP整理
原文作者: 星期零
整理日期: 2006-11-27
发表评论

字体大小:
小
中
大

运行效果：

代码如下，直接以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();"><</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();">></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>
                  １，点击“ < ”为上月，“ > ”为下月；<br>
                  <br>
                  ２，红色为显示的日期，字体变大为是今天；<br>
                  <br>
                  ３，有相关内容的日期显示为蓝色；</td>
              </tr>
            </table></td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
</body>
</html>

上一篇:比AcdSee功能还强大的图片处理、编辑软件，推荐下载！
下一篇:ASP上传漏洞防范

推荐文章

热点文章

相关文章

百度搜索

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

网友评论: