(ASP源码)求一个可用Excel数据批量导入到Access的ASP程序

完全正确的过程，我先做完实验才回答的：
第一步：建立好你的access数据表对应excel的各个字段。
第二步：asp与excel建立联系，从excel中读取数据，具体代码如下：
<%
'创建数据库连接对象
set excelconn=server.createobject("adodb.connection")
'获取你的excel数据表路径，将excel1替换为你的excel文件名
strAddr1 = Server.MapPath("excel1.xls")
'打开excel数据源
excelconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & strAddr1
'建立excel记录集
set excelrs=server.createobject("adodb.recordset")
'你的sql语句，sheet1替换为你的表名
sql="select * from [Sheet1$]"
'执行sql语句
excelrs.open sql,excelconn,1,1
%>
第三步：建立asp与access的联系，循环将刚刚数据集中的内容填入access表中，具体代码：
<%
set accessconn=server.createobject("adodb.connection")
strAddr2 = Server.MapPath("test.mdb")
accessconn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strAddr2
do while not excelrs.eof
'此处只做了一个字段的例子，假定你的access中表名为excel
addsql="insert into excel(num1) values('"& excelrs("num1")&"')"
excelrs.movenext
loop
%>
第四步：如果有问题可以联系我，然后如果有效，请加分给我，谢谢。

不用程序就可以将Excel的数据导入Access的你照我的方法试试看。。先打开access。点文件--获取外部数据--导入--将你要导入的excel选中就能导入了。试试吧

access本身就可以打开excel文件