set connXls = Server.CreateObject("ADODB.Connection")
connXls.ConnectionString="Provider=Microsoft.ACE.OLEDB.12.0;Persist Security Info=False;Data Source="&Server.MapPath("database/Test.xlsx")&";Extended Properties='Excel 12.0 Xml;HDR=No;IMEX=2'"
connXls.open
'-------------------------------------------------------
strSql="select * from [Sheet1$]"
set rs = Server.CreateObject("adodb.recordset")
rs.open strSql,connXls,1,1
if not rs.eof then
while not rs.eof
   response.Write(rs(0)&"<br />")
rs.movenext
wend
end if
rs.close
set rs=nothing
connXls.close
set connXls=nothing

注意：Microsoft Access Database Engine 2016/2010 Redistributable 可再发行组件一定要安装哦！