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

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

最后

以上就是成就萝莉为你收集整理的如何使用数组来显示下拉菜单？的全部内容，希望文章能够帮你解决如何使用数组来显示下拉菜单？所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。