求日历程序asp

[tutuaction]

我要做一个日历，可以动态的显示时间和当前的月份、年份
可以动态修改月份、年份（输入参数为年和输出参数为月）
显示一个月历表格

[jjkcom]

dim nDex, nMonth, nYear, dtDate
dim iPlan
' 获取当前日期
dtDate = Now()
' 设置月份和年份
if len(Request.form("nMonth"))>=1 then
nMonth = Request.form("nMonth")
nYear = Request.form("nYear")
else
nMonth = Request.QueryString("nMonth")
nYear = Request.QueryString("nYear")
end if
if nMonth = "" then nMonth = Month(dtDate)
if nYear = "" then nYear = Year(dtDate)

' 将日期设置为当前月份的第一天
dtDate = DateSerial(nYear, nMonth, 1)
<%
'对下面的变量要定义一下
' 添加空单元格，直至到达正确日期为止
for nDex = 1 to Weekday(dtDate) - 1
Response.Write "<td bgcolor=""#c0c0c0""> </td>"
next

do
'Response.Write "<td valign=""top"">" & Day(dtDate)
if cint(day(date()))=cint(Day(dtDate)) then
Response.Write "<td valign=""top"" bgcolor=#AAFADA>"
else
Response.Write "<td valign=""top"">"
end if
Response.Write "<a href=AddPlan.asp?sDate="& nYear& "-"& nMonth &"-"& Day(dtDate) & " title='Add or Modify the plan'>"& Day(dtDate) & "</a>"
Response.Write "</td>"

if WeekDay(dtDate) = 7 then
Response.Write "</tr>" & vbCrLf & "<tr bgcolor=""#ffffc0"">"
end if
dtDate = DateAdd("d", 1, dtDate)
loop until (Month(dtDate) <> CInt(nMonth))

' 如果需要添加空白单元格填充剩余的月份
if Weekday(dtDate) <> 1 then
for nDex = Weekday(dtDate) to 7
Response.Write "<td bgcolor=""#C0C0C0""> </td>"
next
end if

[tutuaction]

这么长呀？我先试试，如果可以，马上给分
另外我还有一个相关问题，等一会儿另开帖

[tutuaction]

非常感谢，成功了