ASP 显示农历代码 2008 年 12 月 28 日 星期日 14:50 <% Function nl() '获取当前系统时间 curTime = Now() Dim WeekName(7), MonthAdd(11), NongliData(99), TianGan(9), DiZhi(11), ShuXiang(11), DayName(30), MonName(12) '星期名 WeekName(0) = " * " WeekName(1) = "星期日" WeekName(2) = "星期一" WeekName(3) = "星期二" WeekName(4) = "星期三" WeekName(5) = "星期四" WeekName(6) = "星期五" WeekName(7) = "星期六" '天干名称 TianGan(0) = "甲 " TianGan(1) = "乙 " TianGan(2) = "丙 " TianGan(3) = "丁 " TianGan(4) = "戊 " TianGan(5) = "己 " TianGan(6) = "庚 " TianGan(7) = "辛 " TianGan(8) = "壬 " TianGan(9) = "癸 " '地支名称 DiZhi(0) = "子 " DiZhi(1) = "丑 " DiZhi(2) = "寅 " DiZhi(3) = "卯 " DiZhi(4) = "辰 " DiZhi(5) = "巳 " DiZhi(6) = "午 " DiZhi(7) = "未 " DiZhi(8) = "申 " DiZhi(9) = "酉 " DiZhi(10) = "戌 " DiZhi(11) = "亥 " '属相名称 ShuXiang(0) = "鼠 " ShuXiang(1) = "牛 " ShuXiang(2) = "虎 " ShuXiang(3) = "兔 " ShuXiang(4) = "龙 " ShuXiang(5) = "蛇 " ShuXiang(6) = "马 " ShuXiang(7) = "羊 " ShuXiang(8) = "猴 " ShuXiang(9) = "鸡 " ShuXiang(10) = "狗 " ShuXiang(11) = "猪 " '农历日期名 DayName(0) = "*" DayName(1) = "初一" DayName(2) = "初二" DayName(3) = "初三" DayName(4) = "初四" DayName(5) = "初五" DayName(6) = "初六" DayName(7) = "初七" DayName(8) = "初八" DayName(9) = "初九" DayName(10) = "初十" DayName(11) = "十一" DayName(12) = "十二" DayName(13) = "十三" DayName(14) = "十四" DayName(15) = "十五" DayName(16) = "十六" DayName(17) = "十七" DayName(18) = "十八" DayName(19) = "十九" DayName(20) = "二十" DayName(21) = "廿一" DayName(22) = "廿二" DayName(23) = "廿三" DayName(24) = "廿四" DayName(25) = "廿五" DayName(26) = "廿六" DayName(27) = "...
