ASP访问Excel数据的方法
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。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim connString
Dim RS1
connString= "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=C:\Inetpub\wwwroot\myAsp\data\sample.xls;Persist Security Info=False"
%>
4、接下来就是创建记录集，代码如下所示：
Set RS1=Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = connString
'RS1.Source = "SELECT * FROM admin"
RS1.Source = "SELECT * FROM [Sheet1$]"
RS1.Open()
5、最后就是添加对Excel数据的访问：
6、最后小编给出完整的代码，方便大家进行测试：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
Dim connString
Dim RS1
connString= "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=C:\Inetpub\wwwroot\myAsp\data\sample.xls;Persist Security Info=False"
Set RS1=Server.CreateObject("ADODB.Recordset")
RS1.ActiveConnection = connString
'RS1.Source = "SELECT * FROM admin"
RS1.Source = "SELECT * FROM [Sheet1$]"
RS1.Open()
%>
<table border="1
<% while ((NOT RS1.EOF)) %>
<tr>
<td><div align="left" ><%=(RS1.Fields.Item("序号").value)%></div></td>
<td><div align="left" ><%=(RS1.Fields.Item("姓名").value)%></div></td>
<td><div align="left" ><%=(RS1.Fields.Item("年龄").value)%></div></td>
<td><div align="left" ><%=(RS1.Fields.Item("特长").value)%></div></td>
</tr>
<% RS1.MoveNext()
Wend %>
</table>
<!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">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>读取数据库</title>
</head>
<body style="background-color:#000000">
</body>
</html>
<%
RS1.Close()
Set RS1 = Nothing
%>
7、最后再看一下运行结果：
