الصفحة الرئيسية>دروس برمجة الشبكات>البرنامج التعليمي لـ ASP

يقوم ASP بتنفيذ استيراد البيانات في Excel إلى قاعدة البيانات

الكاتب：Eve Cole وقت التحديث：2025-03-17 07:00:03

تلخص هذه المقالة طرق استخدام ASP لاستيراد البيانات من Excel إلى قاعدة البيانات.

يقوم ASP بتنفيذ استيراد البيانات في Excel إلى قاعدة البيانات

  1. <٪ استجابة. codepage = 65001 ٪>
  2. <٪ استجابة. Charset = UTF-8 ٪>
  3. <٪
  4. wenjian = request.form (حدد)
  6. احصل على ملحق الملف
  7. ext = fileexec (Wenjian)
  8. "القاضي ملحق الملف
  9. ifext <> xlsthen
  10. Response.write (<script> ALERT ('نوع الملف غير صحيح ، يرجى التحقق!') ؛ window.location.href = 'index.html' ؛ </script>)
  11. استجابة.
  12. Endif
  14. Dimobjconn ، objrs
  15. Dimstrconn ، Strsql
  17. setObjConn = server.createBject (adodb.connection)
  18. setObjrs = server.createBject (adodb.recordset)
  20. Excelfile = server.mappath (Wenjian)
  21. 'ل Excel2007
  22. strconn = provider = microsoft.ace.oledb.12.0 ؛ dataSource = & Excelfile & ؛ & ExtendedProperties = excel8.0 ؛
  23. objconn.openstrconn
  25. strsql = حدد*من [sheet1 $]
  27. objrs.openstrsql ، objconn ، 1،1
  28. objrs.movefirst
  30. ٪> <!-#includefile = conn.asp-> <٪
  31. حلقة جميع السجلات في Excel
  32. whilenotobjrs.eof
  34. setRs = server.createBject (adodb.recordset)
  35. بيان الاستعلام
  36. sql_s = select*fromCeshiwereName = '& objrs (0) &' Andold = '& objrs (1) &' andsex = '& objrs (2)
  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. Endif
  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 bantaving') ؛ window.location.href = 'index.html' ؛ </script>)
  60. استجابة.
  62. FunctionFileexec (اسم الملف)
  63. fileexec = mid (filename ، instr (filename ،.)+1 ، len (filename) -instr (filename ،)))
  64. الوظيفية
  65. ٪>

مشاركة نسخة مبسطة أخرى من الرمز

  1. wenjian = request.form (floor)
  2. filext = mid (wenjian ، instrev (wenjian ،.)+1)
  3. iflcase (filext) <> xlsthen
  4. Response.write <Script> ALERT ('تنسيق الملف غير صحيح ، يرجى تحميل ملف excel') ؛ window.location.href = 'updatefloor.asp' ؛ </script>
  5. استجابة
  6. Endif
  7. setConne = server.createObject (ADODB.Connection)
  8. connstre = provider = microsoft.jet.oledb.4.0 ؛ datasource = & server.mappath (& wenjian &)
  9. conne.openconnstre
  10. sqle = حدد*من [sheet1 $]
  11. setrse = server.createBject (adodb.recordset)
  12. RSE.Opensqle ، Conne ، 1،1
  13. 'يؤكد
  14. شنق = 2
  15. dowhilenottrse.eof
  16. لا يمكن أن يكون الاسم فارغًا
  17. Iftrim (RSE (0)) <> ثم
  18. آخر
  19. الفوضى = اسم & Hang & Line فارغ ، يرجى التحقق!
  20. Response.write <Script> Alert ('& mess &'). window.location.href = 'updatefloor.asp' </script>
  21. استجابة.
  22. Endif
  23. RSE.Movenext
  24. شنق = شنق+1
  25. حلقة
  26. rse.movefirst
  27. dowhilenottrse.eof
  28. setRst = server.createBject (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 (العنوان) = 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 (الصفحة الرئيسية) = 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>

في الواقع ، ببساطة مثل قاعدة بيانات الوصول ، افتح ملف Excel ، وقراءته واكتبه للوصول.

انظر إلى الكود:

  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*من [sheet1 $]
  11. setRs = conn2.execute (SQL)
  12. whilenotrs.eof
  13. SQL = insertintoxxx ([A] ، [B] ، [C] ، [D]) ('& fixsql (rs (0)) &' ، '& fixsql (rs (1)) &' ، '& fixql (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) ثم
  27. newsstr =
  28. آخر
  29. NewsStr = استبدال (Newstr ، '،' ')
  30. Endif
  31. FixSql = NewsTr
  32. الوظيفية

مقالات ذات صلة