您现在的位置是：网站首页> 编程资料编程资料
如何使用数组来显示下拉菜单？_编程10000问_
2023-05-25
181人已围观
简介 如何使用数组来显示下拉菜单？_编程10000问_
Sub DoDropDown(Arr(), strSelName, onchange, strSelected, strexclude)
Dim i
if strSelected <> "" then
swap arr, strSelected
end if
response.write ""
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
