如何将excel数据通过asp导入数据库

将excel数据通过asp导入数据库：

参考代码：

wenjian=request.Form("floor")

fileext=mid(wenjian,InStrRev(wenjian,".")+1)

if lcase(fileext)<>"xls" then

response.write "<script>alert ('文件格式不对，请上传Excel文件')window.location.href='updateFloor.asp'</script>"

response.end

end if

set conne=server.CreateObject("ADODB.Connection")

connStre="Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath( ""&wenjian&"" )&"Extended Properties='Excel 8.0HDR=YESIMEX=1'"

conne.open connStre

Sqle="select * from [sheet1$] "

Set rse = Server.CreateObject("ADODB.Recordset")

rse.open sqle,conne,1,1

'验证

hang=2

do while not rse.eof

'名称不能为空

if trim(rse(0))<>"" then

else

mess="第"&hang &"行名称为空，请检查！"

response.Write"<script>alert('"&mess &"').window.location.href='updateFloor.asp'</script>"

response.End()

end if

rse.movenext

hang=hang+1

loop

rse.movefirst

do while not rse.eof

set rst=server.CreateObject("adodb.recordset")

sqlt="select * from Sellman"

rst.open sqlt,conn,1,3

rst.addnew()

rst("CompanyName")=c2(rse(0))

rst("CompanyInfo")=c2(rse(1))

rst("address")=c2(rse(2))

rst("tel")=c2(rse(3))&" "&c2(rse(7))

rst("Fax")=c2(rse(4))

rst("linkman")=c2(rse(5))

rst("Homepage")=c2(rse(8))

rst("Email")=c2(rse(6))

rst.update()

rst.close

set rst=nothing

rse.movenext

loop

rse.close

set rse=nothing

response.Write "<script>alert('导入成功!')location.href='updateFloor.asp'</script>"

下面连接到test.xls表sheet1$ '表后面要加个$的,一定要加这个符号

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open "Driver={Microsoft Excel Driver (*.xls)}ReadOnly=0DBQ=" &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.0Data 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

---