长时间没有象这几天这样集中精力来写代码了，写代码中遇到了这样的问题，需要把Excel文件的内容读出来，显示出来，查找了一下资料，解决方法如下：
实际上只要把Excel文件当作数据库，里面的Sheet当作数据库中的表来操作就可以，不同的只是驱动程序不一样，具体代码如下：
set excelconn=server.createobject("adodb.connection")
strAddr = Server.MapPath("uploaddata/testdata.xls") 'Excel源文件
Response.Write "源文件："&strAddr&"<BR>"
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr ‘打开此文件
'建立excel记录集
set excelrs=server.createobject("adodb.recordset")
sql="select * from [Sheet1$]" '查询
excelrs.open sql,excelconn,1,1
While not excelrs.Eof
Response.write excelrs(0) &","&excelrs(1) &","& excelrs(2) &","& excelrs(3)&"<br />"
excelrs.Movenext
wend
excelrs.close()
set excelrs=nothing
excelconn.Close()
set excelconn=nothing
精品推荐