asp导入数据库到网页.docx

ASP导入数据库到网页 用ASP编的一个网站，数据库是 Access数据库名称是atest,里面有个表格user, user表格有 user和password两个字段现要将 Excel表格（名称是test.xls）的数据导入到atest数据库的user 表中，怎么实现？高手支招 下面连接到 test.xls 表 sheet1$ 表后面要加个 $的,一定要加这个符号 Set conn = Server.CreateObject(ADODB.Connection) conn.Open Driver={Microsoft Excel Driver (*.xls)};ReadOnly=0;DBQ= Server.MapPath(test.xls) SQL1=select * from [sheet1$] Set rs = Server.CreateObject(ADODB.Recordset) rs.Open SQL1, conn, 3, 3 下面连接到 atest.mdb 表 user curDir = Server.MapPath(atest.mdb) Set conn1 = Server.CreateObject(ADODB.Connection) conn1.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source= curDir Set rs1 = Server.CreateObject(ADODB.Recordset) Set rs1.ActiveConnection = conn1 rs1.Source = select * from user rs1.CursorType = 3 adOpenKeyset rs1.LockType = 3 adLockOptimistic rs1.Open Do While Not rs.Eof rs1.AddNew rs1(0)=j for i=0 to rs.Fields.Count-1 rs1(i)=Trim(rs(i)) Next rs1.Update rs.MoveNext j=j+1 Loop rs.Close rs1.Close conn.Close conn1.Close Set rs=nothing Set conn=nothing 在ASP中怎样把EXCEL导入ACCESS demo.asp % Dim cn,oConn,connstr 打开 XLS. Set cn = Server.CreateObject(ADODB.Connection) cn.Provider = Microsoft.Jet.OLEDB.4.0 cn.ConnectionString = Data Source= Server.MapPath(data.xls) ; _ Extended Properties=Excel 8.0; cn.Open 打开 MDB. connstr=DBQ=+server.MapPath(data.mdb)+;DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)}; set oConn=server.CreateObject(ADODB.CONNECTION) oConn.open connstr 读取数据 . set rsRead=server.CreateObject(ADODB.Recordset) rsRead.Open select * from [Sheet1$],cn,1,1 do until rsRead.EOF 写入数据库 . oConn.Execute(Insert into users(userid,password)Values( rsRead.Fields(userid), rsRead.Fields(password) ) ) rsRead.MoveNext loop % 数据库 data.mdb 表 users id,uesrid,password Excel 文件 data.xls 数据 userid password wang w521 zhange z254 hong h112 ================!!!!ASP读取 EXCEL注事项！!!!====================== i）将Excel97或Excel2000生成的XLS文件（book）看成一个数据库，其中的每一个工作表 （sheet） 看成数据库表 ii）ADO 假设 Excel 中的第一行为字段名 .所以你定义的范围中必须要包括第一行的内容 iii）Excel中的行标题（即字段名）不能够包含数字 .Excel的驱动在遇到这种问题时就会