年月日 表单

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>

http://www.corange.cn/archives/2008/10/1912.html

1. <td><select name=iyear><% 
2. dim bires,birse 
3. for i=1990 to year(now) 
4. birse="" 
5. if int(year(bires))=int(i) then 
6. birse=" selected" 
7. end if 
8. response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>" 
9. next 
10. response.write vbcrlf&"</select>年 <select name=imonth>" 
11. for i=1 to 12 
12. birse="" 
13. if int(month(bires))=int(i) then 
14. birse=" selected" 
15. end if 
16. response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>" 
17. next 
18. response.write vbcrlf&"</select>月 <select name=iday>" 
19. for i=1 to 31 
20. birse="" 
21. if int(day(bires))=int(i) then 
22. birse=" selected" 
23. end if 
24. response.write vbcrlf&"<option value='"&i&"'"&birse&">"&i&"</option>" 
25. next 
26. %></select>日<%response.write redx%></td> 

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>