<html>
<title>Current Month Calendar</title>
<body bgcolor="#FFFFFF">
<%
dim current_date, first_day, this_date
dim counter,days, weeks, current_year
'创建数组来显示月份名称
dim month_name(12)
month_name(1)="January "
month_name(2)="February "
month_name(3)="March "
month_name(4)="April "
month_name(5)="May "
month_name(6)="June "
month_name(7)="July "
month_name(8)="August "
month_name(9)="September "
month_name(10)="October "
month_name(11)="November "
month_name(12)="December "
'创建当前日期的变量
current_date=date()
'创建来自当前日期年份变量
current_year=year(current_date)
'创建来自当前日期年份变量
this_date=day(current_date)
'创建来自当前日期年份变量
month_number=month(current_date)
'创建当前日期的首日变量
first_day=weekday(dateSerial(current_year,month_number,01))
'创建当前月份的长度变量
select case month_number
'有31天的一个月被设置最终日期
case "1","3","5","7","8","10","12"
last_day=31
'通过适用闰年规则把二月设置成最终日期
‘如果年份不能看见
case "2"
last_day=28
right_year_divided=current_year/4
if right_year_divided = cint(right_year_divided) then
last_day=29
end if
if right(current_year,2)="00" then
right_year_divided=current_year/400
if right_year_divided = cint(right_year_divided) then
last_day=29
end if ' end check of year values
end if ' end check for new century
'所有剩下的月份都有30天
case else
last_day=30
end select ' end selct of month
%><html>
<body bgcolor="#FFFFFF">
<table border=1 align=center>
<caption><b><%= month_name(month_number) & current_year %></b></caption>
<tr><th>S</th><th>M</th><th>T</th><th>W</th>
<th>Th</th><th>F</th><th>Sa</th></tr>
<tr>
<%
'循环每个月的第一周
for counter = 1 to 7 %>
<td><%
'检查看看第一个月是哪一天
if counter > first_day-1 then
'计算天数
days=days+1
‘检查看看当前日期是否在第一周
‘然后设置成黑体
if days=this_date then
response.write "<b>" & days & "</b>"
else
response.write days
end if ' End check for current date
end if ' End check for first day of the week
%></td><%
next %>
</tr>
<%
'一个月的剩下的周数循环
for weeks = 1 to 5 %>
<tr>
<%
'一个月的剩下的天数的循环
for counter = 1 to 7
'计算出时间
days=days+1
'写出日期，如果是当前日期的话就设置成黑体
if days <= last_day then
%><td><%
if days=this_date then
response.write "<b>" & days & "</b>"
else
response.write days
end if ' End check for current date
%></td>
<% end if ' End check for end of month
next %>
</tr><%
next %>
</table>
</body>
</html>
热门信息
阅读 (198)
1 独特的随机字母阅读 (172)
2 检查和设置IIS服务器正确的权限阅读 (164)
3 ASP-对象阅读 (164)
4 asp网站伪静态化URL Rewrite中的httpd.ini伪静态化规则编写方法阅读 (163)
5 asp取access数据库里本周、本月、本季度的记录~