Question

求asp读取excel的代码

Answer 1

<!--
******************************
*直接改一下server.mappath("execl.xls")里的execl路径
*默认execl内的第一行数据为字段名
*我设置的列数为 3 列 ，可根据数据多少添加列就可以了（有不当的请留言）
******************************
-->
<%
dim conn
set conn=server.createobject("adodb.connection")
conn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("execl.xls")

dim rs
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from [Sheet1$]",conn,1,1
%>

<table width="284" height="57" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><%=rs(0).name%></td>
<td align="center"><%=rs(1).name%></td>
<td align="center"><%=rs(2).name%></td>
</tr>
<%
do while not rs.eof
%>
</p>

<tr>
<td align="center"><%=rs(0).value%></td>
<td align="center"><%=rs(1).value%></td>
<td align="center"><%=rs(2).value%></td>
</tr>

<%
rs.movenext
loop
rs.close
%>
</table>