如何使用数组来显示下拉菜单？

Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)
Dim i
      if strSelected <> "" then
            swap arr, strSelected
      end if
      response.write "<select NAME='" & strSelName & "' SIZE=1 ONCHANGE='" & onchange & "'>"
      For i = 0 To UBound(Arr)
            If arr(i) <> "" And IsNull(Arr(i)) = FALSE and arr(i) <> strexclude Then
                  response.write "<OPTION VALUE=""" & Arr(i) & """>" & Arr(i) & "</OPTION>"
            End If
      Next
      response.write "</select>"
End Sub

Sub Swap(Arr(), strSelected)
' 交换数组中的元素
Dim StoreString, i
      For i = 0 To UBound(Arr)
            If Arr(i) = strSelected Then
                  StoreString = Arr(i)
                  Arr(i) = Arr(0)
                  Arr(0) = StoreString
            End If
      Next
End Sub

最后

以上就是成就萝莉最近收集整理的关于如何使用数组来显示下拉菜单？的全部内容，更多相关如何使用数组来显示下拉菜单内容请搜索靠谱客的其他文章。