Эта статья суммирует методы использования ASP для импорта данных из Excel в базу данных.
ASP реализует импорт данных в Excel в базу данных
- <%Response.codepage = 65001%>
- <%Response.charset = UTF-8%>
- <%
- wenjian = request.form (select)
- 'Получите расширение файла
- ext = fileExec (Wenjian)
- 'Судья Файл Расширение
- Ifext <> xlsthen
- response.write (<script> alert ('тип файла неверен, пожалуйста, проверьте!
- response.end ()
- эндиф
- Dimobjconn, objrs
- Dimstrconn, Strsql
- setObjConn = server.createObject (adodb.connection)
- setObjrs = server.createObject (adodb.recordset)
- Excelfile = server.mappath (Wenjian)
- 'Для Excel2007
- strConn = provider = microsoft.ace.oledb.12.0; dataSource = & Excelfile &; & ExtendendProperties = Excel8.0;
- objconn.openstrconn
- strsql = select*из [листовой 1 $]
- objrs.openstrsql, objconn, 1,1
- objrs.movefirst
- %> <!-#includefile = conn.asp-> <%
- 'Петлю все записи в Excel
- Пока
- setrs = server.createObject (adodb.recordset)
- 'Запрос
- sql_s = select*fromceshiwhereelname = '& objrs (0) &' andold = '& objrs (1) &' andsex = '& objrs (2) &' andguojia = '& objrs (3) &' andqq = '& objrs (4) &' '
- rs.opensql_s, conn, 1,1
- 'Не вводите дубликаты данных
- ifrs.eofthen
- 'Вставьте заявление
- **** Первый пункт в Excel не будет введен ****
- sql = insertintoceshi (lname, old, sex, guojia, qq) ценности ('& objrs (0) &', '& objrs (1) &', '& objrs (2) &', '& objrs (3) &', '& objrs (3) & ',' & objrs (4) & ')
- 'Выполнить вставку
- conn.execute (sql)
- эндиф
- objrs.movenext
- Rs.close
- setrs = ничего
- Венд
- 'Пришло время снова закрыться
- Conn.close
- setConn = ничего
- objrs.close
- objconn.close
- setobjrs = ничего
- setobjconn = ничего
- response.write (<script> alert ('import успешно'); window.location.href = 'index.html'; </script>)
- response.end ()
- FunctionFileExec (имя файла)
- FileExec = mid (имя файла, instr (filename ,.)+1, len (имя файла) -instr (имя файла ,.))
- Конечная функция
- %>
Поделиться еще одной упрощенной версией кода
- wenjian = request.form (этаж)
- fileExt = mid (wenjian, instrrev (wenjian ,.)+1)
- iflcase (fileext) <> xlsthen
- response.write <script> alert ('Формат файла неверен, пожалуйста, загрузите файл Excel'); window.location.href = 'updatefloor.asp'; </script>
- response.end
- эндиф
- setConne = server.createObject (adodb.connection)
- connstre = provider = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendendProperties = 'Excel8.0; hdr = yes; imex = 1';
- Conne.openconstre
- SQLE = SELECT*FROM [Sheet1 $]
- Setrse = server.createObject (adodb.recordset)
- rse.opensqle, Conne, 1,1
- 'проверять
- подвес = 2
- dowhilenottrse.eof
- 'Имя не может быть пустым
- iftrim (rse (0)) <> then
- еще
- Mess = название Line & Hang & Line пусто, пожалуйста, проверьте!
- response.write <script> alert ('& mess &'). window.location.href = 'updatefloor.asp' </script>
- response.end ()
- эндиф
- rse.movenext
- Повесить = подвески+1
- петля
- rse.movefirst
- dowhilenottrse.eof
- setrst = server.createObject (adodb.recordset)
- SQLT = SELECT*OUTSELLMAN
- rst.opensqlt, conn, 1,3
- rsst.addnew ()
- rst (companyName) = c2 (rse (0))
- rst (companyInfo) = c2 (rse (1))
- rst (адрес) = c2 (rse (2))
- rst (tel) = c2 (rse (3)) && c2 (rse (7))
- RST (факс) = C2 (RSE (4))
- rst (linkman) = c2 (rse (5))
- RST (HomePage) = C2 (RSE (8))
- rst (электронная почта) = c2 (rse (6))
- rsst.update ()
- rsst.close
- setrst = ничего
- rse.movenext
- петля
- rse.close
- settrse = ничего
- response.write <script> alert ('«Импортирован успешно!»); location.href =' updatefloor.asp '; </script>
На самом деле, просто поместите это просто как база данных Access, откройте файл Excel, прочитайте и напишите его для доступа.
Посмотрите на код:
- Димконн
- DimConn2
- setConn = createObject (adodb.connection)
- conn.openprovider = microsoft.jet.oledb.4.0; jetoledb: databasepassword =; dataSource = c: /book1.mdb
- setConn2 = createObject (adodb.connection)
- conn2.openprovider = microsoft.jet.oledb.4.0; jetoledb: databasepassword =; extendendproperties = Excel5.0; DataSource = c: /book1.xls
- SQL = SELECT*FROM [SHITE1 $]
- setrs = conn2.execute (sql)
- Пока
- sql = insertintoxxx ([a], [b], [c], [d]) значения ('& fixsql (rs (0)) &', '& fixsql (rs (1)) &', '& fixSQL (rs (2 )) & ',' & fixsql (rs (3)) & ')
- conn.execute (sql)
- Rs.movenext
- Венд
- Conn.close
- setConn = ничего
- conn2.close
- setConn2 = ничего
- functionfixsql (str)
- Dimnewstr
- Newsstr = str
- ifisnull (Newstr) Then
- Newsstr =
- еще
- Newsstr = Заменить (Newstr, ',' ')
- эндиф
- fixSQL = Newstr
- конечная функция