这个就是:
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<script language="VBScript">
'xday 是一个灵活的变量，他表示日期中，月份开始时到1号所空的天数
dim currentdate,currentday,currentyear,currentmonth,xday
'下面的过程得到与当日有关的日期信息
sub dayinfo()
'date_info变量从日期函数date()处得到一个标准的日期型变量，包涵了当日的所有信息
date_info=date()
'利用day()函数从日期中解析出是几号
currentdate=day(date_info)
currentday=weekday(date_info)-1
currentday=month(date_info)
currentday=year(date_info)
'tempday表示当日号数模7后的值
tempday=currentday mod 7
'下面的表达式是一个经验公式，可以得到上面说的xday值
xday=(currentday+7-tempday) mod 7 + 1
end sub
'下面的过程打印整个日历
sub displaycalender
'定义数组，数组的值表示每月的天数，从0开始到11结束，表示的月加1
dim alldays(11)
alldays(0)=31
alldays(1)=28
alldays(2)=31
alldays(3)=30
alldays(4)=31
alldays(5)=30
alldays(6)=31
alldays(7)=31
alldays(8)=30
alldays(9)=31
alldays(10)=30
alldays(11)=31
'定义数组，表示星期几的英文缩写，0-6，0表示星期日
dim weekdayname(6)
weekdayname(0)="Sun"
weekdayname(1)="Mon"
weekdayname(2)="Tue"
weekdayname(3)="Wed"
weekdayname(4)="Thu"
weekdayname(5)="Fri"
weekdayname(6)="Sat"
'定义数组，数组的值表示每个月的名称，0-11，表示的月份加1
dim monthname(11)
monthname(0)="January"
monthname(1)="February"
monthname(2)="Marc"
monthname(3)="April"
monthname(4)="May"
monthname(5)="June"
monthname(6)="July"
monthname(7)="August"
monthname(8)="September"
monthname(9)="October"
monthname(10)="November"
monthname(11)="December"
'调用过程dayinfo,得到日期信息，存放于公共变量中
call dayinfo
'测试闰年
if(currentyear mod 4=0)then alldays(1)=alldays(1)+1
'测试季节，根据不同的季节决定不同的背景图案
if(currentmonth<=2 and currentmonth>=11)then
filename="冬.gif"
else
if(currentmonth<=5)then
filename="春.gif"
else
if(currentmonth<=8)then
filename="夏.gif"
else
filename="秋.gif"
end if
end if
end if
'利用writeln函数向浏览器窗口的文档写html代码
document.writeln("<html>")
document.writeln("<head>")
document.writeln("<title>四季日历</title>")
document.writeln("</head>")
document.writeln("<body>")
'再写形成日历的表格，为了看清楚，在样式信息中定义了大字体
document.writeln("<table border=0 style='background-image:url("&filename&");font-size:32pt;text-align:center'>")
'书写表格的标题，此标题由当前年份和月份决定document.writeln("<tr>")
document.writeln("<caption style='font-family:"&"comic sans ms"&";color:blue'>")
document.writeln(currentyear&monthname(currentmonth))
document.writeln("</caption>")
'书写表头，表头是星期几的英文名称
document.writeln("<tr>")
for i=0 to 6
document.writeln("<th style='color:red'>"&weekdayname(i)&"</th>")
next
document.writeln("</tr>")
'书写表体，循环变量为i，循环次数为当天数加上xday的天数
for i=o to alldays(currentmonth)+xday
'如果写满了一周就换行
if(i mod 7=1)then document.writeln("<tr>")
if(i<=xday)then
document.writeln("<td></td>")
'否则写入正确日期
else
'如果循环到当日，采用另一种特殊的样式表示
if(i=currentdate+xday)then
document.writeln("<td style='color:lime'>"&(i-xday)&"</td>")
else
document.writeln("<td>"&(i-xday)&"</td>")
end if
end if
'写满一周换行
if(i mod 7=0)then document.writeln("</tr>")
next
'书写表尾和文档尾部
document.writeln("</tr>")
document.writeln("</table>")
document.writeln("</body>")
document.writeln("</html>")
end sub
call displaycalender
</script>
</body>
</html>
您所在位置：
faruto
[专家分：0] 发布于 2007-05-03 23:41:00 