程序代碼
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("execl.xls")

dim rs
set rs=conn.execute("select * from [Sheet1$]")
%>

特別點：數據表后面要加$號才行
[Sheet1$]中 紅色會行的值

一般EXECL里第一行就是字段名
所以用法和access差不多