将以下文件保存为 calender.asp，调用时 用<include file="calender.asp">

<%
'原创:Jaron,转载请说明出处
Dim m_minyear
Dim m_maxyear
Dim NongLiDayName
Dim NongLiMonthName
m_minyear= 1950
m_maxyear= 2050
Dim CalendarData(99,2)
NongLiDayName= Array("初一","初二","初三","初四","初五","初六","初七","初八","初九","初十","十一","十二","十三","十四","十五","十六","十七","十八","十九","廿","廿一","廿二","廿三","廿四","廿五","廿六","廿七","廿八","廿九","三十")
NongLiMonthName = Array("正","二","三","四","五","六","七","八","九","十","十一","十二")
CalendarData(0,0)=&H2f
CalendarData(0,1)=&H6c
CalendarData(0,2)=&Ha0
CalendarData(1,0)=&H24
CalendarData(1,1)=&Hb5
CalendarData(1,2)=&H50
CalendarData(2,0)=&Hda
CalendarData(2,1)=&H53
CalendarData(2,2)=&H55
CalendarData(3,0)=&H2c
CalendarData(3,1)=&H4d
CalendarData(3,2)=&Ha0
CalendarData(4,0)=&H21
CalendarData(4,1)=&Ha5
CalendarData(4,2)=&Hb0
CalendarData(5,0)=&H57
CalendarData(5,1)=&H45
CalendarData(5,2)=&H73
CalendarData(6,0)=&Haa
CalendarData(6,1)=&H52
CalendarData(6,2)=&Hb0
CalendarData(7,0)=&H1e
CalendarData(7,1)=&Ha9
CalendarData(7,2)=&Ha8
CalendarData(8,0)=&H30
CalendarData(8,1)=&He9
CalendarData(8,2)=&H50
CalendarData(9,0)=&H26
CalendarData(9,1)=&H6a
CalendarData(9,2)=&Ha0
CalendarData(10,0)=&H9b
CalendarData(10,1)=&Hae
CalendarData(10,2)=&Ha6
CalendarData(11,0)=&H2d
CalendarData(11,1)=&Hab
CalendarData(11,2)=&H50
CalendarData(12,0)=&H23
CalendarData(12,1)=&H4b
CalendarData(12,2)=&H60
CalendarData(13,0)=&H18
CalendarData(13,1)=&Haa
CalendarData(13,2)=&He4
CalendarData(14,0)=&Hab
CalendarData(14,1)=&Ha5
CalendarData(14,2)=&H70
CalendarData(15,0)=&H20
CalendarData(15,1)=&H52
CalendarData(15,2)=&H60
CalendarData(16,0)=&H14
CalendarData(16,1)=&Hf2
CalendarData(16,2)=&H63
CalendarData(17,0)=&H27
CalendarData(17,1)=&Hd9
CalendarData(17,2)=&H50
CalendarData(18,0)=&H9d
CalendarData(18,1)=&H5b
CalendarData(18,2)=&H57
CalendarData(19,0)=&H2f
CalendarData(19,1)=&H56
CalendarData(19,2)=&Ha0
CalendarData(20,0)=&H24
CalendarData(20,1)=&H96
CalendarData(20,2)=&Hd0
CalendarData(21,0)=&H1a
CalendarData(21,1)=&H4d
CalendarData(21,2)=&Hd5
CalendarData(22,0)=&Had
CalendarData(22,1)=&H4a
CalendarData(22,2)=&Hd0
CalendarData(23,0)=&H21
CalendarData(23,1)=&Ha4
CalendarData(23,2)=&Hd0
CalendarData(24,0)=&H16
CalendarData(24,1)=&Hd4
CalendarData(24,2)=&Hd4
CalendarData(25,0)=&H29
CalendarData(25,1)=&Hd2
CalendarData(25,2)=&H50
CalendarData(26,0)=&H9e
CalendarData(26,1)=&Hd5
CalendarData(26,2)=&H58
CalendarData(27,0)=&H30
CalendarData(27,1)=&Hb5
CalendarData(27,2)=&H40
CalendarData(28,0)=&H25
CalendarData(28,1)=&Hb6
CalendarData(28,2)=&Ha0
CalendarData(29,0)=&H5b
CalendarData(29,1)=&H95
CalendarData(29,2)=&Ha6
CalendarData(30,0)=&Hae
CalendarData(30,1)=&H95
CalendarData(30,2)=&Hb0
CalendarData(31,0)=&H23
CalendarData(31,1)=&H49
CalendarData(31,2)=&Hb0
CalendarData(32,0)=&H18
CalendarData(32,1)=&Ha9
CalendarData(32,2)=&H74
CalendarData(33,0)=&H2b
CalendarData(33,1)=&Ha4
CalendarData(33,2)=&Hb0
CalendarData(34,0)=&Ha0
CalendarData(34,1)=&Hb2
CalendarData(34,2)=&H7a
CalendarData(35,0)=&H32
CalendarData(35,1)=&H6a
CalendarData(35,2)=&H50
CalendarData(36,0)=&H27
CalendarData(36,1)=&H6d<