说明：
（1）将XLS文件看成一个数据库，其中的每一个工作表(sheet)看成数据库表。
（2）ADO假设Excel中的第一行为字段名，所以你定义的范围中必须要包括第一行的内容且保证唯一性。
（3）Excel中的行标题（即字段名）不能够包含数字，Excel的驱动在遇到这种问题时就会出错的。
（4）如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常， 处理这一行的数据类型，你必须要保证该列的数据类型一致
<%
'===================================================================
 Dim Conn,Driver,DBPath,Rs
 ' 建立Connection对象
 Set Conn = Server.CreateObject("ADODB.Connection")
 Driver = "Driver={Microsoft Excel Driver (*.xls)};"
 DBPath = "DBQ=" & Server.MapPath( "test.xls" )
 '调用Open 方法打开数据库
 Conn.Open Driver & DBPath
 'DSN连接方式
 'Conn.Open "Dsn=test"
 '注意 表名一定要以下边这种格试 "[表名$]" 书写
 Sql="Select * From [Sheet1$] where 序号=0"
 Set Rs=Conn.Execute(Sql)
 IF Rs.Eof And Rs.Bof Then
  Response.write "没有找到您需要的数据!!"
 Else
  Do While Not Rs.EOF
   Response.write Rs("姓名")
  Rs.MoveNext
  Loop
 End IF
 Rs.Close
 Set Rs=nothing
 Conn.Close
 Set Conn=Nothing
 'Response.Write  "成功！"
%>