逐月下拉列表

在这里，我创建了一个简单的下拉列表，显示了每年的月份。

您可以从您要开始的年份初始化年份。

我从一年开始

1999 ”。

同样，

U可以使用以下示例显示某些类别的动物列表或某些Product，Etc中的项目列表。

这是代码：

 
    <%
    Dim StartYear,TillYear,StrCheck
    StartYear = 1999
    TillYear = Year(Date())
    StrCheck = "" 
    Dim MonthsArr(11)
    MonthsArr(0) = "Jan"
    MonthsArr(1) = "Feb"
    MonthsArr(2) = "Mar"
    MonthsArr(3) = "Apr"
    MonthsArr(4) = "May"
    MonthsArr(5) = "Jun"
    MonthsArr(6) = "Jul"
    MonthsArr(7) = "Aug"
    MonthsArr(8) = "Sep"
    MonthsArr(9) = "Oct"
    MonthsArr(10) = "Nov"
    MonthsArr(11) = "Dec" 
    Dim i,StrValue            
    %>
    <select name="CmbMonYear">
    <option value="0">--Select--</option>
    <%
    For Yrs = StartYear To TillYear
        If StrCheck <> Yrs Then
    %>
    <optgroup label="<%=Yrs%>">
        <%End If
         For i = 0 To Ubound(MonthsArr)
        %>
    <option value="<%=MonthsArr(i)%>"<%If MonthsArr(i) = Request.Form("CmbMonYear") Then     Response.Write("Selected") End If%>>
    <%=MonthsArr(i)%></option>
    <%    Next
    StrCheck = Yrs
    Next
    %>
    </optgroup>
    </select>  

说明： 步骤1：声明并初始化变量。

根据需要初始化“开始年份”和“结束年份”。

在这里，我从1999年开始进入到今年。

    <%
    Dim StartYear,TillYear,StrCheck
    StartYear = 1999
    TillYear = Year(Date())
    StrCheck = ""
    %> 

步骤2：声明并创建数组数月。

 
    <%    
    Dim MonthsArr(11)
    MonthsArr(0) = "Jan"
    MonthsArr(1) = "Feb"
    MonthsArr(2) = "Mar"
    MonthsArr(3) = "Apr"
    MonthsArr(4) = "May"
    MonthsArr(5) = "Jun"
    MonthsArr(6) = "Jul"
    MonthsArr(7) = "Aug"
    MonthsArr(8) = "Sep"
    MonthsArr(9) = "Oct"
    MonthsArr(10) = "Nov"
    MonthsArr(11) = "Dec" 
    Dim i,StrValue            
    %> 

步骤3：以选项组和第一个值“ --Select--”开始选择列表

 
    <select name="CmbMonYear">
    <option value="0">--Select--</option> 

步骤4：循环浏览开始年和结束年

检查是否已显示年份。 如果不是，则显示else跳过并显示月份。

在“ optgroup”中显示年份

    <%
    For Yrs = StartYear To TillYear
        If StrCheck <> Yrs Then
    %>
    <optgroup label="<%=Yrs%>">
        <%End If%> 

第5步：遍历一系列月份并显示月份

<%         For i = 0 To Ubound(MonthsArr)
        %>
    <option value="<%=MonthsArr(i)%>"<%If MonthsArr(i) = Request.Form("CmbMonYear") Then     Response.Write("Selected") End If%>>
    <%=MonthsArr(i)%></option> 

步骤6：结束Inner for loop并在变量中分配年份

    <%    Next
    StrCheck = Yrs
    %>  

步骤7：结束外部循环

 
    <%Next
    %>
    </optgroup>
    </select>   

From: https://bytes.com/topic/asp-classic/insights/886001-dropdown-list-yearwise-months