Inicio>Tutorial de programación de red>Tutorial ASP

ASP implementa la importación de datos en Excel a la base de datos

Autor：Eve Cole Fecha de actualización：2025-03-17 07:00:03

Este artículo resume los métodos de usar ASP para importar datos de Excel a la base de datos.

ASP implementa la importación de datos en Excel a la base de datos

  1. <%Respuesta.codepage = 65001%>
  2. <%Respuesta.CharSet = UTF-8%>
  3. <%
  4. wenjian = request.form (seleccionar)
  6. 'Obtenga la extensión del archivo
  7. ext = FileExec (Wenjian)
  8. 'Juez Extensión del archivo
  9. ifext <> xlsthen
  10. Response.Write (<Script> Alert ('El tipo de archivo es incorrecto, por favor verifique!'); window.location.href = 'index.html'; </script>)
  11. respuesta.end ()
  12. endif
  14. Dimobjconn, objrs
  15. Dimstrconn, strsql
  17. setobjconn = server.createObject (ADODB.Connection)
  18. setobjrs = server.createObject (ADODB.RecordSet)
  20. Excelfile = Server.Mappath (Wenjian)
  21. 'Para Excel2007
  22. strconn = Provider = Microsoft.ace.OLEDB.12.0; DataSource = & Exalfile &; & ExtendedProperties = Excel8.0;
  23. objconn.openstrconn
  25. strsql = select*de [Hoja1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#includeFile = conn.asp-> <%
  31. 'Loop todos los registros en Excel
  32. mientras que
  34. setrs = server.createObject (ADODB.Recordset)
  35. 'Declaración de consulta
  36. sql_s = select*fromceshiwhereLname = '& objrs (0) &' andold = '& objrs (1) &' andsex = '& objrs (2) &' yguojia = '& objrs (3) &' andqq = '& objrs (4) &' '
  37. Rs.Opensql_S, Conn, 1,1
  38. 'No ingrese los datos duplicados
  39. IFRS.EOFTHEN
  40. 'Insertar la declaración
  41. '**** El primer elemento en Excel no se ingresará ****
  42. SQL = InsertInToceshi (lname, antiguo, sexo, guojia, qq) valores ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &', '& objrs (3) & ',' & objrs (4) & ')
  43. 'Ejecutar inserción
  44. Conn.execute (SQL)
  45. endif
  46. objrs.movenext
  47. rs.
  48. SETRS = nada
  49. encaminarse a
  51. 'Es hora de cerrar de nuevo
  52. Conn.clar
  53. setConn = nada
  54. objrs.clar
  55. objconn.close
  56. setobjrs = nada
  57. setobjconn = nada
  59. Response.Write (<Script> Alert ('Importar exitosamente'); Window.location.href = 'index.html'; </script>)
  60. respuesta.end ()
  62. FunctileExec (nombre de archivo)
  63. FileExec = mid (nombre de archivo, instrer (nombre de archivo ,.)+1, len (nombre de archivo) -instr (nombre de archivo ,.)))
  64. Función final
  65. %>

Comparte otra versión simplificada del código

  1. wenjian = request.form (piso)
  2. FileExt = Mid (Wenjian, Instrrev (Wenjian,.)+1)
  3. iflcase (fileext) <> xlsthen
  4. Response.write <Script> Alert ('El formato de archivo es incorrecto, cargue el archivo de Excel'); Window.location.href = 'updateFloor.asp'; </script>
  5. respuesta.
  6. endif
  7. setconne = server.createObject (ADODB.Connection)
  8. Connstre = Provider = Microsoft.Jet.OLEDB.4.0; DataSource = & Server.Mappath (& Wenjian &) &; ExtendedProperties = 'Excel8.0; HDR = YES; IMEX = 1';
  9. conne.openconnstre
  10. SQLE = SELECT*de [Hoja1 $]
  11. Setrse = server.createObject (ADODB.RecordSet)
  12. rse.opensqle, Conne, 1,1
  13. 'verificar
  14. Hang = 2
  15. dowhilenottrse.eof
  16. 'El nombre no puede estar vacío
  17. iftrim (rse (0)) <> entonces
  18. demás
  19. Mess = El nombre de & Hang & Line está vacío, por favor verifique!
  20. Response.Write <Script> Alert ('& Mess &'). Window.location.href = 'updateFloor.asp' </script>
  21. respuesta.end ()
  22. endif
  23. rse.movenext
  24. Hang = Hang+1
  25. bucle
  26. rse.movefirst
  27. dowhilenottrse.eof
  28. setrst = server.createObject (ADODB.RecordSet)
  29. sqlt = select*fromsellman
  30. rst.opensqlt, Conn, 1,3
  31. rsst.addnew ()
  32. RST (CompanyName) = C2 (RSE (0))
  33. RST (CompanyInfo) = C2 (RSE (1))
  34. RST (Dirección) = C2 (RSE (2))
  35. RST (Tel) = C2 (RSE (3)) && C2 (RSE (7))
  36. RST (fax) = C2 (RSE (4))
  37. RST (Linkman) = C2 (RSE (5))
  38. RST (Página de inicio) = C2 (RSE (8))
  39. RST (correo electrónico) = C2 (RSE (6))
  40. rsst.update ()
  41. rsst.lose
  42. setrst = nada
  43. rse.movenext
  44. bucle
  45. rse.close
  46. setTrse = nada
  47. Response.Write <Script> Alert ('Importado con éxito!'); ubicación.href = 'updateFloor.asp'; </script>

De hecho, simplemente colóquelo como una base de datos de acceso, abra el archivo de Excel, lea y escriba para acceder.

Mira el código:

  1. dimconn
  2. dimconn2
  3. setConn = createObject (ADODB.Connection)
  4. conn.openProvider = Microsoft.Jet.OLEDB.4.0; Jetoledb: DataBASEPASSWORD =; DataSource = C: /Book1.mdb
  6. setConn2 = createObject (ADODB.Connection)
  7. Conn2.openProvider = Microsoft.Jet.OLEDB.4.0; Jetoledb: DataBASEpassword =; ExtendedProperties = Excel5.0; DataSource = C: /Book1.xls
  10. SQL = SELECT*de [Hoja1 $]
  11. setRS = conn2.execute (SQL)
  12. mientras que
  13. sql = insertItoxxx ([a], [b], [c], [d]) valores ('& fixSql (rs (0)) &', '& fixSQL (rs (1)) &', '& FixSQl (rs (2 (2 )) & ',' & FixSql (rs (3)) & ')
  14. Conn.execute (SQL)
  15. Rs.Movenext
  16. encaminarse a
  18. Conn.clar
  19. setConn = nada
  20. conn2
  21. setConn2 = nada
  23. FINTOFIXSQL (STR)
  24. dimnewstr
  25. Newsstr = Str
  26. ifisnull (periodista) entonces
  27. Newsstr =
  28. demás
  29. Newsstr = Reemplazar (Newstr, ',' ')
  30. endif
  31. FIXSQL = Newstr
  32. Función final

Artículos relacionados