func_currtime10.asp

来自「企业办公简单管理系统,可以发布信息以及论坛」· ASP 代码 · 共 16 行

<select name="year2"><%
			response.Write("<option value=" & iyear & " selected>" & iyear & "</option>")
	   		for ij=iyear-40 to iyear 
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>年<select name="month2"><%
			response.Write("<option value=" & imonth & " selected>" & imonth & "</option>")
	   		for ij=1 to 12
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>月<select name="day2"><%
			response.Write("<option value=" & iday & " selected>" & iday & "</option>")
	   		for ij=1 to 31
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>日