ASP读取EXL表格数据

在维护旧OA的过程当中，客户须要添加一个新功能，简单点就是经过导入exl，而后读取到里面的数据，节省录入的时间。

开始的时候想经过js导入exl数据到表单里面，上网百度了一下，没找到一个能用的。即便能够使用，也存在兼容问题。因此使用了一下方法

<%
dim conn1    '定义第二个链接变量
set conn1=CreateObject("ADODB.Connection")  
conn1.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Extended properties=Excel 5.0;Data Source="&Server.MapPath("../UserInfo/user.xls")'要导入的EXCEL表名称Fang.xls

sql = "SELECT * FROM [Sheet1$]"      '要导入的Excel数据里面的表的名称，后面必定要加$
set rs = conn1.execute(sql)  
while not rs.eof 
Response.Write  "0"&rs(0)&"<Br>"  
Response.Write  "1"&rs(1)&"<Br>"  
Response.Write  "2"&rs(2)&"<Br>"  
Response.Write  "3"&rs(3)&"<Br>"  
Response.Write  "4"&rs(4)&"<Br>"  
Response.Write  "5"&rs(5)&"<Br>"  
Response.Write  "6"&rs(6)&"<Br>"  
Response.Write  "7"&rs(7)&"<Br>"  
Response.Write  "8"&rs(8)&"<Br>"  
Response.Write  "9"&rs(9)&"<Br>"  
Response.Write  "10"&rs(10)&"<Br>"  
Response.Write  "11"&rs(11)&"<Br>"  
Response.Write  "12"&rs(12)&"<Br>"  
Response.Write  "13"&rs(13)&"<Br>"  
Response.Write  "14"&rs(14)&"<Br>"  
Response.Write  "15"&rs(15)&"<Br>"  
Response.Write  "16"&rs(16)&"<Br>"  
Response.Write  "17"&rs(17)&"<Br>"  
Response.Write  "18"&rs(18)&"<Br>"  
Response.Write  "19"&rs(19)&"<Br>"  
Response.Write  "20"&rs(20)&"<Br>" 
Response.Write  "21"&rs(21)&"<Br>"  
Response.Write  "22"&rs(22)&"<Br>"
Response.Write  "23"&rs(23)&"<Br>"
Response.Write  "24"&rs(24)&"<Br>"
Response.Write  "25"&rs(25)&"<Br>"  
rs.movenext  

Response.Flush  
wend  
set rs = nothing

sql2 = "SELECT * FROM [Sheet2$]"   '导入的Excel数据里面的Sheet表的数据
set rs2 = conn1.execute(sql2)  
while not rs2.eof 
Response.Write  "0"&rs2(0)&"<Br>"  
Response.Write  "0"&rs2(1)&"<Br>"  
Response.Write  "0"&rs2(2)&"<Br>"  
Response.Write  "0"&rs2(3)&"<Br>" 
rs2.movenext  
Response.Flush  
wend  
set rs2 = nothing

conn1.close  
set conn1 = nothing  

%>

若是哪位有更加好的方法欢迎分享，尤为是js读取exl方面。