<!--#include File="clsDay.asp"-- <% Dim objChinaDay Dim sDay, sWeekDay, sChinaDay, sChinaYear,sChinaAni Set objChinaDay = New ChinaDay Call objChinaDay.Action("",sDay,sWeekDay,sChinaYear,sChinaDay,sChinaAni) Set objChinaDay = Nothing 'Response.Write sDay&"<BR" 'Response.Write sWeekDay&"...