下载http://superdullwolf.cnzone.net/calendar.ocx
到system32下
运行regsvr32  calendar.ocx

使用例子：
 <%
 Dim Calendar
 set Calendar=server.CreateObject("农历控件.Calendar")
 Calendar.DateNow=date()
 Response.Write " 农历: " & Calendar.ChineseGanZhi & "（" & Calendar.ChineseAnimal & "）" & Calendar.ChineseDate & " " & Calendar.ChineseSolarTerm
%>

如果出现80070005错误，请在该文件上点右键，在安全权限里面，添加IUSR_服务器机器名账号。
这是因为NTFS格式硬盘默认对internet用户禁止读取。

运行结果：

农历: 乙酉年（鸡）正月十二
支持 1920 到 2019 年间 100 年的阳历转换

注：本ocx适用于.net和vb及其他任何可以调用ocx的程序。
已经经过c#和vb,asp测试。
版权非本人，是在电脑报合订本一个vb的例子里面找到的，经过在asp环境的试验发现很爽！

收藏评点：造福人类的事情，理应推广！