需要将运动员名单，由Excel中导入mdb 中，代码如下

'打开数据库
connstr="DBQ="+server.mappath("ydh.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")

'打开XLS. 
Set ConnXls = Server.CreateObject("ADODB.Connection")
Driver="Provider=Microsoft.Jet.OLEDB.4.0;"&_
"Data Source="&Server.MapPath("data.xls")&";"&_
"Extended Properties=""Excel 5.0;HDR=Yes;IMEX=1;"""
ConnXls.Open Driver

'读取数据. 
      Sql="Select * From [sheet1$]"
      Set rsRead=ConnXls.Execute(Sql)
      response.Write("----开始导入----<br>")
      do until rsRead.EOF 
'显示、写入数据库. 
            
   response.Write(rsRead.Fields("hm")&"&nbsp;")
   response.Write(rsRead.Fields("xm")&"&nbsp;")
   response.Write(rsRead.Fields("nj")&"&nbsp;")
   response.Write(rsRead.Fields("bj")&"&nbsp;")
   response.Write(rsRead.Fields("xb")&"<br>")
   Conn.Execute("Insert into xs(hm,xm,nj,bj,xb)Values('"& rsRead.Fields("hm")&"','" &rsRead.Fields("xm") & "','"&rsRead.Fields("nj")&"','"&rsRead.Fields("bj")&"','"&rsRead.Fields("xb")&"')" ) 
        rsRead.MoveNext 
   
       loop
    response.write "<script language=JavaScript>{window.alert('运动员数据导入完成!');window.location.href='set_xs.asp';}</script>"

需要注意：Excel表中第一行，为字段。