最火下载站首页
手机版
最火下载站
关注公众号
最火下载站

当前位置:首页 > 网络知识 > 网络编程 > ASP教程> asp操作excel,显示数据及统计方法

asp操作excel,显示数据及统计方法

文章作者:网友投稿 发布时间:2008-09-18 来源:网络

这次做的活是asp操作excel,全程序是每行都标出,然后像填空一样做的。现在被我改成了动态显示每行的项,再逐行显示,最后做一个汇总。

1、FSO找到excel文件
<%
Dim fso,folder,file
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.MapPath("data"))

Dim name
For Each file in folder.Files
name = fso.GetBaseName(file)
%>
  • <%=name%>

  • <%
    Next
    %>

    2、连接excel文件,获取第一个sheet的name

    <%
    //建立Connection对象
    Set Conn_qc = Server.CreateObject("ADODB.Connection")
    Driver = "Provider=Microsoft.Jet.OLEDB.4.0;"
    DBParm = "Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    //调用Open 方法打开数据库
    DBPath = "Data Source=" & Server.MapPath("data\" & table & ".xls") & ";" '注意:此处的table变量为文件名,可由上一个方法得到
    Conn_qc.Open Driver & DBPath & DBParm
    //获取第一个sheet的名称
    Set rs=Conn_qc.OpenSchema(20)
    TableName = rs("Table_name")
    rs.Close
    //查询数据
    Sql="Select * From [" & TableName & "]"

    //response.write(sql)
    'Set Rs=Conn.Execute(Sql)
    rs.open sql, Conn_qc, 1, 1 '此处可以解决recordcount为 -1 的问题
    if rs.recordcount<>0 then
    %>


    <%for i=0 to rs.fields.count-1%>

    <%next%>


    <%for i=0 to rs.fields.count-1%>

    <%next%>

    <% =rs(i).Name %>
    <%=rs(i)%>

    <%
    end if
    rs.close
    set rs=nothing
    Conn_qc.close
    %>

    上一篇: 破解网站发布系统 ASP生成静态页面方法

    下一篇: Asp基础:最简单的ASP分页代码

    共有0条评论网友评论

    游戏排行榜