Te cedo el siguiente código que hice:
center><form id=form2>
<p>
<SELECT id=anio name=anio style="WIDTH: 76px; HEIGHT: 22px">
</SELECT> <SELECT id=mes name=mes style="WIDTH: 107px; HEIGHT: 22px"></SELECT>
<SELECT name=dia style="WIDTH: 48px; HEIGHT: 22px">
</SELECT> </select>
</center>
<script language="vbs">
for i=1 to 31
set agrega=document.createElement("option")
agrega.text=i
agrega.value=i
form2.dia.options.add agrega
next
function llenar()
for i=0 to form2.dia.length
form2.dia.options.remove all
next
z_1=cint(datediff("d",dateserial(form2.anio.value, form2.mes.selectedindex+1,1),dateserial(form2.anio .value,form2.mes.selectedindex+2,1)))
for i=1 to z_1
set agrega=document.createElement("option")
agrega.text=i
agrega.value=i
form2.dia.options.add agrega
next
end function
function mes_onchange()
llenar()
end function
for i=1 to 12
set agrega=document.createElement("option")
agrega.text=Ucase(mid(Monthname(i),1,1))&mid(Month name(i),2)
agrega.value=i
form2.mes.options.add agrega
next
for i=cint(datepart("yyyy",date)) to 2004 step -1
set agrega=document.createElement("option")
agrega.text=i
agrega.value=i
form2.anio.options.add agrega
next
function anio_onchange()
llenar()
end function
</script>
Hace lo que estás pidiendo,pues segun el mes lo llena autompáticamente validando años bisiestos.