홈페이지>네트워크 프로그래밍 튜토리얼>ASP 튜토리얼

ASP는 데이터베이스로 데이터 가져 오기를 구현합니다

저자：Eve Cole 업데이트 시간：2025-03-17 07:00:03

이 기사는 ASP를 사용하여 Excel에서 데이터를 데이터베이스로 가져 오는 방법을 요약합니다.

ASP는 데이터베이스로 데이터 가져 오기를 구현합니다

  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 (<cript> alert ( '파일 유형이 잘못되었고 확인하십시오!'); window.location.href = 'index.html'; </script>)
  11. 응답 ()
  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. 'Excel2007의 경우
  22. strconn = provider = microsoft.ace.oledb.12.0; dataSource = & excfilile &; & extendedProperties = Excel8.0;
  23. objconn.openstronn
  25. strsql = select*from [sheet1 $]
  27. objrs.openstrsql, objconn, 1,1
  28. objrs.movefirst
  30. %> <!-#includefile = conn.asp-> <%
  31. 'Excel의 모든 레코드를 루프하십시오
  32. whilenotobjrs.eof
  34. setrs = server.createobject (adodb.recordset)
  35. '쿼리 문
  36. sql_s = select*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. 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 (<cript> alert ( '성공적으로'); window.location.href = 'index.html'; </script>)
  60. 응답 ()
  62. functionfileExec (filename)
  63. fileExec = mid (filename, instr (filename,.)+1, len (filename) -inst (filename,.))
  64. 최종 기능 장애
  65. %>

다른 단순화 된 버전의 코드를 공유하십시오

  1. wenjian = request.form (바닥)
  2. FileExt = MID (Wenjian, Instrev (Wenjian,.)+1)
  3. iflcase (fileext) <> xlsthen
  4. response.write <Script> Alert ( '파일 형식이 잘못되었고 Excel 파일을 업로드하십시오.
  5. 응답. 엔드
  6. endif
  7. setconne = server.createobject (adodb.connection)
  8. connstre = provider = microsoft.jet.oledb.4.0; dataSource = & server.mappath (& wenjian &) &; extendedProperties = 'excel8.0; hdr = 예; imex = 1';
  9. Conne.openconnstre
  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)) <>
  18. 또 다른
  19. mess = & hang & line의 이름이 비어 있습니다. 확인하십시오!
  20. 응답
  21. 응답 ()
  22. endif
  23. rse.movenext
  24. 행 = 행하+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 (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 <cript> alert ( '성공적으로 가져 왔습니다!'); location.href = 'updatefloor.asp'; </script>

실제로, 단순히 액세스 데이터베이스처럼 말하고, Excel 파일을 열고, 읽고, 액세스를 작성하려면 쓰기 프로세스를 변경하십시오.

코드보기 :

  1. 디콘
  2. Dimconn2
  3. setconn = createobject (adodb.connection)
  4. conn.openprovider = microsoft.jet.oledb.4.0; jetoledb : databaseSpassword =; 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*from [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 (Newst)
  27. Newsstr =
  28. 또 다른
  29. Newsstr = Replace (Newstr, ',' ')
  30. endif
  31. fixsql = newstr
  32. 최종 기능 장애

관련 기사