ASP实现的日历代码实例程序

作者：Eve Cole 更新时间：2025-04-24 01:16:01

推荐：ASP基础教程之实例学习ASP Response 对象
ASP Response 对象用于从服务器向用户发送输出的结果。实例使用ASP写文本本例演示如何使用ASP来写文本。以下为引用的内容：<html><

以下为引用的内容：

<style>

td { font-family: 宋体; font-size:9pt}

</style>

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

'先判断是否指定了一个年份和月份，没有则根据当前的年和月份显示

If Request(ReqDate)= then

CurrentDate=Date

else

CurrentDate=Trim(Request(ReqDate))

end if

pyear=year(CurrentDate)

pmonth=month(CurrentDate)

'以下的代码生成日历显示的表格头内容

</td>

<%=pyear%>年<%=pmonth%>月

</td>

<input type=button value=>> onclick=JavaScript:location.href='?ReqDate=<%=DateAdd(m,1,CurrentDate)%>'>

</td>

</tr>

</tr>

'由于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>

分享：ASP 3.0高级编程(四十三)
9.3.5 数据高速缓存首先需要注意的是，数据高速缓存与记录集高速缓存虽然都用于改善性能，但两者是无关的。数据高速缓存是临时的数据存储区，允许使用高速缓存中的数据，而不是重新生成新的数