您现在的位置是:网站首页> 编程资料编程资料

ASP连接Excel文件的方法_资源网

2023-12-05 284人已围观

简介 ASP连接Excel文件的方法_资源网

由于工作需要,又不愿意又将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
    %>
   


   
   
    <%
    for i=0 to rs.Fields.Count-1
    %>
   
   
    <%
    next
    %>
   
   
    <%
    do while Not rs.EOF
    %>
   
    <%
    for i=0 to rs.Fields.Count-1
    %>
   
   
    <%
    next
    %>
   
   
   
    <%
    for i=0 to rs.Fields.Count-1
    %>
   
   
    <%
    next
    %>
   
   
    <%
    rs.MoveNext
    Loop
    rs.close
    set rs=nothing
    Conn.close
    set StrConn=nothing
    %>
   
<%=rs(i).Name%>
<%=rs(i)%>

   

-六神源码网