<%
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$]")
%>

注意：数据表后面要加$号才行。

EXECL里第一行就是字段名,用法和ACCESS差不多。