帮忙看下这段代码哪里出了问题了！谢谢了

[flyflyfly_woo]

sub writeday()
dim strdd,daystr,i,j,n
dim MonHead(12)
monhead(0)=0
monhead(1)=31
monhead(2)=28
monhead(3)=31
monhead(4)=30
monhead(5)=31
monhead(6)=30
monhead(7)=31
monhead(8)=31
monhead(9)=30
monhead(10)=31
monhead(11)=30
monhead(12)=31

strdd=document.form2.DD.outerHTML
daystr=left(strdd,len(strdd)-9)
j=cint(document.form2.month.value)
n=MonHead(j-1)
for i=1 to n step 1
daystr=daystr+"<option value='" + i + "'> " + i + " 日" + "</option>\r\n"
next
document.form2.DD.outerHTML=daystr+"</select>"
end sub

[xiaobird1]

dim MonHead(13)

[flyflyfly_woo]

up