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

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

%>