网站首页  汉语字词  英语词汇  考试资料  写作素材  旧版资料

请输入您要查询的范文:

 

标题 asp读取excel例子
范文
    <%
    Dim objConn,objRS
    Dim strConn,strSql
    dim lRecCount
    set objConn=Server.CreateObject("ADODB.Connection")
    set objRS=Server.CreateObject("ADODB.Recordset")
    strConn="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & server.mappath("execel/857/20090610115239.xls")
    objConn.Open strConn
    strSql="SELECT * FROM [Sheet1$]"
    objRS.Open strSql,objConn,1,1
    lRecCount=objRS.RecordCount
    response.write "数据总数:" & CStr(lRecCount) & "<br>"
    objRS.MoveFirst
    while not objRS.eof
    response.write objRS(0) & "----" & objRS(1) & "-------" & objRS(2) & "-------" & objRS(3) & "-------" & objRS(4)& "-------" & objRS(5)& "-------" & objRS(6)& "-------" & objRS(7) &"-------" & objRS(8)& "<br>"
    objRS.MoveNext
    wend
    objRS.Close
    objConn.Close
    set objRS = Nothing
    set objConn = Nothing
    %>
随便看

 

在线学习网范文大全提供好词好句、学习总结、工作总结、演讲稿等写作素材及范文模板,是学习及工作的有利工具。

 

Copyright © 2002-2024 cuapp.net All Rights Reserved
更新时间:2025/5/18 0:51:33