Vitty'S Blog

   :: 首页 :: 新随笔 :: 联系 :: 聚合  :: 管理 ::
  43 随笔 :: 221 文章 :: 215 评论 :: 0 Trackbacks

前一段时间从网上看到并收藏在以前的BLOG上面,现在转移过来。
======================================================
以下是代码片段:

 1<%Option Explicit%>
 2<html>
 3<head>
 4 <title>操纵Excel</title>
 5</head>
 6<body>
 7 <h2 align="center">显示Excel文件示例</h2>
 8 <table border="1" width="90%" align="center">
 9  <tr align="center" bgcolor="#E6E6E6">
10   <td>学号</td><td>姓名</td><td>数学</td><td>语文</td><td>英语</td><td>总分</td>
11  </tr>
12  <%
13  '建立Connection对象
14  Dim db,rs,strSql
15  Set db = Server.CreateObject("ADODB.Connection")
16  db.Open "Driver={Microsoft Excel Driver (*.xls)};Dbq=" & Server.MapPath("Mark.xls")
17  '打开记录集,表名一定要以"[表名$]"的格式
18  strSql="Select * From [Sheet1$]"
19  Set rs=db.Execute(strSql)
20  '循环读取所有行
21  Do While Not rs.EOF
22   Response.Write "<tr align='center'>"
23   Response.Write "<td>" & rs("学号"& "</td>"
24   Response.Write "<td>" & rs("姓名"& "</td>"
25   Response.Write "<td>" & rs("数学"& "</td>"
26   Response.Write "<td>" & rs("语文"& "</td>"
27   Response.Write "<td>" & rs("英语"& "</td>"
28   Response.Write "<td>" & rs("总分"& "</td>"
29   Response.Write "</tr>"
30   rs.MoveNext
31  Loop 
32
33  '关闭对象
34  rs.Close
35  Set rs=nothing
36  db.Close
37  Set db=Nothing
38  
%>
39 </table>
40</body>
41</html>
42
43
posted on 2007-04-30 09:00 Vitty 阅读(566) 评论(3)  编辑 收藏 引用 所属分类: 4.他山之石

评论

# re: Asp读取Excel文件 2007-05-14 23:52 杨华
很不错,帮助了我,非常感谢!

5月14日  回复  更多评论
  

# re: Asp读取Excel文件[未登录] 2007-05-15 09:18 vitty
@杨华
我感觉这是最简单的方式,另外还可以使用excel组件,从单元格中直接取数据,这样麻烦些,但适用性更为广泛。
很高兴能帮助你。  回复  更多评论
  

# re: Asp读取Excel文件 2008-07-22 18:43 灰兔
我感觉这是最简单的方式,另外还可以使用excel组件,从单元格中直接取数据,这样麻烦些,但适用性更为广泛。



那这种方法怎么实现啊 望指教

QQ15113314  回复  更多评论
  

只有注册用户登录后才能发表评论。