年月日 表单

<td><select name=iyear><%
  dim bires,birse
  for i=1990 to year(now)
    birse=""
    if int(year(bires))=int(i) then
      birse=" selected"
    end if
    response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
  next
  response.write vbcrlf&"</select>年 <select name=imonth>"
  for i=1 to 12
    birse=""
    if int(month(bires))=int(i) then
      birse=" selected"
    end if
    response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
  next
  response.write vbcrlf&"</select>月 <select name=iday>"
  for i=1 to 31
    birse=""
    if int(day(bires))=int(i) then
      birse=" selected"
    end if
    response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>"
  next
%></select>日<%response.write redx%></td>

文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
相关日志: