由於工作需要，又（yòu）不願意又將excel轉換成其它數據庫，所以想直接使用（yòng）ASP連接Excel文件，發現還（hái）真行（háng），代碼如下：

其中：list.xls為excel數據庫名字（zì），Sheet1為工作表名。

<%
    Dim conn
    Dim StrConn
    Dim rs
    Dim Sql
    Set conn=Server.CreateObject("ADODB.Connection")
    StrConn="Driver={Microsoft Excel Driver (*.xls)};DBQ="& Server.MapPath("list.xls")
    conn.Open StrConn
    Set rs = Server.CreateObject("ADODB.Recordset")
    Sql="select * from [Sheet1$]"
    rs.Open Sql,conn,2,2
    %>
    <center>
    <table border="0" cellpadding="0" cellspacing="0">
    <tr>
    <%
    for i=0 to rs.Fields.Count-1
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    <td height="28" bgcolor="#0099FF"><div align="center"><%=rs(i).Name%></div></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <%
    do while Not rs.EOF
    %>
    <tr>
    <%
    for i=0 to rs.Fields.Count-1
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    <td height="28" valign="bottom"><%=rs(i)%></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <tr>
    <%
    for i=0 to rs.Fields.Count-1
    %>
    <td height="1" bgcolor="#CCCCCC"></td>
    <td height="1" bgcolor="#CCCCCC"></td>
    <%
    next
    %>
    <td width="1" bgcolor="#CCCCCC"></td>
    </tr>
    <%
    rs.MoveNext
    Loop
    rs.close
    set rs=nothing
    Conn.close
    set StrConn=nothing
    %>
    </table>
    </center>