ASP读取EXCEL

< html >
< head >
  < title > 操纵Excel </ title >
</ head >
< body >
  < h2  align ="center" > 显示Excel文件示例 </ h2 >
  < table  border ="1"  width ="90%"  align ="center" >
   < tr  align ="center"  bgcolor ="#E6E6E6" >
    < td > 学号 </ td >< td > 姓名 </ td >< td > 数学 </ td >< td > 语文 </ td >< td > 英语 </ td >< td > 总分 </ td >
   </ tr >
   <% ...
  '建立Connection对象
  Dim db,rs,strSql
  Set db = Server.CreateObject("ADODB.Connection")
  db.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("Mark.xls")
  '打开记录集，表名一定要以"[表名$]"的格式
  strSql="Select * From [Sheet1$]"
  Set rs=db.Execute(strSql)
  '循环读取所有行
  Do While Not rs.EOF
   Response.Write "<tr align='center'>"
   Response.Write "<td>" & rs("学号") & "</td>"
   Response.Write "<td>" & rs("姓名") & "</td>"
   Response.Write "<td>" & rs("数学") & "</td>"
   Response.Write "<td>" & rs("语文") & "</td>"
   Response.Write "<td>" & rs("英语") & "</td>"
   Response.Write "<td>" & rs("总分") & "</td>"
   Response.Write "</tr>"
   rs.MoveNext
  Loop 

  '关闭对象
  rs.Close
  Set rs=nothing
  db.Close
  Set db=Nothing
   %>
  </ table >
</ body >
</ html >

Mark.xls: