方法/步骤1:
首先电脑必须安装有微软Excel ODBC驱动程序。通常情况下，在安装完成Excel之后，该驱动会一并被安装到电脑上。检查电脑是否安装有Excel ODBC驱动的方法：打开“控制面板”，依次点击“管理工具”→“数据源”，在打开的“ODBC数据源管理器”窗口中，切换至“驱动程序”选项卡，查找是否存在“Microsoft Excel Driver”项，如果存在，表明已经正确安装Excel ODBC驱动。
方法/步骤2:
打开Excel，创建一个测试文件。小编在此创建如图所示的内容（使用Excel2003创建），文件名为“sample.xls”。
方法/步骤3:
打开Deamweaver，创建一个新的ASP文件，接着在文件的开头输入如下所示内容： 其中对Xls文件的引用方式为绝对引用。对于Extended Properties项属性，Excel2003对应值为Excel 8.0,Excel2007对应值为Excel 10.0 例子如下： <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
" http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd ">
<html xmlns=" http://www.w3.org/1999/xhtml " lang="gb2312" xml:lang="gb2312">
<head>
<title>操作excle</title>
</head> <body>
<%
Set xlsconn = server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset") myConn_Xsl="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.xls;Extended Properties=Excel 8.0"
xlsconn.open myConn_Xsl sql="select * from [sheet1$]"
set rs=xlsconn.execute(sql)
if not rs.eof then
%>
<table border="0" cellpadding="20" cellspacing="0" >
<tr>
<td>名称</td>
<td>编号</td>
<td>价格</td>
</tr>
<%
while not rs.eof
%>
<tr>
<td><%=rs("商品名称")%></td>
<td><%=rs("商品编号")%></td>
<td><%=rs("价格")%></td>
</tr>
<%
rs.movenext
wend
%>
</table> <%
'sql="insert into [product](namese,pic) values('"& names &"','"& pic &"')"
'conn.execute(sql)
end if %>
</body>
</html>
|
