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:

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值