func_currtime.asp

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

<select name="year"><%
	   		dim iyear,ij
			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"><%
	   		dim imonth
			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"><%
	   		dim iday
			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>日