再送大家一个礼物!!
A VBS CLASS calendarcalendar.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") {
补充:asp教程,客户端相关打印