본문 바로가기
Program

Binary 데이타를 받아서 server에 화일로 저장시키는

본문

Dim FileSavePath ,ext, filename

FileSavePath = Server.MapPath(".")

ext   = Mid(attFile, InstrRev(attFile, ".")+1)  '화일 확장자 추출

filename = "sample."& ext



   intByteCnt = Request.TotalBytes                 '데이터 블록의 총바이트 값이 들어감
   strData  = Request.BinaryRead(intByteCnt)  '바이너리 스트림 데이타


 

   If intByteCnt > 1 Then


     '----------------------------------------------
     ' Binary 데이타를 받아서 server에 화일로 저장시킴.
     '----------------------------------------------
     Set objStream = CreateObject("ADODB.Stream")
       objStream.Open()
       objStream.Type = 1  ' 1: binary 타입을 의미한다.
       objStream.Write strData
       objStream.SaveToFile FileSavePath &"\"& filename, 2  '2:덮어쓰기 허용
     Set objStream = nothing


   End if



' 단, body에 바이너리 화일만 와야 함.

[이 게시물은 듀라님에 의해 2015-04-03 10:08:13 워드프레스에서 이동 됨]
[이 게시물은 듀라님에 의해 2015-04-03 10:27:24 Public에서 이동 됨]
[이 게시물은 듀라님에 의해 2015-04-03 10:33:53 팁과강좌에서 이동 됨]
[이 게시물은 최고관리자님에 의해 2017-06-10 14:24:30 ASP에서 이동 됨]
0 0
  • 페이스북으로 보내기
  • 트위터로 보내기
  • 구글플러스로 보내기
  • 카카오톡으로 보내기

페이지 정보

l2j (121.♡.101.20) 작성일07-05-02 15:25 조회1,387회 댓글0건

댓글목록

등록된 댓글이 없습니다.

Program 목록

게시물 검색

사이트 정보

  • 회사명 회사명 / 대표 대표자명
  • 주소 OO도 OO시 OO구 OO동 123-45
  • 사업자 등록번호 123-45-67890
  • 전화 02-123-4567 / 팩스 02-123-4568
  • 통신판매업신고번호 제 OO구 - 123호
  • 개인정보관리책임자 정보책임자명

고객센터

  • 02-1234-5678
  • abc@abc.com
  • 월-금 am 11:00 - pm 05:00
  • 점심시간 : am 12:00 - pm 01:00
  • 주말&공휴일은 1:1문의하기를 이용하세요.
상단으로