ASP实现的日历，可以根据需要在日期上添加任何的操作
运行效果：
代码如下，直接以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>
暂无评论
发表评论