用户名: 用QQ登录本站
密 码: 注册
验证码:
首页 软件 编程 笑话 知识 公告 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
广告位招租中
2021年 劳动节 12
2021年 端午节 56
2022年 元 旦 257
2022年 春 节 288
 
  • 您现在的位置:首页 >> ASP >> 内容

    asp连接xlsx文件并读取表中的内容

    内容摘要: excel从以前的xls文件升级成xlsx文件很长时间了,现在大家使用xlsx文件越来越多了。我们现在在写asp程序的时候,已经很少再使用xls文件了,现在都使用xlsx文件,那么asp如何连接xlsx文件?这里写了一个例子来介绍一下asp连接xlsx文件并读取表中的内容。代码如下:%'====================================......

      excel从以前的xls文件升级成xlsx文件很长时间了,现在大家使用xlsx文件越来越多了。

    我们现在在写asp程序的时候,已经很少再使用xls文件了,现在都使用xlsx文件,那么asp如何连接xlsx文件?

    这里写了一个例子来介绍一下asp连接xlsx文件并读取表中的内容。

    代码如下:


    <%

    '===========================================

    ' 函数功能:asp连接xlsx文件并读取表中的内容

    '===========================================


    '连接xlsx数据库

    path="./"

    Dim xlsconn,strsource,xlbook,xlsheet,i

    Dim myConn_Xsl,xlsrs,sql,objCmd

    Set xlsconn = server.CreateObject("adodb.connection")

    Set xlsrs = Server.CreateObject("Adodb.RecordSet")


    filename="goods"

    file2="商品列表"

    source=server.mappath(path&filename&".xlsx")


    myConn_Xsl="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &source& ";Extended Properties=Excel 12.0"

    xlsconn.open myConn_Xsl


    sql = "Select * from ["&file2&"$]"

    xlsrs.open sql,xlsconn,1,1

    If xlsrs.eof Then

    else

    i=1

    response.write "<TABLE border=1>"

    Do While not xlsrs.eof

    goods_name=xlsrs("商品名")

    goods_images=xlsrs("图片")

    cat_id=xlsrs("商品分类")

    %>


    <TR>

    <TD>&nbsp;<%=goods_name%></TD>

    <TD>&nbsp;<%=goods_images%></TD>

    <TD>&nbsp;<%=cat_id%></TD>

    </TR>


    <%

    i=i+1

    xlsrs.MoveNext

    Loop

    response.write "</table>"

    End If

    xlsrs.close


    Response.write "共读取到<font color='red'>" & i-1 & "</font>条记录.<br>" & vbCrLf


    set xlsconn=nothing

    set objCmd=Nothing


    %>

      版权声明:本内容来源于互联网,如有侵犯您的版权,请联系站长,本站收到您的信息后将及时处理。


    发布日期:2021/1/21 发布时间:16:19:03 点击:622 录入:齐天大圣
  • 上一篇:asp虚拟主机上.htaccess伪静态导入规则文件
  • 下一篇:ASP处理XML数据的常用函数,读取,转换
  • 本类新增
    本类热门文章
    Baidu

    YiJiaCMS V5.01 Build 21.03.31(MSSQL) 闽ICP备05000814号-1
    本空间由景安网络提供,百度云加速提供加速防护
    齐天大圣® 制 作 ©2000-2021