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方面。