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:

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

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

抵扣说明:

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

余额充值