资讯中心

完整代码：

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

<%Set conn = Server.CreateObject("ADODB.Connection")

connStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../jsexcelUp/G6E00I61A.xls")&";Extended Properties='Excel 8.0;HDR=Yes;IMEX=1';"

'加粗部分为excel在本服务器上的存储路径，hdr取值yes,no ,表示第一行是否为字段名

conn.open connstr

Set rs=Server.CreateObject("ADODB.Recordset") 

sql = "select * from [sheet1$]"  '表名后面一定要加$

rs.open sql,conn,1,1

rows=rs.recordcount '统计读取记录的条数

cells=rs.Fields.Count '每条记录的单元格数

'循环输出数据

Do while not rs.Eof

     For i = 0 to cells-1

     Response.Write(rs(i))

     Next

     Response.Write("")

rs.movenext

'如果第一行为字段名，可以用rs（i）("字段名称")输出指定的单元格内容

Loop

rs.close

set rs = nothing

conn.close

set conn = nothing

%>

以上代码经小编亲测，输出正常！如果大家使用过程有错误的可以联系小编协助解决。

上一篇：网站维护技巧 管理公司网站如何做出成效

下一篇：没有了