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