'************************************************ * ***************
' 기능
' 기능: 스트림을 사용하여 파일 저장
'매개변수: from(원격 파일 주소), tofile(저장 파일 위치)
'************************************************ * ***************
개인 함수 SaveFiles(byref from,byref tofile)
희미한 데이터
데이터=GetData(from,0)
응답.쓰기가 성공적으로 저장되었습니다: &formatnumber(len(Datas)/1024*2,2)&Kb
응답. 플러시
만약 formatnumber(len(Datas)/1024*2,2)>1이면
ADOS.유형 = 1
ADOS.모드 =3
ADOS.열기
ADOS.데이터 쓰기
ADOS.SaveToFile server.mappath(tofile),2
ADOS.닫기()
또 다른
응답.쓰기 저장 실패: 파일 크기&형식 번호(len(imgs)/1024*2,2)&Kb, 1K 미만
응답. 플러시
종료하면
종료 기능
'************************************************ * ***************
' 함수(비공개)
' 기능: 파일이 존재하는지 확인하기 위해 fso를 사용합니다. 파일이 존재하지 않으면 false를 반환합니다.
'매개변수: filespes(파일 위치)
'************************************************ * ***************
개인 함수 IsExists(byref filespec)
If (FSO.FileExists(server.MapPath(filespec))) 그렇다면
IsExists = 참
또 다른
IsExists = 거짓
종료 조건
기능 종료
'************************************************ * ***************
' 함수(비공개)
' 기능: fso를 사용하여 폴더가 존재하는지 확인합니다. 존재하지 않으면 false를 반환합니다.
'매개변수: 폴더(폴더 위치)
'************************************************ * ***************
개인 함수 IsFolder(byref 폴더)
FSO.FolderExists(server.MapPath(Folder)) 다음 경우
IsFolder = 참
또 다른
IsFolder = 거짓
종료 조건
기능 종료
'************************************************ * ***************
' 함수(비공개)
' 기능: fso를 사용하여 폴더를 만듭니다.
'매개변수: fldr(폴더 위치)
'************************************************ * ***************
개인 함수 CreateFolder(byref fldr)
에프
f = FSO.CreateFolder(Server.MapPath(fldr)) 설정
CreateFolder = f.경로
f=아무것도 설정하지 않음
기능 종료
'************************************************ * ***************
' 함수(공개)
' 기능: 파일을 저장하고 자동으로 다단계 폴더 생성
'매개변수: fromurl(원격 파일 주소), tofiles(저장 위치)
'************************************************ * ***************
공용 함수 SaveData(byref FromUrl,byref ToFiles)
ToFiles=trim(바꾸기(ToFiles,//,/))
flName=To파일
fldr=
IsExists(flName)=false인 경우
GetNewsFold=분할(flName,/)
i=0에서 Ubound(GetNewsFold)-1까지
fldr=이면
fldr=GetNewsFold(i)
또 다른
fldr=fldr&/&GetNewsFold(i)
종료하면
IsFolder(fldr)=false인 경우
폴더 만들기 fldr
다음과 같은 경우 종료
다음
Url,flName의 파일 저장
다음과 같은 경우 종료
기능 종료
'************************************************ * ***************
' 함수(공개)
' 기능: 원격 데이터 획득
'매개변수: url(원격 파일 주소), getmode(모드: 0은 바이너리, 1은 중국어 인코딩)
'************************************************ * ***************
공용 함수 GetData(byref url,byref GetMode)
'오류 발생 시 다음 재개
소스코드 = OXML.open(GET,url,false)
OXML.send()
OXML.readystate<>4이면 함수를 종료합니다.
GetMode=0이면
GetData = OXML.responseBody
또 다른
GetData = BytesToBstr(OXML.responseBody)
종료하면
err.number<>0이면 err.Clear
기능 종료
'************************************************ * ***************
' 함수(공개)
' 기능: 원격 이미지 주소를 로컬 위치로 형식화합니다.
'매개변수: imgurl(원격 이미지 주소), imgfolder(로컬 이미지 디렉터리), fristname(접두사 이름 추가)
'************************************************ * ***************
공용 함수 FormatImgPath(byref ImgUrl, byref ImgFolder, byref FristName, byref noimg)
strpath=
ImgUrl=ImgUrl
instr(ImgUrl,Nophoto) 또는 lenb(GetData(ImgUrl,0))<=0이면
strpath=noimg
응답. &strpath& &vbcrlf 쓰기
또 다른
if Instr(ImgUrl,.asp) 다음
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, =)+1)&.jpg
또 다른
strpath=FristName&_&Mid(ImgUrl, InStrRev(ImgUrl, /)+1)
종료하면
strpath = ImgFolder&/&strpath
strpath = 바꾸기(strpath,//,/)
if left(strpath,1)=/이면 strpath=right(strpath,len(strpath)-1)
strpath = 트림(strpath)
응답. &strpath& &vbcrlf 쓰기
savedataImgUrl,strpath
종료하면
FormatImgPath = strpath
기능 종료