我们现在在写asp程序的时候，已经很少再使用xls文件了，现在都使用xlsx文件，那么asp如何连接xlsx文件？

这里写了一个例子来介绍一下asp连接xlsx文件并读取表中的内容。

代码如下：

<%

'===========================================

' 函数功能：asp连接xlsx文件并读取表中的内容

'===========================================

'连接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

%>

下一篇：ASP处理XML数据的常用函数，读取，转换