Главная страница>Учебник по сетевому программированию>Учебное пособие по ASP

ASP реализует импорт данных в Excel в базу данных

Автор：Eve Cole Время обновления：2025-03-17 07:00:03

Эта статья суммирует методы использования ASP для импорта данных из Excel в базу данных.

ASP реализует импорт данных в Excel в базу данных

  1. <%Response.codepage = 65001%>
  2. <%Response.charset = UTF-8%>
  3. <%
  4. wenjian = request.form (select)
  6. 'Получите расширение файла
  7. ext = fileExec (Wenjian)
  8. 'Судья Файл Расширение
  9. Ifext <> xlsthen
  10. response.write (<script> alert ('тип файла неверен, пожалуйста, проверьте!
  11. response.end ()
  12. эндиф
  14. Dimobjconn, objrs
  15. Dimstrconn, Strsql
  17. setObjConn = server.createObject (adodb.connection)
  18. setObjrs = server.createObject (adodb.recordset)
  20. Excelfile = server.mappath (Wenjian)
  21. 'Для Excel2007
  22. strConn = provider = microsoft.ace.oledb.12.0; dataSource = & Excelfile &; & ExtendendProperties = Excel8.0;
  23. objconn.openstrconn
  25. strsql = select*из [листовой 1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#includefile = conn.asp-> <%
  31. 'Петлю все записи в Excel
  32. Пока
  34. setrs = server.createObject (adodb.recordset)
  35. 'Запрос
  36. sql_s = select*fromceshiwhereelname = '& objrs (0) &' andold = '& objrs (1) &' andsex = '& objrs (2) &' andguojia = '& objrs (3) &' andqq = '& objrs (4) &' '
  37. rs.opensql_s, conn, 1,1
  38. 'Не вводите дубликаты данных
  39. ifrs.eofthen
  40. 'Вставьте заявление
  41. **** Первый пункт в Excel не будет введен ****
  42. sql = insertintoceshi (lname, old, sex, guojia, qq) ценности ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &', '& objrs (3) & ',' & objrs (4) & ')
  43. 'Выполнить вставку
  44. conn.execute (sql)
  45. эндиф
  46. objrs.movenext
  47. Rs.close
  48. setrs = ничего
  49. Венд
  51. 'Пришло время снова закрыться
  52. Conn.close
  53. setConn = ничего
  54. objrs.close
  55. objconn.close
  56. setobjrs = ничего
  57. setobjconn = ничего
  59. response.write (<script> alert ('import успешно'); window.location.href = 'index.html'; </script>)
  60. response.end ()
  62. FunctionFileExec (имя файла)
  63. FileExec = mid (имя файла, instr (filename ,.)+1, len (имя файла) -instr (имя файла ,.))
  64. Конечная функция
  65. %>

Поделиться еще одной упрощенной версией кода

  1. wenjian = request.form (этаж)
  2. fileExt = mid (wenjian, instrrev (wenjian ,.)+1)
  3. iflcase (fileext) <> xlsthen
  4. response.write <script> alert ('Формат файла неверен, пожалуйста, загрузите файл Excel'); window.location.href = 'updatefloor.asp'; </script>
  5. response.end
  6. эндиф
  7. setConne = server.createObject (adodb.connection)
  8. connstre = provider = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendendProperties = 'Excel8.0; hdr = yes; imex = 1';
  9. Conne.openconstre
  10. SQLE = SELECT*FROM [Sheet1 $]
  11. Setrse = server.createObject (adodb.recordset)
  12. rse.opensqle, Conne, 1,1
  13. 'проверять
  14. подвес = 2
  15. dowhilenottrse.eof
  16. 'Имя не может быть пустым
  17. iftrim (rse (0)) <> then
  18. еще
  19. Mess = название Line & Hang & Line пусто, пожалуйста, проверьте!
  20. response.write <script> alert ('& mess &'). window.location.href = 'updatefloor.asp' </script>
  21. response.end ()
  22. эндиф
  23. rse.movenext
  24. Повесить = подвески+1
  25. петля
  26. rse.movefirst
  27. dowhilenottrse.eof
  28. setrst = server.createObject (adodb.recordset)
  29. SQLT = SELECT*OUTSELLMAN
  30. rst.opensqlt, conn, 1,3
  31. rsst.addnew ()
  32. rst (companyName) = c2 (rse (0))
  33. rst (companyInfo) = c2 (rse (1))
  34. rst (адрес) = c2 (rse (2))
  35. rst (tel) = c2 (rse (3)) && c2 (rse (7))
  36. RST (факс) = C2 (RSE (4))
  37. rst (linkman) = c2 (rse (5))
  38. RST (HomePage) = C2 (RSE (8))
  39. rst (электронная почта) = c2 (rse (6))
  40. rsst.update ()
  41. rsst.close
  42. setrst = ничего
  43. rse.movenext
  44. петля
  45. rse.close
  46. settrse = ничего
  47. response.write <script> alert ('«Импортирован успешно!»); location.href =' updatefloor.asp '; </script>

На самом деле, просто поместите это просто как база данных Access, откройте файл Excel, прочитайте и напишите его для доступа.

Посмотрите на код:

  1. Димконн
  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 =; extendendproperties = Excel5.0; DataSource = c: /book1.xls
  10. SQL = SELECT*FROM [SHITE1 $]
  11. setrs = conn2.execute (sql)
  12. Пока
  13. sql = insertintoxxx ([a], [b], [c], [d]) значения ('& fixsql (rs (0)) &', '& fixsql (rs (1)) &', '& fixSQL (rs (2 )) & ',' & fixsql (rs (3)) & ')
  14. conn.execute (sql)
  15. Rs.movenext
  16. Венд
  18. Conn.close
  19. setConn = ничего
  20. conn2.close
  21. setConn2 = ничего
  23. functionfixsql (str)
  24. Dimnewstr
  25. Newsstr = str
  26. ifisnull (Newstr) Then
  27. Newsstr =
  28. еще
  29. Newsstr = Заменить (Newstr, ',' ')
  30. эндиф
  31. fixSQL = Newstr
  32. конечная функция

Связанные статьи