再送大家一个礼物！！

A VBS CLASS calendar
calendar.vbs
<%
'*************************************************************************************************
'VBScript 日历 组件
'
'赋值：
'    Mnth       日历月份
'    Yr       日历年份
'    FontSize        字体大小
'    Columns       月份显示列数
'    FontFace        字体样式    
'    FontColour        字体颜色
'    FillColour        星期背景颜色
'    BorderColour        边框颜色
'    BackgroundColour    日历背景颜色
'    FullYearLink        全年月份连接
'
'取值：
'    MonthCal        月份表格
'    YearCal       年份表格
'方法：
'    LoadMonthArray        私有方法
'*************************************************************************************************
%>
<Script LANGUAGE=JavaScript>
//定义整个年份查看连接函数
function showyearcal(link, year) {
if (link.indexOf('?') > 0)
    link = link + '&year=' + year
else
    link = link + '?year=' + year
calwin=window.open( link, 'calwin', 'toolbar=yes, scrollbars=yes, status=yes, width=680, height=480' )
if (typeof(calwin.focus) != "undefined") {