<% dim connxls,connstrxls 'connstrxls="DBQ=Server.mappath("Excel.xls");DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};" connstrxls="DBQ=D:\QR2018\temp\DengLu\TextArea\Excel.xls;DefaultDir=;DRIVER={Microsoft Excel Driver (*.xls)};" set connxls=server.createobject("ADODB.CONNECTION") connxls.open connstrxls Set rsxls=Server.CreateObject("ADODB.Recordset") 'SQLxls = "select * from [Sheet1$]" %>