Set Conn9 = Server.CreateObject("ADODB.Connection") Driver = "Driver={Microsoft Excel Driver (*.xls)};" DBPath = "DBQ=" & Server.MapPath( "../fee.xls" ) Sql="select sum(面积),sum(单价),sum(结存) from [Sheet1$] " Set rs=Conn9.Execute(Sql)