asp循环读取.xls文件实例

最新推荐文章于 2021-08-18 12:39:33 发布

YUJIANYUE

最新推荐文章于 2021-08-18 12:39:33 发布

阅读量690

点赞数

分类专栏： asp 文章标签： asp xls excel

本文链接：https://blog.csdn.net/YUJIANYUE/article/details/84310301

版权

asp 专栏收录该内容

16 篇文章 0 订阅

订阅专栏

注意表格是.xls文件，表名sheet1

<%
excpath = "2012年12月_改了题目_工资查询.xls"
Set conn=Server.CreateObject("ADODB.Connection") 
Set rs = Server.CreateObject("ADODB.Recordset")
'StrConn="Driver={Microsoft Excel Driver (*.xls)};DriverId=790; DBQ="&Server.MapPath(excpath)
'StrConn="Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source="&server.MapPath(excpath)
StrConn="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source="&server.MapPath(excpath)
  conn.Open StrConn
Response.Write "<table cellspacing=""0"">"&vbcrlf
 Response.Write "<caption align='center'>查询结果</caption>"&vbcrlf
    Sql="select * from [sheet1$]"
    rs.Open Sql,conn,1,3 
    lis = rs.Fields.Count
 Response.Write "<tr class=""tt"">"&vbcrlf
    For x3=0 To rs.Fields.Count-1
       liename = rs.Fields(x3).Name
       response.Write "<td>"&liename&"</td>"
    Next
 Response.Write "</tr>"&vbcrlf
do while Not rs.EOF
    lis = rs.Fields.Count
 Response.Write "<tr>"&vbcrlf
    For x3=0 To rs.Fields.Count-1
       liename = rs.Fields(x3).Value
       response.Write "<td>"&liename&"</td>"
    Next
 Response.Write "</tr>"&vbcrlf
 rs.moveNext
 Loop
 Response.Write "</table>"&vbcrlf
rs.close
    set rs=nothing
    Conn.close
    set StrConn=nothing

    %>