先把该控件注册到系统上，具体：先把Calendar.ocx放在C:\WINDOWS\system32目录里面，然后在命令提示符窗口输入Regsvr32 Calendar.ocx后回车（要求系统里有Regsvr32.exe可执行文件，不过一般都有的）提示注册成功后把下面的脚本复制到一个记事本上，然后把该记事本该名为“xxx.html”双击运行即可看到一个日历控件（如下图），如果被防火墙阻拦，右击允许即可。
取消注册：在命令提示符里面输入Regsvr32 /U Calendar.ocx后回车，提示取消注册之后即可在C:\WINDOWS\system32目录里面删除Calendar.ocx。
Quote:
<HTML>
<BODY>
<OBJECT
CLASSID="CLSID:ED780D6B-CC9F-11D2-9282-00C04F8ECF0C"
WIDTH=400
HEIGHT=300
ID="Calendar"
>
<PARAM NAME="BackColor" VALUE=12632256>
</OBJECT>
</BODY>
<SCRIPT LANGUAGE=VBScript>
Sub Calendar_NewDay(day)
dt=Calendar.GetDate
yr=DatePart("yyyy",dt)
mon=DatePart("m",dt)
MsgBox(CStr(mon)+"/"+CStr(day)+"/"+CStr(yr))
End Sub
</SCRIPT>
</HTML>
