ASP에서 FSO를 사용하지 않는 경우 adodb.stream 개체를 사용하여 파일을 저장하고 읽으면 FSO를 지원하지 않는 가상 호스트가 있는 시스템을 피할 수 있습니다. '************************************
'파일을 읽어
'************************************
함수 LoadFromFile(ByVal 파일)
희미한 objStream
희미한 RText
RText = 배열(0, )
objStream = Server.CreateObject(ADODB.Stream) 설정
objStream 사용
.유형 = 2
.모드 = 3
.열려 있는
.Charset = utf-8
.위치 = objStream.Size
오류 발생 시 다음 재개
.LoadFromFile 서버.MapPath(파일)
오류가 발생한 경우
RText = 배열(Err.번호, Err.설명)
LoadFromFile = RText
Err.Clear
종료 기능
종료 조건
RText = 배열(0, .ReadText)
.닫다
끝
LoadFromFile = RText
objStream = 없음으로 설정
기능 종료
'************************************
'파일 저장
'************************************
기능 SaveToFile(ByVal strBody, ByVal 파일)
희미한 objStream
희미한 RText
RText = 배열(0, )
objStream = Server.CreateObject(ADODB.Stream) 설정
objStream 사용
.유형 = 2
.열려 있는
.Charset = utf-8
.위치 = objStream.Size
.WriteText = strBody
오류 발생 시 다음 재개
.SaveToFile 서버.MapPath(파일), 2
오류가 발생한 경우
RText = 배열(Err.번호, Err.설명)
SaveToFile = RText
Err.Clear
종료 기능
종료 조건
.닫다
끝
RText = Array(0, 파일이 성공적으로 저장되었습니다!)
SaveToFile = RText
objStream = 없음으로 설정
기능 종료