China says to expel Canada's top diplomat in Shanghai