ASP日期函数运用—生成简单的日历

时间：2021-05-02

导读：使用ASP做个日历很简单，下面直接给出代码，复制后拷贝到一个单独的记事本中，另存为.asp文件，配置好相应的环境就可以了，虽然简单但挺实用啊。

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head><meta http-equiv="Content-Type" content="text/html; charset=gb2312" /><title>简单的日历</title><style type="text/css">body{font-size:12px;}table{text-align:center;}#curr{background-color:#CC99CC;}</style></head>

<body><%dim lines,currY,currD,firDate,firWeek,maxDay,dayssub cal(dateStr)if dateStr="" thendateStr=date()end ifcurrY=year(dateStr)currM=month(dateStr)currD=day(dateStr)firDate=currY&"-"&currM&"-1"firWeek=weekDay(firDate)maxDay=day(dateSerial(y,m+1,0))days=maxDay+firWeek-1if days mod 7 = 0 thenlines=int(days/7)-1elselines=fix(days/7)end ifend sub'这样就生成2008年8月的日历'ds="2008-8-8"'call cal(ds)call cal("")%><table border="0" cellspacing="0" cellpadding="0"> <tr> <td width="25" height="25">日</td> <td width="25" height="25">一</td> <td width="25" height="25">二</td> <td width="25" height="25">三</td> <td width="25" height="25">四</td> <td width="25" height="25">五</td> <td width="25" height="25">六</td> </tr> <%for i=0 to lines%> <tr> <%for j=1 to 7square=7*i+j-firWeek+1if square<1 or square>maxDay thenresponse.Write("<td width='25' height='25'> </td>")elseif square=currD thenresponse.Write("<td width='25' height='25' id='curr'>"&square&"</td>")elseresponse.Write("<td width='25' height='25'>"&square&"</td>")end ifnext%> </tr> <%next%></table></body></html>

演示效果如下所示：

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章