28,391
社区成员
发帖
与我相关
我的任务
分享
<%
dim econn
set econn=server.createobject("adodb.connection")
econn.open "driver={Microsoft Excel Driver (*.xls)};DBQ="&server.mappath("Excel/dikouExcel.xls")
dim ers
set ers=server.CreateObject("adodb.recordset")
ers.open "select * from [Sheet1$]",econn,1,1
%>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><%=ers(0).name%></td>
<td align="center"><%=ers(1).name%></td>
<td align="center"><%=ers(2).name%></td>
<td align="center"><%=ers(3).name%></td>
<td align="center"><%=ers(4).name%></td>
<td align="center"><%=ers(5).name%></td>
<td align="center"><%=ers(6).name%></td>
</tr>
<%
do while not ers.eof
%>
</p>
<tr>
<td align="center"><%=ers(0).value%></td>
<td align="center"><%=ers(1).value%></td>
<td align="center"><%=ers(2).value%></td>
<td align="center"><%=ers(3).value%></td>
<td align="center"><%=ers(4).value%></td>
<td align="center"><%=ers(5).value%></td>
<td align="center"><%=ers(6).value%></td>
</tr>
<%
ers.movenext
loop
ers.close
%>
</table>