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,430회 댓글0건관련링크
댓글목록
등록된 댓글이 없습니다.