小问题

[jinqiangkejiao]

请大家帮我看看这段代码有什么问题
<%
dim mMonth,mYear,,mDate
mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
%>
<div align="center" style="background-color:#009933; color:#FFFFFF ">
<strong><%=mYear%>年<%=mMonth%>月</strong></div>
<%
Function CountDays(iMonth,iYear)
Select Case imonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/"&iYear) Then
CountDays=29
else
CountDays=28
End if
case 4,6,9,11
CountDays=30
End Select
End Function
Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth&"/1/"&iYear)
End Function
%>
<table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33">
<tr bgcolor="#CCFF00">
<td align="right">星期日</td>
<td align="right">星期一</td>
<td align="right">星期二</td>
<td align="right">星期三</td>
<td align="right">星期四</td>
<td align="right">星期五</td>
<td align="right">星期六</td>
</tr>
<tr bgcolor="#FFFFFF">
<%
j=1
for i=1 to 42
if i>=FirstDay(mMonth,mYear) and j<=CountDays(mMonth,mYear) then
if mDate=j then
response.write "<td align="right" bgcolor="#CC9933"><strong>
<font color="RED""&j&"</font></strong>"
else
response.write"<td align="right" bgcolor="#FFFFFF">"&j
end if
j=j+1
else
response.write"<td align="right" bgcolor="#FFFFFF">"&" "
end if
response.write"</td>"
if i mod 7=0 then
response.write"</tr><tr>"
end if
nest
%>
</tr></table>
</tr>

[hookee]

<% 
dim mMonth,mYear,mDate 
mMonth=Month(Date()) 
mYear=Year(Date()) 
mDate=Day(Date()) 
%> 
<div align="center"  style="background-color:#009933; color:#FFFFFF "> 
<strong> <%=mYear%>年 <%=mMonth%>月 </strong> </div> 
<%
Function CountDays(iMonth,iYear)
	CountDays = DateDiff("d", CDate(iYear & "-" & iMonth & "-1"),CDate(iYear & "-" & (iMonth+1) & "-1"))
End Function 

Function FirstDay(iMonth,iYear) 
   FirstDay=WeekDay(iMonth & "/1/" & iYear) 
End Function 
%> 
    <table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33"> 
    <tr bgcolor="#CCFF00"> 
    <td align="right">星期日 </td> 
    <td align="right">星期一 </td> 
    <td align="right">星期二 </td> 
    <td align="right">星期三 </td> 
    <td align="right">星期四 </td> 
    <td align="right">星期五 </td> 
    <td align="right">星期六 </td> 
    </tr> 
<% 
   j=1 
   for i=1 to 42
     if i mod 7 = 1 then response.write "<tr bgcolor=""#FFFFFF"">" 
     if i>=FirstDay(mMonth,mYear) and j <=CountDays(mMonth,mYear)  then 
         if mDate=j then 
             response.write " <td align=""right"" bgcolor=""#CC9933""> <strong><font color=""RED""" & j & " </font></strong>" 
         else
             response.write" <td align=""right"" bgcolor=""#FFFFFF"">" & j 
         end if 
         j=j+1
     else
         response.write" <td align=""right"" bgcolor=""#FFFFFF"">"&" " 
     end if
     response.write" </td>" 
     if i mod 7 = 0 then 
         response.write "</tr>" 
     end if 
   next
%> 
</table> 

[Dogfish]

<%
dim mMonth,mYear,,mDate

dim mMonth,mYear,mDate

mMonth=Month(Date())
mYear=Year(Date())
mDate=Day(Date())
%>
<div align="center" style="background-color:#009933; color:#FFFFFF ">
<strong> <%=mYear%>年 <%=mMonth%>月 </strong> </div>
<%
Function CountDays(iMonth,iYear)
Select Case imonth
case 1,3,5,7,8,10,12
CountDays=31
case 2
if IsDate("2/29/"&iYear) Then
CountDays=29
else
CountDays=28
End if
case 4,6,9,11
CountDays=30
End Select
End Function
Function FirstDay(iMonth,iYear)
FirstDay=WeekDay(iMonth&"/1/"&iYear)
End Function
%>
<table width="90%", border="0" align="center" cellpadding="1" cellspacing="2" bgcolor="#00CC33">
<tr bgcolor="#CCFF00">
<td align="right">星期日 </td>
<td align="right">星期一 </td>
<td align="right">星期二 </td>
<td align="right">星期三 </td>
<td align="right">星期四 </td>
<td align="right">星期五 </td>
<td align="right">星期六 </td>
</tr>
<tr bgcolor="#FFFFFF">
<%
j=1
for i=1 to 42
if i>=FirstDay(mMonth,mYear) and j <=CountDays(mMonth,mYear) then
if mDate=j then
response.write " <td align="right" bgcolor="#CC9933"> <strong><font color="RED""&j&" </font> /strong>"

response.write "<td align=right bgcolor=#CC9933> <strong><font color=RED" & j & "</font></strong>"

else
response.write" <td align="right" bgcolor="#FFFFFF">"&j

    response.write "<td align=right bgcolor=#FFFFFF>" & j
  

end if
j=j+1
else
response.write" <td align="right" bgcolor="#FFFFFF">"&" "

    response.write "<td align=right bgcolor=#FFFFFF>" & " "
  

end if
response.write" </td>"
if i mod 7=0 then
response.write" </tr> <tr>"
end if
nest

    next
  

%>
</tr> </table>

[jinqiangkejiao]

怎么按照你们的代码依然不能显示日期。