原创著作,产权保护 政府、投票、评选、公安、学校、问卷、视频会议专注发展中小企事业 系统报价 | 支付帐号 | 授权查证
    计算机著作版权登记号:2014SR032463 手机:+86-1373066-4304 | QQ:1213920482 欢迎选择智睿软件系统 欢迎选择智睿软件系统
智睿软件系统
asp连接excel文件读取数据
来源:智睿 浏览:411 次 发布时间:2020-04-12 20:56:44

ASP如何连接Excel文件,读取其中的数据

<%
Dim xlsName, conn, rs, SQL
xlsName = "test.xls"
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ=" & Server.MapPath(xlsName)
SQL = "select * from [sheet1$]"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL, conn, 1, 3
        Response.Write "<table border=1>"
        Do While Not rs.Eof
                Response.Write "<tr>"
                for i=0 to rs.Fields.Count-1
                        Response.Write "<td>" & Trim(rs(i)) & "</td>"
                Next
                Response.Write "</tr>"
                rs.MoveNext
        Loop
        Response.Write "</table>"
rs.Close
conn.Close
Set rs = nothing
Set conn = nothing
%>

【刷新页面】【加入收藏】【打印此文】 【关闭窗口】
上一篇:智睿企业网站管理系统 v11.0.3 2020年智睿企业网站系统,开源企业网站系统 下一篇:智睿报修管理系统 V 4.8.0 企业报修系统,网络报修系统,在线报修系统