28,391
社区成员
发帖
与我相关
我的任务
分享如何在下拉菜单中默认显示当月月份
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
</body>
</html>
我要在下拉菜单里默认显示当月，该如何实现？
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
</body>
</html>
我要在下拉菜单里默认显示当月，该如何实现？
...全文
请发表友善的回复…
发表回复
lilu207 2004-08-19
- 打赏
- 举报
已经解决，谢谢大家支持！分数不够分，实在抱歉：）
redeggdai 2004-08-18
- 打赏
- 举报
这样子也可以
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<%
Dim i
For i = 1 To 12
%>
<option value="<%=i%>" <%if i=month(now) then%>selected<%end if%>><%=i%></option>
<% Next %>
</select>
</body>
</html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<%
Dim i
For i = 1 To 12
%>
<option value="<%=i%>" <%if i=month(now) then%>selected<%end if%>><%=i%></option>
<% Next %>
</select>
</body>
</html>
叮咚叮咚叮叮咚 2004-08-18
- 打赏
- 举报
楼上的就可以~~
bluereed 2004-08-18
- 打赏
- 举报
<select name="yuefen" length="10" style="color: #006699">
<%
for i = 1 to 12
if i = month(date()) then
response.write "<option value='" + cstr(i) + "' selected>" + cstr(i) + "月</option>"
else
response.write "<option value='" + cstr(i) + "' >" + cstr(i) + "月</option>"
end if
next
%>
</select>
<%
for i = 1 to 12
if i = month(date()) then
response.write "<option value='" + cstr(i) + "' selected>" + cstr(i) + "月</option>"
else
response.write "<option value='" + cstr(i) + "' >" + cstr(i) + "月</option>"
end if
next
%>
</select>
zltostem 2004-08-18
- 打赏
- 举报
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<%
Dim i
For i = 1 To 12
If i = Month(Date) Then %>
<option value="<%=i%>" selected><%=i%></option>
<% Else %>
<option value="<%=i%>"><%=i%></option>
<% End If
Next %>
</select>
</body>
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="month" size="1" >
<%
Dim i
For i = 1 To 12
If i = Month(Date) Then %>
<option value="<%=i%>" selected><%=i%></option>
<% Else %>
<option value="<%=i%>"><%=i%></option>
<% End If
Next %>
</select>
</body>
</html>
xiaobird1 2004-08-18
- 打赏
- 举报
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="mon" size="1" >
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
<SCRIPT LANGUAGE="VBScript">
<!--
For i = 0 To document.all.mon.options.length - 1
If Cint(document.all.mon.options(i).value) = Cint(Month(Now())) Then
document.all.mon.options(i).selected = true
Exit For
End If
Next
//-->
</SCRIPT>
</body>
</html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>如何在下拉菜单中默认显示当月月份</title>
</head>
<body>
<select name="mon" size="1" >
<option value="1">1</option>
<option value="2">2</option>
<option value="3">3</option>
<option value="4">4</option>
<option value="5">5</option>
<option value="6">6</option>
<option value="7">7</option>
<option value="8">8</option>
<option value="9">9</option>
<option value="10">10</option>
<option value="11">11</option>
<option value="12">12</option>
</select>
<SCRIPT LANGUAGE="VBScript">
<!--
For i = 0 To document.all.mon.options.length - 1
If Cint(document.all.mon.options(i).value) = Cint(Month(Now())) Then
document.all.mon.options(i).selected = true
Exit For
End If
Next
//-->
</SCRIPT>
</body>
</html>
