ASP程序将EXCEL数据导入ACCESS数据库

ASP程序将EXCEL数据导入ACCESS数据库，重新编排多个源码数据测试，能用！增加导入字段数量，实现各access数据库的批量导入。Excelupload.asp!DOCTYPEhtmlPUBLIC-//W3C//DTDXHTML1.0Transitional//EN==Content-Typecontent=text/html;charset=gb2312/title无标题文档/titlestyletype=text/css!--.STYLE1{color:#FF0000}--/style/headbodyformaction=excelToAccess.aspmethod=postname=form1id=form1pinputname=bbbtype=fileid=bbbsize=60//ppinputtype=submitname=Submit=提交//p/formpclass=STYLE1数据上传请找管理员，提前备份原数据库后方可操作，否则可能引数据丢失或格式混乱，并由管理员提供上传数据模板。/ppclass=STYLE1ahref=导入模板.xlstarget=_blank模板下载/a/p/body/htmlexcelToAccess.asp%@LANGUAGE=VBscriptCODEPAGE=936%%'sql连接驱动dimconn,connstr,time1,time2,mdbtime1=timer'如果是sql2000数据库，请用下面连接驱动'connstr=Driver={SQLServer};server=(local);uid=sa;pwd=123;database=jmgl2007;'如果是Access数据库，请用下面连接驱动connstr=Provider=Microsoft.Jet.OLEDB.4.0;DataSource=&Server.MapPath(../data/!##jxc##!.mdb)Setconn=Server.Createobject(ADODB.Connection)conn.OpenconnstrIfErrThenerr.ClearSetConn=NothingResponse.Write数据库连接出错，请检查连接字串。Response.EndEndIfsubclosedb()conn.closesetconn=nothingendsubdimaaaa=request.form(bbb)'获取传递过来的值DimStrConnect,ccDimobjConnDimrsDimSqlcc=0'Excel连接驱动aaa=provider=Microsoft.Jet.OLEDB.4.0;DataSource=&aa&;ExtendedProperties=Excel8.0setStrConnect=CreateObject(ADODB.Connection)StrConnect.OpenaaaSetobjConn=CreateObject(ADODB.Connection)objConn.OpenStrConnect'注意表名一定要以下边这种格试[表名$]书写Setrs=Server.CreateObject(ADODB.Recordset)'Sql=select*from[sheet1$]Sql=select*from[huiyuan$]rs.OpenSql,StrConnect,2,2IFrs.EofAndRs.BofThenresponse.Write(scriptalert('没有资料可以导入！');history.go(-1)/script)elsecc=0DoWhileNotrs.EOF'列出表内信息response.writeexcel数据为：response.write&rs(0)&|&rs(1)&-&rs(2)&-&rs(3)&-&rs(4)&-&rs(5)&-&rs(6)&-&rs(7)&-&rs(8)&-&rs(9)&-&rs(10)&-&rs(11)&-&rs(12)&-&rs(13)&-&rs(14)&-&rs(15)&-&rs(16)&-&rs(17)&-&rs(18)&-&rs(19)&-&rs(20)&-&rs(21)&-&rs(22)&response.writebrsetrssql=server.CreateObject(adodb.recordset)'插入excel表数据到SQL2000里rssql.Openselect*fromhuiyuan,conn,1,3'SQL数据表名rssql.AddNew'ifrs(0)then'rssql(0)=rs(0)'endififrs(0)thenrssql(1)=rs(1)endififrs(1)thenrssql(2)=rs(2)endififrs(2)thenrssql(3)=rs(3)endififrs(3)thenrssql(4)=rs(4)endififrs(4)thenrssql(5)=rs(5)endififrs(5)thenrssql(6)=rs(6)endififrs(6)thenrssql(7)=rs(7)endififrs(7)thenrssql(8)=rs(8)endififrs(8)thenrssql(9)=rs(9)endififrs(9)thenrssql(10)=rs(10)endififrs(10)thenrssql(11)=rs(11)endififrs(11)thenrssql(12)=rs(12)endififrs(12)thenrssql(13)=rs(13)endififrs(13)thenrssql(14)=rs(14)endififrs(14)thenrssql(15)=rs(15)endififrs(15)thenrssql(16)=rs(16)endififrs(16)thenrssql(17)=rs(17)endififrs(17)thenrssql(18)=rs(18)endififrs(18)thenrssql(19)=rs(19)endififrs(19)thenrssql(20)=rs(20)endififrs(20)thenrssql(11)=rs(11)endififrs(21)thenrssql(22)=rs(22)endifrssql.UpdateRs.MoveNextcc=cc+1Loopendifresponse.Writescriptlanguage=javascriptalert('资料导入成功！\n共有&cc&条数据导入');history.go(-1)/script%