当前位置:asp编程网>技术教程>Asp教程>  正文

asp连接xlsx文件并读取表中的内容

2019-03-02 11:15:08   来源:www.aspbc.com   作者:wangsdong   浏览量:5922   收藏
excel从以前的xls文件升级成xlsx文件很长时间了,现在大家使用xlsx文件越来越多了。
我们现在在写asp程序的时候,已经很少再使用xls文件了,现在都使用xlsx文件,那么asp如何连接xlsx文件?
这里写了一个例子来介绍一下asp连接xlsx文件并读取表中的内容。
代码如下:

<%
'===========================================
' 函数功能:asp连接xlsx文件并读取表中的内容
' 作    者:wangsdong
' 来    源: http://www.aspbc.com
' 文章为作者原创,转载请注明文章出处、保留作
' 者信息,谢谢支持!
'===========================================

'连接xlsx数据库
path="./"
Dim xlsconn,strsource,xlbook,xlsheet,i
Dim myConn_Xsl,xlsrs,sql,objCmd  
Set xlsconn = server.CreateObject("adodb.connection") 
Set xlsrs = Server.CreateObject("Adodb.RecordSet")

filename="goods" 
file2="商品列表"
source=server.mappath(path&filename&".xlsx")

myConn_Xsl="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &source& ";Extended Properties=Excel 12.0"
xlsconn.open myConn_Xsl

sql = "Select * from ["&file2&"$]"
xlsrs.open sql,xlsconn,1,1 
If xlsrs.eof Then
else
 i=1
 response.write "<TABLE border=1>"
 Do While not xlsrs.eof 
 goods_name=xlsrs("商品名")
 goods_images=xlsrs("图片")
 cat_id=xlsrs("商品分类")
 %>
 
 <TR>
  <TD>&nbsp;<%=goods_name%></TD>
  <TD>&nbsp;<%=goods_images%></TD>  
  <TD>&nbsp;<%=cat_id%></TD> 
 </TR>

 <%   
 i=i+1 
 xlsrs.MoveNext
    Loop  
 response.write "</table>"
End If
xlsrs.close

Response.write "共读取到<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf

set xlsconn=nothing 
set objCmd=Nothing

%>

关于我们-广告合作-联系我们-积分规则-网站地图

Copyright(C)2013-2017版权所属asp编程网