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