请问 EXCEL表中的数据导到ACCESS里面去 用asp怎么写,拜托各位高手了..........

<!--#include file="conn.asp"-->
生成EXCEL文件...
<%

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

sqlStr="select * from jg"

rs.open sqlStr,conn,3,4

set xlApp = Server.CreateObject("Excel.Application")
'使服务端不出现Excel窗口
xlApp.Visible = false
'建立一个worksheet
set myWorkbook = xlApp.Workbooks.Add
set myWorksheet = myWorkbook.Worksheets(1) '设置工作区
'建立表头

myWorksheet.Range("A1").Value ="          中国矿业大学徐海学院师资情况统计表        "
myWorksheet.Range("A1").Font.Size = 20
myWorksheet.Range("A1").Font.Bold = true '字体加粗

myWorksheet.Range("A2").Value ="序号"
myWorksheet.Range("B2").Value ="学年"
myWorksheet.Range("C2").Value ="学期"
myWorksheet.Range("D2").Value ="聘用方式"
myWorksheet.Range("E2").Value ="姓名"
myWorksheet.Range("F2").Value ="性别"
myWorksheet.Range("G2").Value ="民族"
myWorksheet.Range("H2").Value ="出生年月"
myWorksheet.Range("I2").Value ="政治面貌"
myWorksheet.Range("J2").Value ="职称"
myWorksheet.Range("k2").Value ="职称级别"
myWorksheet.Range("L2").Value ="学历"
myWorksheet.Range("M2").Value ="学位"
myWorksheet.Range("N2").Value ="学科"
myWorksheet.Range("O2").Value ="授课名称"
myWorksheet.Range("P2").Value ="课程性质"
myWorksheet.Range("Q2").Value ="联系电话"
myWorksheet.Range("W2").Value ="所能胜任的课程"
myWorksheet.Range("S2").Value ="退休"
myWorksheet.Range("T2").Value ="所在院系"
myWorksheet.Range("U2").Value ="备注"

j=1:i=3
While Not rs.eof

myWorksheet.Range("A"&i).Value = j '序号
myWorksheet.Range("B"&i).Value = RS("xuenian")
myWorksheet.Range("C"&i).Value = RS("xueqi")
myWorksheet.Range("D"&i).Value = RS("pyfs")
myWorksheet.Range("E"&i).Value = RS("name")
myWorksheet.Range("F"&i).Value = RS("sex")
myWorksheet.Range("G"&i).Value = RS("mingzu")
myWorksheet.Range("H"&i).Value = cStr(RS("birthday"))
myWorksheet.Range("I"&i).Value = RS("mianmao")
myWorksheet.Range("J"&i).Value = RS("zhicheng")
myWorksheet.Range("K"&i).Value = RS("zhichengjb")
myWorksheet.Range("L"&i).Value = RS("xueli")
myWorksheet.Range("M"&i).Value = RS("xuewei")
myWorksheet.Range("N"&i).Value = RS("xueke")
myWorksheet.Range("O"&i).Value = RS("shouke")
myWorksheet.Range("P"&i).Value = RS("kechengxz")
myWorksheet.Range("Q"&i).Value = RS("phone")
myWorksheet.Range("R"&i).Value = RS("kecheng")
myWorksheet.Range("S"&i).Value = RS("tuixiu")
myWorksheet.Range("T"&i).Value = RS("yuanxi")
myWorksheet.Range("U"&i).Value = RS("beizhu")

j=j+1
i=i+1
rs.movenext
Wend
myWorksheet.Range("R"&i).Value = "中国矿业大学徐海学院"
myWorksheet.Range("R"&i).Font.Size = 10
myWorksheet.Range("R"&i).Font.Bold = true

rs.close
set rs=nothing
myWorksheet.Range("A2:U2").Font.Bold = true
'-----------------确保文件名唯一-----------------
dim filename
filename=day(date())&Second(time())
strFileName ="xuhai"&"_"&filename& ".xls"
strAppPath = Request.ServerVariables("PATH_TRANSLATED")

strAppPath = Left(strAppPath, InstrRev(strAppPath, "\"))
strFullPath = strAppPath&"xls\" & strFileName
myWorkbook.SaveAs(strFullPath) '另存Excel文件
myWorkbook.Close'关闭Excel
xlApp.Quit '一定要退出
set myWorksheet = Nothing
set myWorkbook = Nothing
set myxlApp = Nothing
'ok_url "生成完成！","index.asp"
'写出到浏览器中
response.write("生成总表成功，点击 <font color=green>√</font><a href='xls\"&strFileName&"'>下载</a> <font color=green>√</font><a href='javascript:window.close()'>关闭</a>")
'Response.Redirect "xls\" &strFileName
'另外，生成的这个文件是否要删除，可以把这个文件名保存到数据库，过一定时间删除
%>

实现Excel数据批量导入到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的驱动在遇到这种问题时就会出错的。例如你的行标题名为“F1”
'iiii)如果你的Excel电子表格中某一列同时包含了文本和数字的话,那么Excel的ODBC驱动将不能够正常, 处理这一行的数据类型，你必须要保证该列的数据类型一致