func_currtime5.asp

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

<select name="year"><%
			iyear=year(now)
			response.Write("<option value=" & iyear & " selected>" & iyear & "</option>")
	   		for ij=iyear to 2010 
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>年<select name="month"><%
			imonth=month(now)
			response.Write("<option value=" & imonth & " selected>" & imonth & "</option>")
	   		for ij=1 to 12
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>月<select name="day"><%
			iday=day(now)
			response.Write("<option value=" & iday & " selected>" & iday & "</option>")
	   		for ij=1 to 31
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>日<select name="hour"><%
			ihour=hour(now)
			response.Write("<option value=" & ihour & " selected>" & ihour & "</option>")
	   		for ij=0 to 23
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>时<select name="minute"><%
			iminute=hour(now)
			response.Write("<option value=" & iminute & " selected>" & iminute & "</option>")
	   		for ij=0 to 59
				response.Write("<option value=" & ij & ">" & ij & "</option>")
			next 		
	   %></select>分