Cómo leer archivos de Excel usando ASP

El siguiente es un ejemplo de código que lee un archivo EXCEL y lo escribe en la base de datos después de la prueba:

Nota: Los nombres de las columnas en EXCEL deben ser los mismos que los campos de la base de datos

<. p>lt;

i=0

Dim cn, oConn, connstr

'Abrir XLS.

Establecer cn = Servidor. CreateObject("ADODB .Connection")

cn.Provider = "Microsoft.Jet.OLEDB.4.0 "

cn.ConnectionString = "Data Source=" amp; "list.xls ") amp;" amp; _

"Propiedades extendidas=Excel 8.0;"

cn.Open

'Abrir el MDB .

connstr="DBQ=" server.MapPath("TEST.mdb") ";DefaultDir=;DRIVER={Controlador de Microsoft Access (*.mdb)};"

establecer oConn=server.CreateObject ("ADODB.CONNECTION")

oConn.open connstr

'Leer datos.

set rsRead=server.CreateObject("ADODB.Recordset")

rsRead.open "seleccionar * de [lista$]", cn, 1, 1

hacer hasta rsRead.EOF

'Escribir en la base de datos. Write("lt;p align=centergt;Importado con éxito "amp;iamp; "datalt;/pgt;lt;brgt;")

response.Write("lt;p align=centergt;lt; a href=javascript：window.close()gt; cerrar ventanalt;/agt;lt;/pgt;")

gt;