หน้าแรก>บทช่วยสอนการเขียนโปรแกรมเครือข่าย>กวดวิชา 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 (เลือก)
  6. 'รับนามสกุลไฟล์
  7. ext = fileexec (Wenjian)
  8. 'ผู้พิพากษานามสกุลไฟล์
  9. ifext <> xlsthen
  10. Response.write (<script> การแจ้งเตือน ('ประเภทไฟล์ไม่ถูกต้องโปรดตรวจสอบ!'); window.location.href = 'index.html'; </script>)
  11. Response.end ()
  12. endif
  14. dimobjconn, objrs
  15. dimstrconn, strsql
  17. setObjConn = server.createObject (adodb.connection)
  18. setObjrs = server.createObject (adodb.recordset)
  20. excellile = server.mappath (Wenjian)
  21. 'สำหรับ excel2007
  22. strConn = ผู้ให้บริการ = microsoft.ace.oledb.12.0; dataSource = & excellile &; & extendedProperties = excel8.0;
  23. objconn.openstronn
  25. strsql = select*จาก [sheet1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#include = conn.asp-> <%
  31. 'วนบันทึกทั้งหมดใน Excel
  32. whilenotobjrs.eof
  34. setRs = server.createObject (adodb.recordset)
  35. คำสั่งค้นหา
  36. sql_s = select*fromceshiwhereelname = '& objrs (0) &' Andold = '& objrs (1) &' Andsex = '& objrs (2) &' Andguojia = '& objrs (3) &' และ '& objrs (4) &' '
  37. Rs.opensql_s, Conn, 1,1
  38. 'อย่าป้อนข้อมูลที่ซ้ำกัน
  39. ifrs.eofthen
  40. 'คำสั่งแทรก
  41. '**** รายการแรกใน Excel จะไม่ถูกป้อน ****
  42. sql = insertintoceshi (lname, เก่า, เพศ, 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 ('นำเข้าสำเร็จ'); window.location.href = 'index.html'; </script>)
  60. Response.end ()
  62. FunctionFileExec (ชื่อไฟล์)
  63. fileexec = mid (ชื่อไฟล์, instr (ชื่อไฟล์,.)+1, len (ชื่อไฟล์) -instr (ชื่อไฟล์,.))))
  64. endfunction
  65. -

แบ่งปันรหัสเวอร์ชันที่เรียบง่ายอื่น

  1. wenjian = request.form (ชั้น)
  2. fileext = mid (Wenjian, Instrrev (Wenjian,.)+1)
  3. iflcase (fileext) <> xlsthen
  4. Response.Write <Script> การแจ้งเตือน ('รูปแบบไฟล์ไม่ถูกต้องโปรดอัปโหลดไฟล์ excel'); window.location.href = 'updatefloor.asp'; </script>
  5. Response.end
  6. endif
  7. setConne = server.createObject (adodb.connection)
  8. connstre = ผู้ให้บริการ = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendedProperties = 'excel8.0; hdr = ใช่; imex = 1';
  9. conne.openconnstre
  10. sqle = select*จาก [sheet1 $]
  11. setRse = server.createObject (adodb.recordset)
  12. RSE.OPENSQLE, Conne, 1,1
  13. 'ตรวจสอบ
  14. Hang = 2
  15. dowhilenottrse.eof
  16. 'ชื่อไม่ว่าง
  17. iftrim (rse (0)) <> จากนั้น
  18. อื่น
  19. Mess = ชื่อของ & Hang & Line ว่างเปล่าโปรดตรวจสอบ!
  20. Response.write <Script> Alert ('& mess &'). window.location.href = 'updateFloor.asp' </script>
  21. Response.end ()
  22. endif
  23. rse.movenext
  24. Hang = Hang+1
  25. วง
  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 (ชื่อ บริษัท ) = 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> การแจ้งเตือน ('นำเข้าสำเร็จ!'); 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)) &', '& 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) แล้ว
  27. Newsstr =
  28. อื่น
  29. Newsstr = แทนที่ (Newstr, ',' ')
  30. endif
  31. fixsql = newstr
  32. endfunction

บทความที่เกี่ยวข้อง