'access数据连接conn就不写了。这里举个简单例子。
strAddr=server.MapPath("data.xls")
set excelconn=server.createobject("adodb.connection")
excelconn.open "Provider = Microsoft.Jet.OLEDB.4.0 ; Data Source = "+strAddr+";Extended Properties='Excel 8.0;HDR=NO;IMEX=1'"
set rs=server.CreateObject("adodb.recordset")
set rs1=server.CreateObject("adodb.recordset")
sql="select * from [Sheet1$]"
rs.open sql,excelconn,1,1
if not(rs.bof and rs.eof) then
rs.movenext
do while not rs.eof
sql1="select * from student"
rs1.open sql1,conn,1,3
rs1.addnew
rs1("name")=rs(0)
rs1("bj")=rs(1)
rs1("xb")=rs(2)
rs1("xh")=rs(3)
rs1.update
rs1.close
rs.movenext
loop
end if
rs.close()
set rs=nothing
set rs1=nothing
excelconn.Close()
set excelconn=nothing
你调试看看,应给可以看明白的吧。。Q群85486978
温馨提示:答案为网友推荐,仅供参考