怎样用VBScript实现这个简单的日历？（有效果图）

<%
date_time=trim(request("date_time"))
if date_time="" then date_time=date()
if isdate(date_time)=false then
response.write date_time&"为非法日期格式！！"
response.end
end if
'显示日历开始
r_year=year(date_time)
r_month=month(date_time)
r_day=day(date_time)
response.write "

"
response.write ""
ii=weekday(cdate(r_year&"-"&r_month&"-1"))
i=1
today=1
do while today<=31
if i response.write ""
i=i+1
else
if isdate(r_year&"-"&r_month&"-"&today) then
if today=r_day then
response.write ""
else
response.write ""
end if
end if
if i mod 7=0 then response.write ""
i=i+1
today=today+1
end if
loop
response.write "

<--  "&formatdatetime(date_time,1)&"  -->
日	一	二	三	四	五	六
	"&today&"	"&today&"

"
'显示日历结束
%>