📄 03_05.asp
字号:
<html>
<head>
<title>For...Next循环示例</title>
</head>
<body>
<%
'定义循环变量
Dim i
'定义用来表示当前年、月、日的变量
Dim CurYear,CurMonth,CurDay
'求取当前年、月、日
CurYear=Year(Date)
CurMonth=Month(Date)
CurDay=Day(Date)
%>
<form method="post" action="SelectDay.asp">
<p>请选择查询日期：
<select name="Year" size="1">
<%
For i = 1998 To 2008
%>
<option <% If i = CurYear Then Response.Write "selected" %>><% = i %></option>
<%
Next
%>
</select>
年
<select name="Month" size="1">
<%
For i = 1 To 12
%>
<option <% If i = CurMonth Then Response.Write "selected" %>><% = i %></option>
<%
Next
%>
</select>
月
<select name="Day" size="1">
<%
For i = 1 To 31
%>
<option <% If i = CurDay Then Response.Write "selected" %>><% = i %></option>
<%
Next
%>
</select>
日
<p>
<input type="submit" value="提交" name="btnSubmit">
<input type="reset" value="重置" name="btnReset">
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -