求助：下面的程序无法正常运行，do……loop中

<body>
<div align="center">
<p>
<script language="vbscript">
document.write  year(date())&"年"&month(date())
</script>
月&nbsp;<font size="6" >月历</font></p>
<table border="1" width="512">
<script  language="vbscript">
document.write("<tr>")
for i=1 to 7 
  document.write "<th width='67' height='38'>星期" 
  document.write mid("日一二三四五六",i,1)&"</th>"
next
 doctment.write "</tr>"
 tday=day(date())
 tweekday=weekday(date())
 tweekday=((tweekday-tday) mod 7+7) mod 7+1
 t=0:i=1
 do
 document.write "<tr align='center'>" 
 for j=1 to 7
   if j=tweekday and i=1 then t=1:k=1
   if t=1 then 
      if k=tday then 
     document.write  "<td bgcolor='olive' >" & k & "</td>" 
      else 
        document.write  "<td>" & k & "</td>")
      end if
      k=k+1
   else
     document.write "<td>" & "&nbsp;" & "</td>"
   end if 
   if k>=28 and day(k+date()-tday)=1 then t=0
 next
   document.write  "</tr>"
    i=i+1
 loop until t=0
   </script>
   </table>
   </div>
   </body>

解决方案 »

  1.   

    doctment.write " </tr>" doctment应该为document然后doctment.write " </tr>" 应该为document.write(" </tr>")
     <div align="center">
            <p>            <script language="vbscript">
    document.write  year(date())&"年"&month(date())
                </script>            月&nbsp; <font size="6">月历 </font>
            </p>
            <table border="1" width="512">            <script language="vbscript">
    document.write(" <tr>")
    for i=1 to 7
      document.write " <th width='67' height='38'>星期"
      document.write mid("日一二三四五六",i,1)&" </th>"
    next
    document.write (" </tr>")
    tday=day(date())
    tweekday=weekday(date())
    tweekday=((tweekday-tday) mod 7+7) mod 7+1
    t=0:i=1
    do
    document.write (" <tr align='center'>")
    for j=1 to 7
      if j=tweekday and i=1 then t=1:k=1
      if t=1 then
          if k=tday then
        document.write  (" <td bgcolor='olive' >" & k & " </td>")
          else
            document.write  (" <td>" & k & " </td>")
          end if
          k=k+1
      else
        document.write (" <td>" & "&nbsp;" & " </td>")
      end if
      if k>=28 and day(k+date()-tday)=1 then t=0
    next
      document.write  (" </tr>")
        i=i+1
    loop until t=0
                </script>        </table>
        </div>
      

  2.   


    还是不能显示整个月历啊？在我机器的IIS上页面如下
     
      

  3.   


    是不能显示整个月历表格啊？在我机器的IIS上只有显示如下下几个字 啊？
    2009年10 月  月历
      

  4.   


    <body>
    <div align="center">
    <p>
    <script language="vbscript">
    document.write  year(date())&"年"&month(date())
    </script>
    月&nbsp; <font size="6" >月历 </font> </p>
    <table border="1" width="512">
    <script  language="vbscript">
    document.write(" <tr>")
    for i=1 to 7
      document.write " <th width='67' height='38'>星期"
      document.write mid("日一二三四五六",i,1)&" </th>"
    next
    document.write " </tr>"
    tday=day(date())
    tweekday=weekday(date())
    tweekday=((tweekday-tday) mod 7+7) mod 7+1
    t=0:i=1
    do
    document.write " <tr align='center'>"
    for j=1 to 7
      if j=tweekday and i=1 then t=1:k=1
      if t=1 then
          if k=tday then
        document.write  " <td bgcolor='olive' >" & k & " </td>"
          else
            document.write  " <td>" & k & " </td>"
          end if
          k=k+1
      else
        document.write " <td>" & "&nbsp;" & " </td>"
      end if
      if k>=28 and day(k+date()-tday)=1 then t=0
    next
      document.write  " </tr>"
        i=i+1
    loop until t=0
      </script>
      </table>
      </div>
      </body>
      

  5.   

    doctment.write " </tr>" doctment应该为document