方法如下：  
实际上只要把Excel文件当作数据库，里面的Sheet当作数据库中的表来操作就可以，不同的只是驱动程序不一样，具体代码如下：  

set excelconn=server.createobject("adodb.connection")  
strAddr = Server.MapPath("uploaddata/testdata.xls") ’Excel源文件  
Response.Write "源文件："&strAddr&"
"  
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)&"
"  
excelrs.Movenext  
wend  
excelrs.close()  
set excelrs=nothing  
excelconn.Close()  
set excelconn=nothing