站长之家
>>您现在的位置: 站长之家 → 站长学院 → 网络编程 → asp教程 → asp基础教程 → 正文
ASP连接Excel文件的方法
        ★★★
ASP连接Excel文件的方法
关键词:ASP Excel
作者:佚名 来源:站长之家
更新时间:2009-6-27 17:27:38【字体:缩小字体 放大字体

由于工作需要,又不愿意又将excel转换成其它数据库,所以想直接使用ASP连接Excel文件,发现还真行,代码如下:

其中:list.xls为excel数据库名字,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>

展开详情
  >> 教程录入:站长之家    责任编辑:axin 
相关文章
没有相关教程
你可能喜欢的软件
网友评论:(只显示最新8条。评论内容只代表网友观点,与本站立场无关!)
| 站长之家 | 站长工具 | 网站源码 | 软件下载 | 联系我们 | 版权申明 | 网站地图
站长工具_网站源码_软件下载_字体下载_免费资源 - 站长之家 版权所有 Copyright © 2005-2010 www.cnzz5.cc, All Rights Reserved.